《vb基础练习题 答案.doc》由会员分享，可在线阅读，更多相关《vb基础练习题 答案.doc（5页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、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、属性、事件、方法
2、 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
3、分一题 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三、编程题30分1、有如下一个窗体20分要求：变成实现1） 控件加载时，text1、text2、labe
4、l1清空，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
5、 * 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，属性: 对象的特征，如尺寸、位置、颜色或文
6、本。属性决定对象的外观，有时也决定对象的行为。事件：由用户或操作系统引发的动作，如击键、单击鼠标、一段时间的限制等。方法：嵌入在对象定义中的程序代码，它定义对象怎样处理信息并响应某事件。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