1、Vb考试题一、选择题（5分一题）1、使用Visual Basic编程,我们把工具箱在的工具称为( )。 A.事件 B.工具 C.控件 D.窗体2、我们保存一个编写好的程序，“过程名”是以（ ）作为扩展名的。 A、.frm B、.vbp C、.bat D、.bas 3、下列变量名写法正确的是（ ）。 A、abc B、abc123 C、abc_123 D、123abc 4、结束当前程序的语句是（ ）。 A、quit B、exit C、end D、sub 5、要改变窗体的标题时，应当在属性窗口中改变的属性是（ ）。 A、Caption B、Name C、Text D、Label 6、VB是一种面向对
2、象的程序设计语言，构成对象的三要素是（ ）。 A、属性、事件、方法 B、控件、属性、事件 C、窗体、控件、过程 D、窗体、控件、事件 7、在VB中表达式113+11 mod 3 的运算结果值是（ ）。 A、3 B、4 C、5 D、6 8、语句段 a=3: b=5 t=a: a=b: b=t 执行后，（ ）。 A、a值为3，b值为3 B、a值为3，b值为5 C、a值为5，b值为5 D、a值为5，b值为3 9、语句if 3*4=10 then a=1 else a=2 执行后，a的值为（ ）。 A、12 B、10 C、1 D、2 10、语句段 s=0 for i=1 to 5 s=s+i next
3、 i 执行后，s和i的值为（ ） A、1 B、5 C、6 D、15 二、填空判断题（4分一题）（ ）1、 End if 语句对单行if语句不需要。 （ ）2、 表达式 (2*3)=5 and 12/3 5 then if b3 then c=a*b else c=a mod b End if 5、以下程序用来输出1到100所有奇数的和，请补充完该程序。 Private Sub Command3_Click() Dim s As Long Dim x As Integer s = 0 For x=1 to 100 step_ s = s + x Next x Print s End Sub三、编
4、程题（30分）1、有如下一个窗体（20分）要求：变成实现1） 控件加载时，text1、text2、label1清空，label1文字居中，command1文字变成“执行”2） 实现输入2个不相等的数，求这两个数之间不能被3整除的数，依次显示在label1中3） 做判断，text1与text2如果相等，或者没有输入数据，给出msgbox的提醒2、改错题（本题10分） 求100999之间的水仙花数1Private Sub Command1_Click()2Dim a, b, c As Intger3For i = 100 To 999 step 24 a = i 1005 b = (i - 100
5、 * a) 106 c = i - 100 * a - 10 * b7 If i = a * a * a + b * b * b + c * c * c Then Text1.Text = Text1.Text & i & 8Next i9End Sub1011Private Sub Form_Load()12Text1.Text = 13Text1.Lock = True14Command1.Caption = 显示100-1000之内的水仙花数15End Sub参考答案：一、选择题：1、C 2、B，在保存VB文件时，会弹出两个保存窗口，一个是用于保存窗体文件，它的扩展名为.frm；另一个用
6、于保存工程，它的扩展名为.vbp。 3、ABC4、C 5、A 6、B，属性: 对象的特征，如尺寸、位置、颜色或文本。属性决定对象的外观，有时也决定对象的行为。事件：由用户或操作系统引发的动作，如击键、单击鼠标、一段时间的限制等。方法：嵌入在对象定义中的程序代码，它定义对象怎样处理信息并响应某事件。7、C，“”整除，值为商的整数部分；“mod”求余，值为整除后的余数。 8、D， 最后三条语句是交换两个变量的值，交换两个变量的值也可以用下列语句： a=a+b: b=a-b: a=a-b 9、D，if条件语句当条件成立(为真)执行then后语句，否则执行else 后语句。 10、DC，for循环语句省略“step 步长值”，步长值为1可省略；本程序段是求s=1+2+3+4+5的值， 循环变量i的值超出终值5时退出循环，i的值应为6二、判断题 1是 2否 3否，VB程序一行写不下，可在行尾用空格加一短线“_”实现换行连接。 4、25、2改错2 、 int类型写错3、 step 113、 locked14、求100999
