VB上机考试练习题2012

1、 利用随机函数产生25个100到999之间的整数，构成5?5的矩阵，输出该矩阵。 Private Sub Form_Click()

Dim i As Integer, j As Integer Dim a(5, 5) As Integer Print \输出该矩阵:\For i = 1 To 5 For j = 1 To 5

a(i, j) = Int(Rnd * 900 + 100) Print a(i, j); Next j Print Next i End Sub

2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。

Private Sub Form_Click() Dim i As Integer

Dim a(1 To 25) As Integer s = 0

For i = 1 To 25

x = Int(Rnd * 90 + 10) Print x;

If i Mod 10 = 0 Then Print s = s + x Next i

ave = s / 25

ave = Format(ave, \Print \平均值为:\End Sub

3、在窗体上按上鼠标的右键，记录其的坐标。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

Label2.Caption = X & \ End If End Sub

4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。 Private Sub Form_Click() Dim i As Integer

Dim a(1 To 25) As Integer For i = 1 To 25

a(i) = Int(Rnd * 90 + 10) Print a(i);

If i Mod 10 = 0 Then Print Next i

For i = 1 To 24

For j = i + 1 To 25 If a(i) > a(j) Then

tmp = a(i): a(i) = a(j): a(j) = tmp End If Next j Next i Print

Print \从小到大排序为：\Print

For i = 1 To 25 Print a(i);

If i Mod 10 = 0 Then Print

Next i Print End Sub

5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。

Private Sub Form_Click() Dim i As Integer

Dim a(1 To 50) As Integer For i = 1 To 50

a(i) = Int(Rnd * 6 + 1) Print a(i);

If i Mod 10 = 0 Then Print Next i

For i = 1 To 50 s = a(i)

For j = 1 To Len(s) s1 = Mid(s, j, 1) Select Case s1 Case \ n1 = n1 + 1 Case \ n2 = n2 + 1 Case \ n3 = n3 + 1 Case \ n4 = n4 + 1 Case \ n5 = n5 + 1 Case \ n6 = n6 + 1 End Select Next j Next i

Print \的个数是:\的个数是:\的个数是:\\的个数是:\的个数是:\的个数是:\

End Sub

6、在文本框中输入一些英语单词，统计空格的个数。

Dim n%, x As String, s% Private Sub Form_Click() n = Len(Text1.Text) x = Text1.Text For i = 1 To n

If Mid(x, i, 1) = \Next i

Print \共出现了\个空格\End Sub

7、编程计算下列公式的值，其中n (<10)为从键盘输入的正整数。

S=1!+3!+5!+??+(2*n-1)! Private Sub Form_Click()

n = Val(InputBox(\输入正整数n(n<10)\For k = 1 To 2 * n - 1 Step 2 f = 1

For m = 1 To k f = f * m Next m

Print m - 1; \s = s + f Next k

Print \End Sub

8、编程计算下列公式的值，其中n (<10)为从键盘输入的正整数。

S=2!+4!+6!+??+(2*n)! Private Sub Form_Click()

n = Val(InputBox(\输入正整数n(n<10)\

For k = 2 To 2 * n Step 2 f = 1

For m = 1 To k f = f * m Next m

Print m - 1; \s = s + f Next k

Print \End Sub

9、用For ?Next语句编程，双击窗体后，在屏幕上显示如图：

Private Sub Form_DblClick() Dim i%, j% x = 0

For i = 1 To 3

For j = 1 To 2 * i - 1 x = x + 1

Print Tab(7 - i * 3 + j * 3); x; Next j Print Next i Print End Sub

10、用For ?Next语句编程，双击窗体后，在屏幕上显示如图：

Private Sub Form_DblClick() For i = 1 To 3

Print Tab(11 - 3 * i); For j = 2 To 10 Step 2

本文来源：https://www.bwwdw.com/article/ul2t.html