vb基础练习题 答案.doc
Vb考试题一、选择题5分一题1、使用Visual Basic编程,我们把工具箱在的工具称为( 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是一种面向对象的程序设计语言，构成对象的三要素是 。 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 i 执行后，s和i的值为 A、1 B、5 C、6 D、15 二、填空判断题4分一题 1、 End if 语句对单行if语句不需要。 2、 表达式 (2*3)>=5 and 12/3 <= 4 的值为false。 3、 VB程序一行写不下，可以直接换行继续写。4、假设整型变量a的值为2、b的值为3，那么以下程序段执行后整型变量c的值为_。 If a>5 then if b<4 then c=a-b else c=b-a End if elseif b>3 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三、编程题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 * 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；另一个用于保存工程，它的扩展名为.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
