Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As
Si ngle, Y As Si ngle)
If Butt on = 2 The n
Label1.C apti on = X&","&Y
End If
End Sub
If Tag = True The n
Print a;"是素数"
Else
Print a;"不是素数"
End If
End Sub
13、利用随机函数产生并显示10个3位数的正整数，找出其中的最大数
Explicit
Dim i%, max%, loc%
Dim a(1 To 10) As In teger
Private Sub Form_Click()
For j = 1 To 25-i
If a(j) > a(j+1) The n tmp = a(j): a(j) = a(j+1): a(j+1) = tmp
Next j
Next i
For i = 1 To 25
Print a(i);
Next i
End Sub
5、利用随机函数产生50个[1,6]之间的整数,分别统计出1的个数，2的个
数，3的个数，4的个数，5的个数和6的个数。Dim a(1 To6)
Private Sub Form_Click()
For i = 1 To 6
a(i) = 0
Next i
For j = 1 To 50
x = In t(R nd * (6-1+1)+1)
a(x) = a(x)+1
Next j
For i = 1 To 6
Print a;
s = s+a
Next i
Print
Avg = s/25
Print Avg
End Sub
3、在窗体上按下鼠标的右键，记录其坐标。
|4202820
Private Sub Form_Load()
Label1.BorderStyle = 1
Label1.Alig nment = 2
End Sub
Print s
End Sub
9、用For…Next语句编程，双击窗体后，在屏幕上显示如图:
□jjcJ
1
2 3 4
5 676 9
Private Sub Form_Click()
a = 0
Fori = 1 To 3
Print Tab(8-2 * i-1);
Forj = 1 To 2 *i-1
a = a+1
Ran domize
Form1.Cls
For i = 1 To 10
a(i) = In t(R nd * (999-100+1)+100)
Print a(i)
Next i
max = a(1): loc = 1 '变量赋值，假设a(1)为最大数
For i = 2 To 10
Print a(i, j);
Next j
Print
Next i
End Sub
2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。Private Sub Form_Click()
For i = 1 To 25
a = In t(R nd * (99-10+1)+10)
If a = 2 The n
Tag = True
ElseIf a Mod 2 = 0 The n
Tag = False
Else
Tag = True
For i = 3 To Sqr(a) Step 2
If a Mod i = 0 Then Tag = False: Exit For
Next i
End If
Print i&"出现了"&a(i);"次"
Next i
End Sub&在文本框中输入一些英语单词，统计空格的个数
单词的个数Kb 6|统计
Dim n%, x As String, s%
Private Sub Form_Click() n = Le n(Text1.Text) x = Text1.Text
S=2!+4!+6!++(2* n)! Private Sub Form_Click()
n = Val(lnputBox("请输入一个不大于10的整数"))
s= 0
For i = 2 To 2 * n Step 2
p = 1
Forj = 1 Toi
p = p * j
Next j
s = s+p
Next i
4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1
To25)
Private Sub Form_Click()
Cis
For i = 1 To 25
a(i) = In t(R nd * (99 -10+1)+10)
Print a(i);
Next i
Print
For i = 1 To 25-1
n = Val(lnputBox("请输入一个不大于10的整数"))
s= 0
For i = 1 To 2 * n - 1 Step 2
p = 1
Forj = 1 Toi
P = P * j
Next j
s = s+p
Next i
Print s
End Sub8、编程计算下列公式的值，其中n(<10)为从键盘输入的正整数。
Print Str(a);
Next j
Print
Next i
End Sub
10、用For…Next语句编程，双击窗体后，在屏幕上显示如图:
End Sub
12、 从文本框输入一个正整数，判断该数是否为素数。Dim a As Long
Private Sub Form_Click()
a = Val(Text1.Text)
VB
1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩 阵。Dim a(1 To5, 1To 5)
Private Sub Form_Click()
Ran domize
For i = 1 To 5
Forj = 1 To 5
a(i, j) = Int(Rnd * (999-100+1)+100)
For i = 1 To n
If Mid(x, i, 1) = " ห้องสมุดไป่ตู้ The n s = s+1
Next i
Print "共出现了"&s&"个空格" End Sub7、编程计算下列公式的值，其中n(<10)为从键盘输入的正整数。
S=1!+3!+5!+……+(2* n-1)! Private Sub Form_Click()