文档介绍:1 2008-5-16 Vb 模拟题一、程序填空: 1、以下程序的功能是:依次从弹出对话框中输入 10个数字并输出到窗体中,将它们的最大值输出。 Private mand1_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<x 3) Max=x 2、"下面程序的功能是: 随机产生 25 个两位的随机数,将其组成一个五行五列的矩阵输出,并计算其右对角线元素之和。请将程序补充完整。 Private mand1_Click() Dim x(1 To 5,1 To 5) s=0 For i=1 To5 For j=1 To5 2 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 :设计一个选课运行界面,如下图所示。它包含两个列表框,左边列表框 list1 为已可供选择的课程名,当单击某课程名后,将该课程加入到右边的列表框 list2 中,同时在左边列表框中删除。当右边课程数已满 5门时,不允许再加入。请将程序补充完整。 Private Sub Form_Load() ""大学计算机基础"" ""VB 程序设计"" ""数据库技术与应用"" ""C 程序设计"" ""多媒体技术"" ""硬件技术基础"" 3 ""网络技术与应用"" ""WEB 程序设计"" End Sub Private Sub List1_Click() If ____(1)____ Then MsgBox ""超过 5门课程,不能再选! "" Exit Sub Else ____(2)____ End If End Sub 1) >= 52) 4."下面程序的功能是: 随机产生 20 个两位的随机数,将其组成一个四行五列的矩阵并输出。请将程序补充完整。 Private mand1_Click() Dim x(1 To 4,1 to 5) For i=1 To5 for j=1 to4 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 mand1_Click() Dim count%, n% count = ____(1)____ n=1 Do n= ____(2)____ Ifn Mod 3=1 Orn Mod 5=1 Orn Mod 7=1 Then Print n count = count +1 End If Loop ____(3)____ End Sub 5 1) 02) n+1 3) Until count =5( while count<5 ) 6、"下面程序的功能是: 将输入的字符串以反序显示,如输入""ASDFGHJKL"" ,显示""LKJHGFDSA"" 。请将程序补充完整。 Private mand1_Click() s= InputBox("" 输入字符串: "") For i= ____(1)____ To1 Step -1 Print ____(2)____; Next i End Sub 1) Len(s) 2) Mid(s, i, 1) 二、选择题: 1、在 Visual Basic 中称对象的数据为__________ 。 A、属性 B、方法 C、事件 D、封装( A) 2、刚建立一个新的标准 EXE 工程后,不在工具箱中出现的控件是__________ 。 A、单选按钮 B、图片框 C、通用对话框 D、文本框( C) 3、双击窗体中的对象后, Visual Basic 将显示的窗口是_( C) ___ 。 A、项