【大学Visual Basic考试】vb考试必考题选择题2

大学vb考试题库大全单项选择题81、设a=3,b=5，则以下表达式值为真的是(B)。

A、a>=b And b>10B、(a>b)Or(b>0)C、(a<0)or(b<0)D、(-3+5>a)And(b>0)82、执行语句a=InputBox("Today","Tomorrow","Yesterday",,,"Day before yesterday",5), 将显示一个输入对话框，在对话框的输入区中显示的信息是(A)。

A、TodayB、TomorrowC、YesterdayD、Day before Yesterday83、VB提供了结构化程序设计的3种基本结构，这3种基本结构是（B）。

A、递归结构，分支结构，循环结构B、选择结构，过程结构，顺序结构C、过程结构，输入、输出结构，转向结构D、分支结构，循环结构，顺序结构84、下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是（D）。

A、If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1B、If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1C、If sex=“男”And age＜40 And Right(duty,2)= “教授”Then n=n+1D、If sex=“男”And age＜40 And duty=“教授”And duty=“副教授”Then n=n+185、当语句w=IIf(4>10,”Red”,“Green”)执行后，变量w中的值是（C）。

A、NullB、“Red”C、“Green”D、-186、赋值语句：a=123+MID(“123456”,3,2)执行后，a变量中的值是（D）。

A、“12334”B、123C、12334D、15787、设有语句x=InputBox(“AAAA”，“BBBB”，“”),程序运行后，所产生的对话框的标题应为(C)。

A、AAAAB、空C、BBBBD、出错，不能产生对话框88、下面正确的赋值语句是（C）。

A、x+y=30B、y=π*r*rD、3y=x89、VB提供了结构化程序设计的三种基本结构，三种基本结构是(D)。

A、递归结构、选择结构、循环结构B、选择结构、过程结构、顺序结构C、过程结构、输入输出结构、转向结构D、选择结构、循环结构、顺序结构90、下面程序段求两个数中的大数，不正确的是（D）。

A、Max=IIf(x＞y,x,y)B、If x＞y Then Max=x Else Max=yC、Max=x：If y＞=x Then Max=yD、If y＞x Then Max=y ：Max=x91、下列程序段：Dim x If x Then Print x Else Print x+1 运行后，显示的结果是（A）。

A、1B、0C、-1D、出错92、以下不属于vb的三种基本结构的是（C）？A、顺序结构B、选择结构C、递归结构D、循环结构93、语句If x=1 Then y=1,下列说法正确的是（C）。

A、x=1和y=1均为赋值语句B、x=1和y=1均为关系表达式C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=1为关系表达式94、赋值语句：a=123 & MID(“123456”,3,2)执行后，a变量中的值是（C）。

A、“12334”B、123C、12334D、15795、下面程序段显示的结果是（A）。

Dim xx=Int(Rnd)+5Select Case xCase 5“优秀”Case 4Print“良好”Case 3Print“通过”Case ElsePrint“不通过”A、优秀B、良好C、通过D、不通过96、为了给x,y,z这3个变量赋初值1，下面正确的赋值语句是（A）。

A、x=1：y=1：z=1B、x=1,y=1,z=1C、x=y=z=1D、xyz=197、下列语句正确的是（C）A、If A≠B Then Print "A不等于B"B、If A<>B Then Printf A不等于BC、If A<>B Then Print "A不等于B"D、If A≠B Print "A不等于B"98、设有语句x$=InputBox(“输入数值”，“0”，“示例”),程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是(D)。

A、变量X的值是数值10B、在InputBox对话框标题栏中显示的是“示例”C、0是默认值D、变量X的值是字符串“10”99、运行下列程序段后，显示的结果为（B）J1=4: J2=9 If J1<J2 Then Print J2 Else Print J1A、4B、9C、13D、49100、InputBox函数返回值的类型为(B)。

A、数值B、字符串C、变体D、数值或字符串（视输入的数据而定）101、一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有（C）个元素。

A、25B、36C、30D、不确定102、数组声明语句Dim a(2 to 3, -2 to 2,3 to 5)中，数组a包含元素的个数为(C)。

A、120B、75C、30D、13103、如果在上题语句前加入Option Base 1，则该数组共有（D）个元素。

A、15B、16C、13D、不确定104、如果有声明Dim a(15) As Integer，则该数组共有（B）个元素。

A、15B、16C、13D、不确定105、一个数组说明为Dim a(5，1 to 5) As Integer，则该数组共有（C）个元素。

A、25B、36C、30D、不确定106、在VB中，默认的数组下标的下界从0开始，要想在通用声明段界定下界，则应使用（A）。

A、Option BaseB、Option ExplicitC、ExplicitD、Low Base107、如下数组声明语句，正确的是(B)。

A、Dim a[3, 4] as IntegerB、Dim a(3, 4) as IntegerC、Dim a(n, n) as IntegerD、Dim a[3][4) as Integer108、赋给一个数组的数据的值的类型一定要（A）。

A、相同B、不相同C、两可D、都不对109、数组的下标可取的变量类型是（A）。

A、数值型B、字符型C、日期型D、可变型110、数组声明语句Dim a(0 to 3, -2 to 2,0 to 5)中，数组a包含元素的个数为(A)。

A、120B、75C、60D、13111、假定有如下的Sub过程：Sub S (x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5: b = 4 S a, b Print a, b End Sub 程序运行时，单击命令按钮得到的结果（D）。

A、5 4B、1 1C、1.25 4D、1.25 1112、用以下方式声明的变量，（B）可以在整个程序中通用？A、在窗体模块用Dim进行声明B、在窗体模块用Public进行声明C、在窗体模块用Private进行声明D、在窗体模块用Static进行声明113、在窗体上添加一个命令按钮和三个标签，编写事件过程：Private x As Integer Private Sub Command1_Click()Static y As IntegerDim z As IntegerN=10: z=N+z: y=y+z: x=x+zLabel1.Caption = x Label2.Caption = y Label3.Caption = zEnd Sub程序运行后，连续三次单击命令按钮，则三个标签中显示的内容分别是（A）。

A、10 10 10B、30 30 30C、30 30 10D、10 30 30114、以下叙述中错误的是(D)。

A、如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B、Sub过程中不能嵌套定义Sub过程C、Sub过程中可以嵌套调用Sub过程D、事件过程可以像通用过程一样由用户定义过程名115、在在窗体上添加一个命令按钮Command1和一个文本框Text1，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx = 5y = 7z = 0Text1.Text = ""Call p1(x, y, z)Text1.Text = Str(z)End Sub Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)c = a + bEnd Sub程序运行后，单击命令按钮得到的结果是（A）。

A、12B、0C、Str(z)D、没有显示结果116、如果在程序中要将a定义为静态变量，且为整型数，则应使用的语句是：（B）A、Redim a As IntegerB、Static a As IntegerC、Public a As IntegerD、Dim a As Integer117、以下程序的运行结果是（C）Sub s1(b() As Integer)For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As IntegerFor i = 1 To 4a(i) = i + 5Next is1 a()For i = 1 To 4Print a(i)Next iEnd SubA、12 14 16 18B、6 7 8 9C、2 4 6 8D、1 2 3 4118、以下程序的运行结果是（D）。

Function f(m As Integer) As Integer b = 1 Static c As Integer b = b + 1 c = c + 1 f = m * b * c End Function Private Sub Command1_Click() Dim a As Integer a = 2 Sum = 0 For i = 1 To 3 Sum = Sum + f(a) Next i Print Sum End SubA、12B、28C、32D、24119、下列程序输出结果（C）。