29．在 Visual Basic环境下，当写一个新的 Visual Basic程序时，所做的第一件事是
A.编写代码 B．新建一个工程 C．打开属性窗口 D．进入VB环境
30．Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是
A．属性、事件、方法 B．控件、属性、事件 C．窗体、控件、过程 D． 窗体、控件、模块 31．只能用来显示字符信息的控件是
A.文本框 B.标签框 C.图片框 D.图像框 32．能够改变复选框中背景颜色的属性是
A．value B．Fontcolor C．Backcolor D．Font 33.系统日期的函数是
A. data$ B. time$ C. date$ D. gettime$ 34.设计一个计算器时，必须要使用的控件是 A. 滚动条 B．图片框 C．文本框 D．单选框 35. Visual Basic规定工程文件的扩展名是 A. .for B. .frm C. .vbp D. .bas 36．下列关于事件的叙述中不正确的是
A．事件是系统预先为对象定义的能被对象认别的动作 B．事件可分为用户事件与系统事件两类
C．VB为每个对象设置好各种事件，并定义好事件过程的
6 / 12
过程名，但过程代码必须由用户自行编写 D．VB中所有对象的默认事件都是Click 37．下列各组变量声明正确的是 A．Dim abc as integer , num as single B．Dim I%, N$ as integer C．Dim a%, b%, c%, a$ D．public dim n%
〖变量名的默认类型： %为整型、$为字符型、!为单精型、#为双精型〗
38．下列各赋值语句，语法不正确的是 A． x+y=5 B． BiNumber =15 C． Labell.caption =time D． sLength =x+y
39．如果x=4，那么以下运算结果为True的表达式是 A．(x<=4)and(x>=6) B．(x>=4)Or(x>=6) C．(x>=4)Xor(x>=6) D．not(x<>4)
40．如果想在程序中反复使用一个数据“01/01/2000”，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到这个数据的语句，可以采用
A．将这个数据声明为字符串型常量，用一个常量标识符代表它。
7 / 12
B．将这个数据声明为字符串型变量，用一个变量标识符表示它。
C．将这个数据声明为日期型常量，用一个常量标识符代表它。
D．将这个数据声明为日期型变量，用一个变量标识符表示它。
二．填空题
41．有如下程序段： x＝5 y=6 x=y y=x print y
该程序段运行后，y的值为___ _（逐句分析变量值的变化）
42．有如下程序段： x=5 y=－20
if Not x>0 then x＝y－3 else y＝x+3 endif
该程序段运行后，x的值为____
8 / 12
43．有如下程序段： e＝0：f＝1 For i=1 to 3 e=e+f f=f+e Next i
该程序段运行后，f的值为_____________
144．将数学表达式sinxcosx（x的单位：弧度）写成相应的Visual
2Basic表达式后为
45．在计算器中编写\相乘\按钮的Click事件过程中，具体代码如下，请填空：
(1)将两个输入文本框中的数据转换成double型数，并分别赋值给num1,num2;
(2)计算乘积，并用变量chenji表示；
(3)将chenji转换成字符串数据，在\中输出。 Private Sub command2_click() num1=(text2.text) num2=(text3.text) chenji= Text1.text= End Sub
46. 某算法的流程图及其编写中的Visual Basic代码如下图所示。
9 / 12
分析流程图，在代码窗口中①处应填写的代码正确的是：
Do While a = n = n + 1
Loop
47．有如下VB程序段，执行完计算其结果是 s = 0 i = 0
Do While i <= 10
If i Mod 2 = 0 Then s = s + i i = i + 1 Else
i = i + 1 End If Loop Print s
10 / 12
高中信息技术习题vb部分
