VB程序设计试卷

VB程序设计补修课试卷 一、单选题每题2分，空20分 1. VB6.0是一种面向 的编程环境。 A 机器B对象 C过程D应用 2. 要使I窗体的标题栏显示”欢迎使用VB”，以下语句是正确的。 A l.Caption欢迎使用 VB” B l.Caption欢迎使用 VB C l.Caption欢迎使用 VB D l.Caption欢迎使用 VB 3. 若要使命令按钮不可操作，要对属性进行设置。 A EnabledBVisible C B ackcolorDCaption 4. 如果在窗体上已经创建了一个文本框对象Textl,可以通过事件获得输入键值的ASCII 码。 A ChangeB LostFocus C KeyPressD GotFocus 5. 下面是合法的变量名。 A X_yz B 123abC integer D X-Y 6. 以下关系表达式中，其值为False的是。 A ABCAbCB ”女””男” C BASICUCasebasic D 12323 7. 为了给x、y、z三个变量赋初值1,下面正确的赋值语句是。 A xlylzlB xl,yl,zl C xyzlD xyzl 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是。 A 递归结构、选择结构、循环结构 B 选择结构、过程结构、顺序结构 C 过程结构、输入输出结构、转向结构 D 选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语 句是。 A If sex男”And age4O And InStrduty,教授”O Then nnl B If sex男And age4O And duty教授Or duty副教授Then nnl C If sex男”And age4O And Rightduty, 2教授Then nnl D If sex男”And age4O And duty教授And duty副教授Then nnl 10. 下列关于Do...Loop循环结构执行循环次数的描述正确的是o A Do While...Loop循环和Do...Loop Until循环至少都执行一次 B Do While...Loop循环和Do...Loop Until循环可能都不执行 C Do While...Loop循环至少执行一次和Do...Loop Until循环可能不执行 D Do While...Loop循环可能不执行和Do...Loop Until循环至少执行一次 二、判断题每空2分，共20分 1 只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可完成。 2 控件是对象，而窗体不是对象，它只是控件对象的窗口。 3）TextBox与Label有许多共同特点，它们都能显示和输入文本。 4）有的对象属性既可在属性窗口中设定又可在程序代码中设定。 5）在框架控件内的几个单选按钮中，只能有一个单选按钮的Value属性为True。 6）标签没有Change事件和SetFocus方法。 7）事件过程与Sub过程，它们相同点都是事件驱动，而不同的只是事件过程由控件属性决定， 而Sub过程是山户自定义。 8）Function函数有参数传递，并且一定有返回值。 9）滚动条控件不可作为用户输入数据的方法。 10）Msgbox函数建立的信息框能显示信息又能输入用户的信息。 三、填空题（每空2分，共20分） 1. 变量min表示（）类型的变量。 2. 如果111 J3 Iint（-8.6）I\J13/3MOD5,贝 Ul 值是（）。 3. 请写出满足以下条件的VB表达式0X10, （）o X为［0-100］之间的数，能被2 整除，但不能被3整除（）o 4. 下列循环语句控制的循环次数为 （）FOR K1 TO 10 STEP-lo 5. 表达式land。的值 （）。 6. 随机产生100至200 （不包括100和200）之间的整数的表达式为（）；如果包 括100而不包括200,则表达式为（）。 7. 写出清除图片框的文字或图形信息的语句（）。 8. 写出清除标签显示信息的语句为（）。 四、程序阅读（每小题10分，共20分） 1. CBox（“请输入字符串”） P For LLenc To 2 Step -2 PMidC,L-1,2 P Next L Print P End Sub 如果输入ABCDEFG ,则结果 2 ・ Dim Y As Integer Private Sub Command_Click Dim X As Integer XT Y1 CallAAYl ZBBX Print X, Y,Z End Sub Private Sub AAByVal Z As Integer Y Z X Z X Y End Sub Private Function BB ByRef Y As Integer Y Y 1 BBX Y End Function 结果 五、编程应用题共20分 程序阅读，写出下列程序的运行结果。 Private Sub Commandl_Click Dim a, i, min, imin, sum, t aArray26, 43, 61, 87, 33, 19, 37, 59, 76, 69 mina0 imin0 suma0 For il to UBounda sumsumai If ai min Then minai imini Next i ta0 a0aimin aimint Print sum; a0 End Sub 输出结果