VB试题分类练习(编程题).pdfVIP

VB 试题分类练习（编程题） 编者Enid LIU 微博：Alden 微曦 1、随机产生n 个两位正整数（n 由对话框输入，切n0)。求出 其中的偶数之和，并在标签框Labol1 上显示。 程序写在命令按钮Command1 的click 事件中。 Private Sub Command1_Click() Dim n As Integer Dim i As Integer, sum As Long n = Val(InputBox(Please input a integer, Input N value)) For i = 1 To n rnddat = (10 + Int(90 * Rnd)) If rnddat Mod 2 = 0 Then sum = sum + rnddat End If Next i Label1.Caption = sum End Sub 2、由输入对话框中输入 100 个数值数据，放入数组 a，将其中 的整数放入数组b，然后运用选择分类将数组b 中的数据按从大 到小的顺序排列，并以每行5 个数据在窗体上输出。 注：程序写在窗体form 的click 事件上。 Private Sub Form_Click() Dim a(1 To 100) Dim b() as integer Dim i As Integer, j As Integer, k As Integer, pos As Integer,temp as integer For i = 1 To 100 a(i) = Val(InputBox(Please input data)) If a(i) = Int(a(i)) Then j = j + 1 ReDim Preserve b(j) b(j) = a(i) End If Next i For k = 1 To j - 1 pos = k For m = k To j If b(m) b(pos) Then pos = m Next m If k pos Then temp = b(k) b(k) = b(pos) b(pos) = temp End If Next k For k = 1 To j If k Mod 5 = 0 Then Print b(k) Else Print b(k); Next k End Sub 3 单击窗体由键盘输入20 个实数，单击“求最大最小”命令按 钮在图形框（Picture1）中输出最这些数的最大、最小值；单击 “排序”命令按钮，在图形框（Picture2）中输出这些数的升序。 （1）画出界面 （2）写出属性表 （3）事件过程代码 Dim a(20) As Single Private Sub Form_Load() For i = 1 To 20 a(i) = InputBox(输入数据) Next i End Sub Private Sub Command1_Click() Tmax = a(1) Tmin = a(1) 4、在名称为 Form1 的窗体上画一个名称为 Text1 的文本框，通 过属性窗口设 置文本框属性，在文本框中显示AAAA （如图所 示）；再建立一个名称 为 Cmd1，标题为清除的命令按钮，编 写适当的事件过程。要求程序运 行后，如果单击清除命令按 钮，则清除文本框中所显示的信息。1．在名称为 Form1 的窗体 上画一个名称为 Text1 的文本框，通过属性窗口设 置文本框属 性，在文本框中显示AAAA （如图所示）；再建立一个名称为 Cmd1，标题为清除的命令按钮，编写适当的事件过程。要求程 序运 行后，如果单击清除命令按钮，则清除文本框中所显示 的信息。 5．在窗体上建立一个名称为Text1的文本框，然后建立两个主菜 单，其标题分 别为商品类别、帮助，名称分别为 vbMenu 和 vbHelp，其 中商 品类别菜单包括百货、食品、家电三个子菜单，名 称分别 为vbMenu1