VB模拟考题.doc

本文档系作者精心整理编辑，实用价值高。VB模拟考试题一、程序题1、从键盘上输入若干个学生的成绩，统计并输出最高分和最低分，当输入负数时，结束输入，输出结果。程序代码如下： Private Sub Form_Click() Dim x!, amax!, amin As Single x = InputBox(input a score) amax = xamin = x Do While x = 0 If x amax Then amax = x End If If x = 5 Then MsgBox (超过5门课程，你不能再选了) Exit Sub End If List2.AddItem List1.List(List1.ListIndex) List1.RemoveItem List1.ListIndexEnd Sub6、在窗体上画一个名称为Combo1的组合框，画两个名称分别为Label1和Label2、Caption 属性分别为城市名称和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示已成功添加输入项，如果存在，则在Label2中给出提示输入项已在组合框中。Private Sub Combo1_ KeyPress (KeyAscii As Integer)If KeyAscii = 13 ThenFor i = 0 To Combo1.ListCount-1If Combo1.Text = combo1.List (i) ThenLabel2.Caption = 输入项已在组合框中Exit SubEnd IfNext iLabel2.Caption = 已成功添加输入项combo1.AddItem Combo1.TextEnd IfEnd Sub7、编写程序，要求程序运行后，单击窗体，在输入对话框中分别输入3个整数，程序将输出3个数中的中间数。Private Sub Form_Click() Dim a(3) As Integer, i%, m%, t% Print 输入的数据是：; For i = 0 To 2 a(i) = InputBox(输入数据) Print a(i); Next i Print If a(0) a(2) Then m = a(1) ElseIf a(0) a(2) Then m = a(2) Else m = a(0) End IfPrint 中间数是：; mEnd Sub8、本程序由2个组合框控件、1个标签控件组成，要求：（1）程序运行后，窗体初始化时，在左边组合框1(名称为Combo1)中列出当前屏幕对象（Screen）的所有字体，screen对象的fonts属性（fonts属性是一个数组，它的每一个元素对应一种屏幕字体）能够得到屏幕使用的所有字体，FontCount属性能够得到字体的数量，利用一个循环，将Screen对象的每个fonts(i)添加到组合框1中；（2）窗体初始化时，在右边的组合框2(名称为Combo2)中列出8、10、12、1472的数字，表示字号。（3）当用户在组合框1中单击选中某种字体时，或在组合框2中单击选中某一字号时，使窗体下半部的标签（名称为Label1）中文字设置为相应字体与字号，实现字体字号预览。9、编程实现利用随机函数模拟投掷1000次硬币，统计1000次中正面朝上的次数。程序界面由一个窗体、一个命令按扭(Command1)和一个标签(Label1)组成，单击命令按扭开始统计，统计结果用标签显示。程序代码如下：Private Sub Command1_Click() Dim x!, i%, n% n = 0 Randomize For i = 1 To 1000 x = Rnd() If x 0.5 Then n = n + 1 End If Next Label1.Caption = 正面朝上的次数为: & nEnd Sub10、编程实现在窗体上显示以汉字开头的字体名称，并显示该字体所对应的字体样式，程序运行界面如下图：Private Sub Form_Load() Dim i% For i = 0 To Screen.FontCount - 1 If Asc(Left(Screen.Fonts(i), 1) a(j) Then t = a(j) a(j) = a(i) a(i) = t End If Next jNext iFor k = 1 To n Print a(k);Next k2、写出在窗体上连续单击3次，分别输入1，2，3后窗体上显示的结果。Private Sub Form_Click() Dim x As Integer, s As Integer s = 0 x = Val(InputBox(x=) If x Mod 2 = 0 Then s = s + x Else s = s * x End If Print s=; sEnd Sub3、阅读如下程序代码，写出程序运行结果。Dim j As Integer For m = 2 To 10 For i = 2 To m - 1 If (m Mod i) = 0 Then GoTo NotNextM Next i Print m; ;NotNextM: Next m4、文本框Text1中原先没有内容，写出依次在文本框中输入“小”、“李”两个字后，窗体上显示的结果。Dim x As StringPrivate Sub Form_Load() x = 你好End SubPrivate Sub Text1_Change() x = x + Text1.Text Print x；!End Sub5、写出单击命令按钮Command1后，标签Label1上显示的内容。Private Sub Command1_Click() Dim i As Integer Dim sum As Single i = 1 Do While i 10 sum = sum + i / 2 Label1.Caption = Label1.Caption & i= & i & ；sum=