安徽大学vb模拟题.docx

安徽大学vb模拟题
2022-5-16 vb模拟题
一、程序填空：
1、以下程序的功能是：依次从弹出对话框中输入10个数字并输出到窗体中，将它们的最大值输出。 Private Sub Co









安徽大学vb模拟题
2022-5-16 vb模拟题
一、程序填空：
1、以下程序的功能是：依次从弹出对话框中输入10个数字并输出到窗体中，将它们的最大值输出。 Private Sub Command1_Click() max=0
For i = 1 To 10
x = Val(____(1)____) Print x
If ____(2)____ Then ____(3)____ Next i Print Max End Sub
1〕InputBox(\ 2〕x>******@max= 5
2〕
4. \下面程序的功能是：
随机产生20个两位的随机数，将其组成一个四行五列的矩阵并输出。请将程序补充完整。 Private Sub Command1_Click() Dim x(1 To 4,1 to 5) For i = 1 To 5 for j=1 to 4
x(i,j) =____(1)____ Print x(i,j); Next j ____(2)____ next i End Sub
1)Int(Rnd * 90 + 10) 2) Print 5、\下面程序的功能是：
找出被3、5、7除，余数均为1的最小的5个正整数。请将程序补充完整。
Private Sub Command1_Click() Dim count%, n% count = ____(1)____ n = 1 Do










n = ____(2)____
If n Mod 3 = 1 Or n Mod 5 = 1 Or n Mod 7 = 1 Then Print n
count = count + 1 End If Loop ____(3)____ End Sub
1〕0 2〕n+1 3〕Until count = 5〔 while count<5 ） 6、\下面程序的功能是：

将输入的字符串以反序显示，如输入\，显示\。请将程序补充完整。 Private Sub Command1_Click() s = InputBox(