vb模拟题探究.docVIP

V b模拟题 一、程序填空： 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）xmax@maxx 3） Max=x 2、下面程序的功能是： 随机产生25个两位的随机数，将其组成一个五行五列的矩阵输出，并计算其右对角线元素之和。请将程序补充完整。 Private Sub Command1_Click() Dim x(1 To 5, 1 To 5) s = 0 For i = 1 To 5 For j = 1 To 5 x(i, j) = ____(1)____ Print x(i, j); If ____(2)____ Then s = s + x(i, j) Next j Print Next i Print s End Sub 1） Int(Rnd * 90 + 10) 2） i=j 3.下面程序的功能是：设计一个选课运行界面，如下图所示。它包含两个列表框，左边列表框list1为已可供选择的课程名，当单击某课程名后，将该课程加入到右边的列表框list2中，同时在左边列表框中删除。当右边课程数已满5门时，不允许再加入。请将程序补充完整。 Private Sub Form_Load() List1.Clear List1.AddItem 大学计算机基础 List1.AddItem VB程序设计 List1.AddItem 数据库技术与应用 List1.AddItem C程序设计 List1.AddItem 多媒体技术 List1.AddItem 硬件技术基础 List1.AddItem 网络技术与应用 List1.AddItem WEB程序设计 End Sub Private Sub List1_Click() If ____(1)____ Then MsgBox 超过5门课程，不能再选！ Exit Sub Else ____(2)____ List1.RemoveItem List1.ListIndex End If End Sub 1）List2.ListCount = 5 2）List2.AddItem List1.Text 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 count5 ） 6、下面程序的功能是： 将输入的字符串以反序显示，如输入ASDFGHJKL，显示LKJHGFDSA。请将程序补充完整。 Private Sub Command1_Click() s = InputBox(输入字符串：) For i = ____(1)____ To 1 Step -1 Print ____(2)____; Next i End Sub 1）Len(s) 2）Mid(s, i, 1) 二、选择题： 在Visual Basic 中称对象的数据为__________。 属性 B、方法C、 事件 D、封