28．在程序中添加一个命令按钮，并编写如下程序代码：
PrivateSubCommand1_Click（）
x="12.34":
y="56.78"
z=x+y
p=Val（z）
Printp
EndSub
程序运行后，单击命令按钮后的输出结果为（D）。
A．12.34B．56.78C．69.12D．12.3456
29．在VisualBasic中表达式x=8的类型是（B）。
A．错误的表达式B．关系表达式
C．算术表达式D．逻辑表达式
30．在下列四个表达式中，非法的VisualBasic表达式是（D）。
A．x=x+yB．x+y>zC．x=（x=y）D．以上均为合法表达式
31．数学式子Sin30写成VisualBasic表达式是（D）。
A．Sin30
B．Sin（30）
C．SIN（300）
D．Sin（30*3.14/180）
32．用于获得字符串S最右边4个字符的函数是（A）。
A．Right（S,4）B．Left（S,4）
C．RightStr（S）D．RightStr（）
33．用于获得字符串S从第6个字符开始的4个字符的函数是（A）。
A．Mid（S,6,4）B．Mid（S,4,6）
C．MidStr（S,6,4）D．MidStr（S,4,6）
34．用于获得字符串长度的函数是（A）。
A．Len（）B．Length（）
C．StrLen（）D．StrLength（）
35．用于获得字符串S最左边4个字符的函数是（A）。
A．Left（S,4）B．Left（1,4）
C．LeftStr（S）D．LeftStr（S,4）
36．表达式4+5\6*7Mod8/9的值是（A）。
A．4B．5
C．6D．7
37．多窗体操作中工程文件的扩展名是（B）。
A．.frmB．.vbpC．.basD．.cls
38．以下有关VisualBasic语言描述错误的是（C）。
A．不区分大小写
B．语句是一行一句，以回车键结束
C．用“；”分隔一行中的多个语句
D．一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行
39．以下（B）结构不是VisualBasic语言的循环控制结构。
A．For结构
B．SelectCase结构
C．While结构
D．Do结构
40．在窗体上画两个文本框（其Name属性分别为Text1和Tex12）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=1:
n=0
DoWhilex<100
x=x*10
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
EndSub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（B）。
A．10和0B．2和100C．3和50D．4和168
41．在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=0
DoUntilc=-1
a=InputBox（"请输入A的值"）
a=Val（a）
b=InputBox（"请输入B的值"）
b=Val（b）
c=InputBox（"请输入C的值"）
c=Val（c）
a=a+b+c
Loop
Printa
EndSub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则最后的输出结果为（A）。
A．2B．3C．14D．15
42．阅读下面的程序段：
PrivateSubCommand1_Click（）
Fori=1To2
Forj=1Toi
Fork=jTo6
a=a+1
Nextk
Nextj
Nexti
Printa
EndSub
执行上面的三重循环后，a的值为（C）。
A．6B．14C．17D．32
43．在窗体中添加一个命令按钮，然后编写如下程序：
PrivateSubCommand1_Click（）
Dimi
Fori=1To10Step2
i=i+1
Printi;
Nexti
EndSub
单击命令按钮，程序的执行结果为（D）。
A．24681012B．1357911
C．258D．25811
44．要从For…Next循环中退出循环，应使用（B）语句。
A．ExitB．ExitForC．ContinueD．StopLoop
45．在Sub过程定义的“参数列表”中设置参数是按值传送的选项是（A）。
A．ByValB．ByRefC．ParamArrayD．Optional
46．下面有关数组的描述错误的是（D）。
A．数组下界和上界的取值范围是-32768到32767
B．数组下界必须小于上界
C．没有设置OptionBase语句，省略下界，则下界默认值为0
D．在定义数组时，每一维的下标上界值必须是一个常数，不能是变量或者表达式
47．用下面语句定义的数组的元素个数是（D）。
DimA（-3To5）asInteger
A．6B．7C．8D．9
48．下面语句Dimscore（1To15）AsDouble定义了有（B）元素的数组。
A．16个双精度型数B．15个双精度型数
C．16个整型数D．15个整型数
49．下面语句StaticAr（9,9）AsInteger定义了有（D）元素的数组。
A．9个B．18个C．81个D．100个
50．在窗体上画一个命令按钮，然后编写如下事件过程：
OptionBase1
PrivateSubCommand1_Click（）
Dima
a=Array（1,2,3,4）
j=1
Fori=3To0Step-1
s=s+a（i）*j
j=j*10
Nexti
Prints
EndSub
运行上面的程序，单击命令按钮，其输出结果是（D）。
A．12B．123C．1234D．出错
51．Msgbox函数返回值的类型为（A）。
A．整数B．字符串C．变体D．整数或字符串（视输入的数据而定）
52．在“打印”对话框设计中，用来设置要打印的起始页数的属性为（A）。
A．FormpageB．TopageC．StartpageD．Endpage
53．以下对函数过程（Function过程）的描述错误的是（B）。
A．Function过程以Function开头，以EndFunction结束
B．函数过程中可以利用Exit退出
C．函数过程不能嵌套定义
D．函数过程可以嵌套调用
54．VisualBasic提供的常用键盘事件中返回“字符”ASCII码的是（C）。
A．KeyDownB．KeyUpC．KeyPressD．KeyAscii
55．以下（A）序列分别是判断文件指针是否到了文件结束标志的函数、返回文件的字节数的函数、用于设置对文件“锁定”的语句、用于设置对文件“解锁”的语句。
A．EOF、LOF、Lock、UnlockB．LOF、EOF、Lock、Unlock
C．EOF、LOF、Unlock、LockD．LOF、EOF、Unlock、Lock
56．顺序文件的读操作通过下列（D）语句可以实现。
A．Input#和Read#B．Read#和Get#
C．Get#和Input##D．LineInput#和Input#
57．如果准备读文件，打开顺序文件“text.dat”的正确语句是（B）。
A．Open"text.dat"ForWriteAs#1B．Open"text.dat"ForInputAs#1
C．Open"text.dat"ForBinaryAs#1D．Open"text.dat"ForRandomAs#1
58．如果准备向随机文件中写入数据，正确的语句是（C）。
A．Print#1,recB．Write#1,rec
C．Put#1,,recD．Get#1,,rec
59．当改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（C）。
A．在Dir1_Change（）事件中加入代码Dir1.Path=Drive1.Drive
B．在Dir1_Channge（）事件中加入代码Drive1.Drive=Dir1.Path
C．在Dirve1_Channge（）事件中加入代码Dir1.Path=Drive1.Drive
D．在Dirve1_Channge（）事件中加入代码Drive1.Drive=Dir1.Path
60．目录列表框Path属性的作用是（A）。
A．显示当前驱动器或指定驱动器上的目录结构
B．显示当前驱动器或指定驱动器上的某目录下的文件
C．显示根目录下的文件名
D．显示路径下的文件
61．在下列选项中，不能将图像装入图片框和图像框的是（B）。
A．在界面设计时，通过Picture属性装入
B．在界面设计时，手工在图像框和图片框中绘制图形
C．在界面设计时，利用剪贴板把图像粘贴上
D．在程序运行期间，用LoadPicture函数把图形文件装入
62．下面错误的语句是（C）。
A．Line（200,200）-（400,400）,RGB（255,0,0）
B．Line（200,200）-（400,400）,,B
C．Line（200,200）-（400,400）,,F
D．Circle（600,600）,300,RGB（255,0,0）
63．下面选项中，能绘制填充矩形的语句是（B）。
A．Line（200,200）-（500,500）,B
B．Line（200,200）-（500,500）,,BF
C．Line（200,200）-（500,500）,BF
D．Line（200,200）-（500,500）
64．下面选项中，能绘制一条水平直线的选项是（C）。
A．Line（1000,2000）-（1000,2000）
B．Line（1000,2000）-（1000,3000）
C．Line（1000,2000）-（2000,2000）
D．Line（1000,2000）-（2000,3000）
65．下面选项中，能绘制椭圆的语句是（C）。
A．Circle（1000,1000）,500,RGB（255,0,0）,0.5
B．Circle（1000,1000）,500,RGB（255,0,0）,,0.5
C．Circle（1000,1000）,500,RGB（255,0,0）,,,0.5
D．Circle（1000,1000）,500,RGB（255,0,0）,,,,0.5
66．图像框（Image）和图片框（Picture）在使用时有所不同，以下叙述中正确的是（D）。
A．图片框比图像框占内存少
B．图像框内还可包括其它控件
C．图片框有Stretch属性而图像框没有
D．图像框有Stretch属性而图片框没有
67．ADOrs为Recordset对象，从Tabel中获取所有记录的语句是（C）。
A．ADOrs.New"Select*FromTabel"
B．ADOrs.Open"Select*FromTabel"
C．ADOrs.Execute"Select*FromTabel"
D．ADOrs.Select"Select*FromTabel"
68．要发送数据，通常使用Winsock控件的（A）。
A．SendData方法B．Listen方法
C．Accept方法D．GetData方法
69．VB程序中通常不会产生错误提示的（D）。
A．编译错误B．实时错误
C．运行时错误D．逻辑错误
70．在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是（D）。
A．窗体设计器B．代码编辑器窗口
C．属性窗口D．工程资源管理器窗口
71．在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（C）。
A．立即窗口B．属性窗口
C．代码窗口D．工程资源管理器窗口
72．后缀为.vbp的文件表示VB的（C）。
A．窗体文件B．类模块文件
C．工程文件D．标准类模块文件
73．要在窗体Form1内显示“myfrm”，使用的语句是（C）。
A．Form.caption="myfrm"B．Form1.caption="myfrm"
C．Form1.print"myfrm"D．Form.print"myfrm"
74．表达式8+13Mod2*4+3的值是（B）。
A．8B．16C．15D．12
75．文本框没有（C）属性。
A．TextB．NameC．CaptionD．BorderStyle
76.下列赋值语句正确的是（B）。
A．B+C=AB．A=B+C
C．-B=AD．5=A+B
77．如果准备向随机文件中写入数据，正确的语句
升级会员 