武汉职业技术学院 《 Visual basic程序设计》试卷四 选择题(30分) (1)设窗体上有一个文本框,Text1,要求只能显示信息,不能输入。 A)Textl MaxLength =0 B) Textl Enabled= False C) Textl Visible False D)Text1. Width=0 (2)以下能在窗体 Forml的标题栏中显示“ Visualbasic窗体"的语句是 A)Form1.Name=" Visualbasic窗体 B) FormI. Title=" visualbasic窗体 C)Form1. Caption=" Visualbasic窗体 D)Form1.Text=" Visualbasic窗体” (3)设菜单中有一个菜单项为"open"。若要为该菜单命令设计访问键,即按下Alt及字母0 A)把 Caption属性设置为m“参为 时,能够执行"open"命令,则在菜单编辑器中设置“Open"命令的方式是 B)把 Caption属性设置为O&pen C)把Name属性设置为&Open D)把Name属性设置为&pen (4)以下关于 MsgBox的叙述中,错误的是 A) MsgBox函数返回一个整数 B)通过 MsgBox函数可以设置信息框中图标和按钮的类型 C) MsgBox语句没有返回值 D) MsgBox函数的第一个参数是一个整数,该参数只能确定对话框中显示的按钮数量 (5)在窗体上画一个名称为 Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则 以下正确的属性设置语句是 A) Timerl InterVal=0. 5 B)Timerl Interval=5 C) Timer Interval=50 )) Timerl Interval=500 (6)以下关于多重窗体程序的叙述中,错误的是 A)用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体 B)在多重窗体程序中,各窗体的菜单是彼此独立的 C)在多重窗体程序中,可以根据需要指定启动窗体 D)对于多重窗体程序中,而且单独保存每个窗体 (7)以下叙述中错误的是 A)事件过程是响应特定事件的一段程序 B)不同的对象可以具有相同名称的方法
武汉职业技术学院 《Visual Basic 程序设计》试卷四 一.选择题 (30 分) (1)设窗体上有一个文本框，Text1,要求只能显示信息，不能输入。 A) Text1.MaxLength = 0 B) Text1.Enabled = False C) Text1.Visible = False D) Text1.Width = 0 (2) 以下能在窗体 Form1 的标题栏中显示“VisualBasic 窗体"的语句是 A) Form1.Name="VisualBasic 窗体" B) Form1.Title="VisualBasic 窗体" C) Form1.Caption="VisualBasic 窗体" D) Form1.Text="VisualBasic 窗体” (3)设菜单中有一个菜单项为"Open"。若要为该菜单命令设计访问键，即按下 Alt 及字母 O 时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是 A) 把 Caption 属性设置为&Open B) 把 Caption 属性设置为 O&pen C) 把 Name 属性设置为&Open D) 把 Name 属性设置为 O&pen (4) 以下关于 MsgBox 的叙述中，错误的是 A） MsgBox 函数返回一个整数 B) 通过 MsgBox 函数可以设置信息框中图标和按钮的类型 C) MsgBox 语句没有返回值 D) MsgBox 函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量 (5)在窗体上画一个名称为 Timer1 的计时器控件，要求每隔 0.5 秒发生一次计时器事件，则 以下正确的属性设置语句是 A）Timer1.InterVal=0.5 B) Timer1.Interval=5 C) Timer.Interval=50 D) Timer1.Interval=500 (6)以下关于多重窗体程序的叙述中，错误的是 A)用 Hide 方法不但可以隐藏窗体，而且能清除内存中的窗体 B）在多重窗体程序中，各窗体的菜单是彼此独立的 C）在多重窗体程序中，可以根据需要指定启动窗体 D）对于多重窗体程序中，而且单独保存每个窗体 （7) 以下叙述中错误的是 A）事件过程是响应特定事件的一段程序 B）不同的对象可以具有相同名称的方法
C)对象的方法是执行指定操作的过程 D)对象事件的名称可以由编程者指定 下合法的Ⅴ i sual basic标识符是 op B)Const C) (9)当一个复选框被选中时,它的 Value属性的值是 2C)1D)0 (10)表达式5Mod3+3\5*2的值是 )0B)2C)4D)6 (11)设x=4,y=8,z=7,以下表达式的值是x<yAnd(Noty>z)Orz<x A)1 B)-1 C) True D) False (12)在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1 Click a$="VisualBasic Print String (3, aS End sub 程序运行后,单击命令按钮,在窗体上显示的内容是 A) VVv B)Vi SIc (13)以下叙述中错误的是 A)在 KeyPress事件过程中不能识别键盘的按下与释放 B)在 KeyPress事件过程中不能识别回车键 C)在 Key Down和 KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母 D)在 KeyDown和 KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被 视作不同的字符 (14)在窗体上画一个名称为 Command1的命令按钮,并编写如下程序: Private sub commandl clic Dim x As Integer Static y As Integer Call f1(x, y) Print End sub Private Sub f1(ByRef xl As Integer, y1 As Integer) xI=x1+2 End sub 程序运行后,单击命令按钮,在窗体上显示的内容是 B)125
C）对象的方法是执行指定操作的过程 D）对象事件的名称可以由编程者指定 （8) 以下合法的 Visual Basic 标识符是 A) ForLoop B) Const C) 9abc D) a#x (9） 当一个复选框被选中时，它的 Value 属性的值是 A) 3 B) 2 C) 1 D) 0 (10) 表达式 5 Mod 3+3\\5*2 的值是 A) 0 B) 2 C)4 D) 6 (11) 设 x=4,y=8,z=7，以下表达式的值是 x<y And (Not y>z) Or z<x A) 1 B) -1 C) True D) False (12) 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="VisualBasic" Print String(3,a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 A） VVV B) Vis C) sic D) 11 (13) 以下叙述中错误的是 A) 在 KeyPress 事件过程中不能识别键盘的按下与释放 B) 在 KeyPress 事件过程中不能识别回车键 C) 在 KeyDown 和 KeyUp 事件过程中，将键盘输入的"A"和"a"视作相同的字母 D) 在 KeyDown 和 KeyUp 事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被 视作不同的字符 (14)在窗体上画一个名称为 Command1 的命令按钮，并编写如下程序： Private Sub Command1_Click() Dim x As Integer Static y As Integer x=10 y=5 Call f1(x,y) Print x,y End Sub Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 A) 10 5 B) 12 5 C) 10 7 D) 12 7
(15)在窗体上画一个名称为 Command1的命令按钮,然后编写如下事件过程: Private Sub Command1 Click x=Input Box(" Input") Select case x Case 1. 3 Print”分支1 Case Is >4 Print"分支2″ Case else Print"Else分支 d select End sub 程序运行后,如果在输入对话框中输入2,则窗体上显示的是 A)分支1 B)分支2C)Else分支 D)程序出错 二.填空题(30分) 1.以下程序段的输出结果是 num num num+1 Print num 2.窗体上有一个名称为List1的列表框,一个名称为Text1的文本框,一个名称为 Label1、 Caption属性为“Sum”的标签,一个名称为 Command1、标题为“计算”的命令按钮。程序 运行后,将把1~100之间能够被7整除的数添加到列表框。如果单击“计算”按钮,则对 List1中的数进行累加求和,并在文本框中显示计算结果,如图所示。以下是实现上述功能 的程序,请填空 Private Sub Form Load For i=1 To 100 If i mod 7=0 Then Next End sub Private Sub Command1 Click For i=0 To Sum =Sumt Next Text. Text=Sum
(15) 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox("Input") Select Case x Case 1,3 Print "分支 1" Case Is >4 Print "分支 2" Case Else Print "Else 分支 " End Select End Sub 程序运行后，如果在输入对话框中输入 2，则窗体上显示的是 A） 分支 1 B） 分支 2 C） Else 分支 D) 程序出错 二.填空题(30 分) 1.以下程序段的输出结果是_______。 num =0 While num<=2 num = num+1 Wend Print num 2.窗体上有一个名称为 List1 的列表框，一个名称为 Text1 的文本框，一个名称为 Label1、 Caption 属性为“Sum”的标签，一个名称为 Command1、标题为“计算”的命令按钮。程序 运行后，将把 1～100 之间能够被 7 整除的数添加到列表框。如果单击“计算”按钮，则对 List1 中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能 的程序，请填空。 Private Sub Form_Load() For i=1 To 100 If i Mod 7 =0 Then ___________ End If Next End Sub Private Sub Command1_Click() Sum =0 For i=0 To_____ Sum =Sum+__________ Next Text1.Text=Sum
End sub 3.阅读程序: Option Base 1 Private Sub Form Click o Dim a(3) As Integer Print"输入的数据是:"; For i=1 to 3 (i)= InputBox("输入数据") Print a(i) Print If a(1)<a(2)Then a(1)=a(2) a(2) If a (2)>a (3)Then ElseIf a(1)>a (3)Then End If Print"中间数是:";m End sub 程序运行后,单击窗体,在输入对话框中分别输入三个整数,程序将输出三个数中的中间数 4.在窗体上画一个名称为“ Command1”,标题为“计算”的命令按钮,再画7个标签,其 中5个标签组成名称为 Labe ll的控件数组;名称为 Label2的标签用于显示计算结果,其Ca ption属性的初始值为空;标签 Label3的标题为“计算结果”。运行程序时会自动生成5个 随机数,分别显示在标签控件数组的各个标签中,如图所示。单击“计算”按钮,则将标签 数组各元素的值累加,然后计算结果显示在 Label2。请填空 Private Sub Command1 Click For i=0 To 4 SumESum+ Nex End 5.在窗体上画一个名称为 Commandl的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1 Click
End Sub 3. 阅读程序： Option Base 1 Private Sub Form_Click() Dim a(3) As Integer Print "输入的数据是："; For i=1 To 3 a(i)=InputBox("输入数据") Print a(i); Next Print If a(1)<a(2) Then t=a(1) a(1)=a(2) a(2)=_______ End If If a(2)>a(3) Then m=a(2) ElseIf a(1)>a(3) Then m=________ Else m=________ End If Print "中间数是：";m End Sub 程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数， 4. 在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画 7 个标签，其 中 5 个标签组成名称为 Label1 的控件数组;名称为 Label2 的标签用于显示计算结果，其 Ca ption 属性的初始值为空;标签 Label3 的标题为“计算结果”。运行程序时会自动生成 5 个 随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签 数组各元素的值累加，然后计算结果显示在 Label2。请填空。 Private Sub Command1_Click() Sum = 0 For i=0 To 4 Sum=Sum+_________ Next ________=Sum End Sub 5. 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click()
Dim a as variant a= Array(1,2,3,4,5) For i=1 To 5 x=Sum/5 For i =1 To 5 If a(i)>x Then Print a(i) d sub 程序运行后,单击命令按钮,在窗体上显示的内容是 三.编程题(40分) 1用 Input Box函数输入长方形的长和宽,用 MsgBox输出长方形的周长和面积(10分) 2打印出3-100的所有素数并统计个数(10分) 3编写求两数中较大数的 Function过程,利用其求3个数中的最大数(10分) 4定义一个数组存储以下数据 TYluoajk mn,将其以倒序输出(10分)
Dim a As Variant a=Array(1,2,3,4,5) Sum=0 For i=1 To 5 Sum = sum+a(i) Next i x=Sum/5 For i =1 To 5 If a(i)>x Then Print a(i); Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 三.编程题 (40 分) 1.用 InputBox 函数输入长方形的长和宽,用 MsgBox 输出长方形的周长和面积.(10 分) 2.打印出 3-100 的所有素数,并统计个数 (10 分) 3.编写求两数中较大数的 Function 过程,利用其求 3 个数中的最大数.(10 分) 4.定义一个数组存储以下数据 T Y I u o a j K g b m n ,将其以倒序输出.(10 分)