vb代码集合

If i Mod 5 = 0 Then 源自s = s + i
t = t & Str(i) & Chr(13) & Chr(10)
End If
Next i
Text1.Text = t
Label1.Caption = Str(s)
End Sub
<PIXTEL_MMI_EBOOK_2005>12 </PIXTEL_MMI_EBOOK_2005>
a(i) = Int(Rnd * 90) + 10
p = p & Str(a(i)) & ","
Next i
Text1.Text = p
End Sub
6.两数相乘，显示于文本框
3个text且属性为空 1个command
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Private sub command1_click()
Dim I as integer,s as long,t as string
For I = 1 to 100
If I mod 3=0 then
s=s + i
text1.text=text1.text & str(i) &chr(13) & chr(10)
For x = 8 To 1 Step -1
Label2.Caption = Label2.Caption & a(x)
Next x
End Sub
别忘了设置label1,label2的caption属性为：“正序、逆序”
10.100内4倍数列表框中求和
2个label（1个属性为“100以内4的倍数”，1个为空） 1个list 1个command(caption 为 求和)
end if
next i
label2.caption=str(s)
end sub
4.任意输入10个数，求和
2个label（1个caption为“请输入十个数”，另一个为空）1个command（求和）
Private Sub Command1_Click()
s = 0
For I = 1 To 10
Private Sub Command1_Click()
Dim i As Integer, s As Long, t As String
s = 0: t = 0
For i = 1 To 100
If i Mod 4 = 0 Then
s = s + i
t = t & Str(i) & Chr(13) & Chr(10)
text1.text=text1.text & str(i) & chr(13) & chr(10)
s=s*i
next i
label1.caption="0_20之间的奇数和为：" & str(s)
end sub
(Label1~label2 text1 command1)
8.文本框中100以内7的倍数，求和
Private Sub Command1_Click()
Dim i As Integer, s As Long, t As String
s = 0: t = 0
For i = 1 To 100
If i Mod 7 = 0 Then
s = s + i
将20个数倒置
Dim a(1 To 20) As Integer
Private Sub Command1_Click()
For i = 1 To 20
a(i) = InputBox("数组的元素")
Next i
j = 20
For i = 1 To 10
t = a(i): a(i) = a(j): a(j) = t
1.求1到100的累加
s=0
For I=1 to 100 step 1
s=s+I
Next I
print “s=”;s
2.求1到20中所有奇数的乘积
private sub form_load()
dim s as integer,a as integer
s=0
for i=1 to 20 step 2
t = t & Str(i) & Chr(13) & Chr(10)
End If
Next i
Text1.Text = t
Text2.Text = Str(s)
End Sub
9.将字符放到数组中,正序、倒叙打印出来
Private Sub Command1_Click()
Dim x As Integer, a(1 To 8) As String
End Sub
7.随机数组.找最大,最小
Private Sub Command1_Click()
Dim a(1 To 8) As Integer
Dim i As Integer
For i = 1 To 8
a(i) = Int(Rnd * (100 - 1 + 1) + 1)
Next i
12,99表
Private sub form_load()
Show
Fontsize=12
Print tab(25);”九九表”
Print
Print “*”
For I = 1 to 9
Print tab(i*6);I;
Next i
Print
For j = 1 to 9
a(1) = "a": a(2) = "b": a(3) = "q": a(4) = "r": a(5) = "s": a(6) = "t": a(7) = "w": a(8) = "x"
For x = 1 To 8
Label1.Caption = Label1.Caption & a(x)
Next x
End If
Next i
Label1.Caption = s
Label2.Caption = Str(s)
End Sub
Private Sub Form_Load()
List1.Clear
For n = 1 To 100
If n Mod 4 = 0 Then List1.AddItem n
x = InputBox("输入数值")
s = s + x
Next I
Label2.Caption = s
End Sub
5。随机产生8个元素数组
Private Sub Command1_Click()
Dim a(1 To 8), p As String
Randomize
For i = 1 To 8
Next n
End Sub
11.10个数 排序
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) = InputBox("输入数组元素值")
Next i
For i = 1 To 9
For j = i + 1 To 10
For i = 1 To 7
For j = i + 1 To 8
If a(i) > a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
label1.caption=a(1)
LABEL2.caption=a(8)
End Sub
13.200以内被5整除 求和
设置：L1（200以内能被???）L2，T1（mul设为True.Scro设为2垂直），C1
Private Sub Command1_Click()
Dim i As Integer, s As Long, t As String
For i = 1 To 200
If a(i) > a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
<PIXTEL_MMI_EBOOK_2005>10 </PIXTEL_MMI_EBOOK_2005>
Print j;””;
For k = 1 to 9
M = j*k
Print tab(k*6);m;””;
Next k
Print
Next j
End sub
<PIXTEL_MMI_EBOOK_2005>8 </PIXTEL_MMI_EBOOK_2005>
j = j - 1
Next i
Print i
End Sub