编程vb
1. VB编程。
2楼的是错的。inputbox函数里输入的是字符，要用val函数将其转为数字。
a=val(inputbox(......))
2. 用vb编程
1、
Private Sub Command1_Click()
Dim N As Integer, bF As Boolean, dt As String
Dim k As Integer, m As Integer, nn As Integer, mm As Integer, tt As String
N = InputBox("请输入N值（N>100）")
nn = 0: mm = 0: tt = ""
For k = 3 To N
bF = False
For m = 2 To k - 1
If (k Mod m) = 0 Then
bF = True
Exit For
End If
Next
If Not bF Then
nn = nn + 1
mm = mm + 1
dt = CStr(k)
tt = tt & Space(8 - Len(dt)) & dt
If mm = 10 Then
mm = 0
Print tt
tt = ""
End If
End If
Next
End Sub
2、
Private Sub Command2_Click()
Dim m As Integer, n As Integer, mm As Integer, nn As Integer
Dim k As Integer, r As Integer
m = InputBox("请输入一个自然数m")
n = InputBox("请输入一个自然数n")
mm = m: nn = n
If m < n Then
k = m: m = n: n = k
End If
Do
r = m Mod n
If r > 0 Then
m = n: n = r
End If
Loop Until r = 0
MsgBox mm & "和" & nn & "的最大公约数是" & n
End Sub
3. 编写程序VB
Option Explicit
Dim a(49) As Integer, i As Integer, j As Integer
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入要查找的内容", vbOKOnly + vbExclamation, "系统提示"
Text1.SetFocus
Exit Sub
End If
For i = 0 To List1.ListCount - 1
If List1.List(i) = Text1.Text Then
Label3.Caption = "已生成！"
Exit For
Else
Label3.Caption = "未生成！"
End If
Next
End Sub
Private Sub Form_Load()
List1.Clear
For i = 0 To 49
a(i) = Int(Rnd() * 99 + 1)
For j = 0 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next j
Next i
For j = 0 To 49
List1.AddItem a(j)
Next j
End Sub
4. VB编程用什么软件好
VB是微软出品的，能够使用的VB编程软件只有Visual Studio
不过VisualStudio有很多版本
从VB 6.0到VisualStudio2002.Net、VisualStudio2003.Net、VisualStudio2005、VisualStudio2008各有不同，看你的喜好了
5. vb编程是什么意思,主要干嘛的
VB程序开发的基本流程是：界面设计（放置窗体和控件）――属性设置（设置窗体、控件的属性）――编写代码――运行调试。其优点是在窗体上添加控件并设置属性后就可完成界面的设计使程序员轻易的就可完成界面的设计，而无需过多的进行设计和编程。只需调用预先准备好的、经过测试的、完全就绪的模块就可完成所需实现的功能。这种备用性的软件模块被称作――组件。窗体和各种控件就是组件。
VB编程的核心思想就是组件编程。VB是最早引入组件编程的概念，其后被其它语言所采用并成为一种标准，如VC++、Delphi、PowerBuilder都采用组件编程模型，并采用面向对象编程技术，成为当今程序设计的发展方向之一。
VB编程时，因为使用组件技术，所以不必从底层的窗体、控件开始设计，可以向工厂通过各种部件组装生产机器一样，通过微软或第三方提供的组件，组装成所需的程序。用什么组装？就是用VB的代码，其作用就像胶水一样，用有限的代码和组件联结成一体。最后形成一个完整的应用程序。
如果没有现成的组件或需要创建一个新类时，就需要编写代码。 组件的种类很多，有多少组件可用，各组件有什么作用，这需要在实践中不断摸索。
6. 用vb编写一个简单的程序
上面的程序有问题
'给窗口加3个TEXT控件
text.text
都设为0，再加个COMMAND
控件
'付上以下程序
OK了
Private
Sub
Command1_Click()
Dim
D
As
Single,
L
As
Single
D
=
Val(Text1.Text)
L
=
val(Text2.Text)
v
=
0.7854
*
L
*
(D
+
0.5
*
L
+
0.005
*
L
^
2
+
0.000125
*
L
*
(14
-
L)
^
2
*
(D
-
10))
^
2
/
1000
Text3.Text
=
v
End
Sub
7. vb编程超简单
PrivateSubCommand1_Click()
Text2.Text=""
Text2.Text=Text2.Text+Text1.Text
Fori=0To2
IfOption1(i).Value=TrueThen
Text2.Text=Text2.Text+Space(3)+"职称："+Option1(i).Caption+Space(3)
Else
Option1(i).Enabled=False
EndIf
Nexti
Text2.Text=Text2.Text+"爱好："
Fori=0To2
IfCheck1(i).Value=1Then
Text2.Text=Text2.Text+Check1(i).Caption+Space(1)
Else
Check1(i).Enabled=False
EndIf
Nexti
Text2.Text=Text2.Text+Space(2)+"籍贯："+List1.List(List1.ListIndex)+Space(3)
Text2.Text=Text2.Text+"部门："+Combo1.Text
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_Load()
Option1(0).Caption="初级"
Option1(1).Caption="中级"
Option1(2).Caption="高级"
Check1(0).Caption="音乐"
Check1(1).Caption="体育"
Check1(2).Caption="绘画"
List1.AddItem"北京市"
List1.AddItem"江苏省"
List1.AddItem"江西省"
List1.AddItem"山东省"
List1.AddItem"山西省"
List1.AddItem"浙江省"
List1.AddItem"辽宁省"
List1.AddItem"天津市"
List1.AddItem"湖南省"
List1.AddItem"河北省"
List1.AddItem"上海市"
List1.AddItem"广东省"
Combo1.AddItem"电子系"
Combo1.AddItem"数学系"
Combo1.AddItem"计算机系"
Combo1.AddItem"物理系"
Combo1.AddItem"化学系"
Combo1.AddItem"天文系"
Combo1.AddItem"地质系"
Combo1.AddItem"医学系"
Text1.Text=""
Text2.Text=""
EndSub
PrivateSubFrame1_Click()
Fori=0To2
IfOption1(Index).Value=FalseThenOption1(Index).Enabled=False
Nexti
EndSub
8. vb编程vb编程
Private Sub Command1_Click()
Dim j%, k%, m%, n%, mArr(1 To 80), OArr(), EArr(), ZArr(), Q%, E%, tmP%, Z%, mSum%
Q = 1
E = 1
Z = 1
Print "80个随机整数："
For j = 1 To 80
Randomize
mArr(j) = Int(90 * Rnd + 10)
Print CStr(mArr(j)); Spc(2);
If j Mod 10 = 0 Then Print
Next j
Print
For m = 1 To 79 '排序
For n = 80 To m + 1 Step -1
If mArr(n) < mArr(n - 1) Then tmP = mArr(n): mArr(n) = mArr(n - 1): mArr(n - 1) = tmP
Next n
Next m
For m = 1 To 80 '奇偶分组
If mArr(m) Mod 2 = 1 Then
ReDim Preserve OArr(1 To Q)
OArr(Q) = mArr(m)
Q = Q + 1
Else
ReDim Preserve EArr(1 To E)
EArr(E) = mArr(m)
E = E + 1
End If
If zs(CInt(mArr(m))) = True Then '素数分组
ReDim Preserve ZArr(1 To Z)
ZArr(Z) = mArr(m)
mSum = mSum + ZArr(Z)
Z = Z + 1
End If
Next m
Print
Print "偶数：" '在窗体输出
For m = 1 To UBound(EArr)
Print CStr(EArr(m)); Spc(2);
If m Mod 10 = 0 Then Print
Next m
Print
Print
Print "奇数："
For m = 1 To UBound(OArr)
Print CStr(OArr(m)); Spc(2);
If m Mod 10 = 0 Then Print
Next m
Print
Print
Print "素数："
For m = 1 To UBound(ZArr)
Print CStr(ZArr(m)); Spc(2);
If m Mod 10 = 0 Then Print
Next m
Print
Print "素数个数："; UBound(ZArr)
Print "素数之和："; mSum
End Sub
Private Function zs(x As Integer) As Boolean '素数判断子过程
Dim d%
If x = 2 Then zs = True: Exit Function
For d = 2 To Int(Sqr(x))
If x Mod d = 0 Then Exit For: zs = False
If d = Int(Sqr(x)) Then zs = True
Next
End Function
9. VB编程是什么
vb是用来编写应用程序的，它写出的程序运行于微软的windows，不同的程序应用于不同的地方，如办公软件、监控软件、计量软件等等。