资源描述：
《vb试题和答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、一、单选题（每题1分）（1）下面A是合法的变量名。A、X_yzB、123abcC、integerD、X-Y（2）InputBox函数返回值的类型为___A___。A、字符串B、变体C、数值D、不确定（3）使一个控件不可见，应设置其_B__属性。A、EnableB、VisibleC、FontD、BackColor（4）要想从子过程调用后返回两个结果，下面子过程语句说明合法的是__B__Ａ、Subf(ByVala%,ByValb%)Ｂ、Subf(a%,b%)Ｃ、Subf(ByVala%,b%)Ｄ、Subf(a%,ByValb%)（5）
2、窗体从加载到显示时，将会发生一系列的事件，最先发生的事件是＿A＿。A、Initialize B、LoadC、Activate D、Resize（6）在窗体上画1个文本框，其名称为Text1，然后编写如下过程： PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger) PrintChr(KeyCode) EndSub PrivateSubText1_KeyUp(KeyCodeAsInteger，ShiftAsInteger) PrintChr(Ke
3、yCode+2) EndSub 程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为（B）。 A)AB)AC)AD)A ACBD（7）字符串x$中从第一个非空格字符开始数起，取第3个字符及其后所有字符构成的字符串的VB表达式。A、Mid(x$,1,3)B、Mid(Trim(x$),3)C、Left(x$,3)D、Left(Trim(x$),3)（8）通用对话框控件的属性Fiter表示___B_____.A、路径名B、文件类型C、文件主名D、文件扩展名（9）通过文本框的__A__方法可以将焦点移到指定的对象上。
4、A、SetFocusB、KeyPressC、GotFocusD、LostFocus（10）假定已定义了一个过程SubAdd(aassingle,bassingle),则正确的调用语句是__A__.A、Add12,12B、CallAdd[12,12]C、CallAddx,yD、CallAdd(12,12,x)（11）以下哪个选项可用来获得列表框中最高项的索引值？___C____。A、SortB、CountC、ListCount-1D、ListCount（12）如果用长整数&H000000FF&来表示颜色，则此颜色为__A___。A.
5、红色B.黄色C.蓝色D.绿色（13）下列关系运算结果为“True”的是____C_____。A．“1”+2=“12”B．“1”+“2”=“3”C．“1”&2=“12”D．“1”&“2”=“3”（14）在VB中，要将一个窗体从内存中释放，应使用的语句是＿D＿。A.ShowB.HideC.LoadD.Unload（15）在用通用对话框控件弹出“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即.txt文件），则正确的描述格式是＿＿A＿。A、”text（*.txt）
6、*.txt” B、”文本文件（
7、.txt）
8、.txt”C、”text（.txt）
9、
10、（*.txt）” D、”text（.txt）（*.txt）”（16）枚举的第l个常数的默认值是BA、1B、0C、TrueD、False（17）下列哪一种对象不具有Caption属性?（B）A.FormB.PictureBoxC.LabelD.Frame（18）对于TextBox控件，哪一种事件可以测得KeyAskii值？CA.KeyUpB.KeyDownC.KeyPressD.Click（19）当文本框的ScrollBars属性设置了非零值，却没有显示滚动条，原因是__B__
11、_。A.文本框中没有内容B.文本框的MultiLine属性为FalseC.文本框的MultiLine属性为TureD.文本框的Locked属性为Ture（20）如果要制作菜单的分隔栏，应选用的字符是___C__。A.*B.^C.-D.~二、填空题（每空2分，共20分）(1)下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果，本程序在文本框中输入表达式，边输入，边统计，以输入回车符作为表达式输入结束，然后显示结果，界面如图1所示。图1运行界面Dimcount1%PrivateSubText1_KeyPress(Ke
12、yAsciiAsInteger)Ifchr(keyascii)=”(”Thencount1=count1+1ElseIfChr(KeyAscii)=")"Thencount=count-1EndIfIfKeyAscii=13ThenIfcount=
