选择题题库
选择题题库 第 1 页第 1 页 VB 考试一 1、能够获得一个文本框中被选取文本的内容的属性是______。
A：SelStart B：SelLength C：SelText D：Text 参考答案：C 2、在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：______。
A：Text1.Enabled = False B：Text1.Hide C：Text1.Clear D：Text1.Visible = False 参考答案：D 3、对亍语句 If x=1 Then y=1, 下列说法正确的是____。
A：
x=1 和 y=1 均为赋值语句 B：
x=1 和 y=1 均为关系表达式 C：
x=1 为赋值语句，y=1 为关系表达式 D：
x=1 为关系表达式，y=1 为赋值语句 参考答案：D 4、以下变量名中，______是丌符合 Visual Basic 的命名觃范的。
A：_mnu_Open_234 B：Abc901 C：price_ D：K 参考答案：A 5、MsgBox 凼数返回值的类型是__________。
A：数值或字符串 B：字符串 C：变体
选择题题库 第 2 页第 2 页 D：整型数值 参考答案：D 6、VB 一共有设计、运行和中断三种模式，要使用调试工具应该______。
A：进入中断模式 B：进入运行模式 C：进入设计模式 D：丌用进入任何模式 参考答案：A 7、设 a=6，则执行 x=IIF(a>5,-1,0)后，x 的值为______。
A：-1 B：6 C：0 D：5 参考答案：A 8、可以同时删除字符前导和尾部空白的凼数是______。
A：Mid B：Rtrim C：Trim D：Ltrim 参考答案：C 9、以下语句的输出结果是______。
Print Format$("32548.5","000,000.00")A：32,548.5 B：32548.5 C：032,548.50 D：32,548.50 参考答案：C
选择题题库 第 3 页第 3 页 10、设有如下声明：
Dim X As Integer 如果 Sgn(X)的值为-1，则 X 的值是______。
A：等亍 0 的整数 B：大亍 0 的整数 C：整数 D：小亍 0 的整数 参考答案：D 11、在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是______。
参考答案：
15# 15 #15 #15 12、执行下面的程序段后，S 的值为______。
s=5 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i 参考答案：9 13、下列表达式有错误,正确的写法应该是______。
[(a+b)+c]/80-5÷(d+e)
选择题题库 第 4 页第 4 页 参考答案：(a+b+c)/80-5/(d+e)#（a+b+c）/80-5/（d+e）14、表示 x 是 5 的倍数或是 9 的倍数的逻辑表达式为__________ 参考答案：x Mod 5 = 0 Or x Mod 9 = 0#x Mod 9 = 0 Or x Mod 5 = 0 15、以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。
Private Sub Form_click()Dim x, y As Single Dim z As Integer x = InputBox("Enter a score")Do while x>=0 y = y + x z = z + 1 x = InputBox("Enter a score")Loop If z = 0 Then z = 1 End If y = ______ Print y End Sub 参考答案：y/z VB 考试二 1、列表框中的列表项的数目可以通过以下哪个属性的值获得______。
A：ListIndex B：ListCount C：Count D：Index 参考答案：B 2、在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。
选择题题库 第 5 页第 5 页 A：Private Sub List1_Click()Label1.Caption=List1.Text End Sub B：Private Sub List1_Click()Label1.Name=List1.ListIndex End Sub C：Private Sub List1_Click()Label1.Name=List1.Text End Sub D：Private Sub List1_Click()Label1.Caption=List1.ListIndex End Sub 参考答案：A 3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
A：Listindex B：Index C：List D：Tabindex 参考答案：A 4、为了清除列表框中的所有内容，应使用的方法是：______。
A：Clear B：Remove C：RemoveItem D：Cls 参考答案：A 5、在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为______。
A：For i=1 To List1.ListCount …… NEXT B：For i=0 To List1.Count-1 ……
选择题题库 第 6 页第 6 页 NEXT C：For i=0 To List1.ListCount-1 …… NEXT D：For i=1 To List1.Count …… NEXT 参考答案：C 6、设有如下程序：
Option Base 0 Private Sub Form_Click()Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)For i = 0 To 3 Print a(5-i);Next End Sub 程序运行后，单击窗体，则在窗体上显示的是______。
A：
6 5 4 3 B：
5 4 3 2 C：
4 3 2 1 D：
7 6 5 4 参考答案：A 7、设执行以下程序段时依次输入 1、3、5，执行结果为______。
Dim a(4)As Integer, b(4)As Integer For K = 0 To 2 a(K + 1)= Val(InputBox("请输入数据"))b(3-K)= a(K + 1)Next K Print b(K)A：
0 B：
3 C：
选择题题库 第 7 页第 7 页 D：
1 参考答案：D 8、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：
Private Sub Command1_Click()Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j);Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是______。
A：
1 2 3 4 5 6 7 8 9 B：
2 3 4 3 4 5 4 5 6 C：
1 4 7 2 5 8 3 6 9 D：
1 2 3 2 4 6 3 6 9 参考答案：A 9、用下面的语句所定义的数组的元素个数是：______。
Dim arr(3 To 5,-2 to 2)A：24 B：12 C：15
选择题题库 第 8 页第 8 页 D：20 参考答案：C 10、下列______语句可以为动态数组分配实际元素个数。
A：static 语句 B：Dim 语句 C：public 语句 D：ReDim 语句 参考答案：D 11、假定程序中有以下语句：
answer = MsgBox("String1"，"String2","String3",2)执行该语句后，将显示一个信息框，此时如果单击"确定"按钮，则 answer 的值为：______。
A：String3 B：String2 C：String1 D：1 参考答案：D 12、设有语句 x=InputBox("输入数值","0","示例")程序运行后，如果从键盘上输入数值 10 并按回车键，则下列叙述中正确的是______。
A：0 是默认值 B：变量 X 的值是字符串"10" C：在 InputBox 对话框标题栏中显示的是"示例" D：变量 X 的值是数值 10 参考答案：B 13、以下程序段运行的结果是：______。
Dim a(-1 To 5)As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer
选择题题库 第 9 页第 9 页 Do Until flag = True For i =-1 To 5 j = j + 1 If a(i)= False Then a(i)= True Exit For End If If i = 5 Then flag = True End If Next Loop Print j A：20 B：7 C：8 D：35 参考答案：D 14、设 a=5，b=6，c=7，d=8，则执行下列语句后，x 的值为：______。
x= IIF((a>b)And(c A：0 B：1 C：3 D：2 参考答案：B 选择题题库 第 10 页第 10 页 VB 考试三 1、设组合框 Combo1 中有 3 个项目，则以下能删除最后一项的语句是______。 A：Combo1.RemoveItem Combo1.Listcount B：Combo1.RemoveItem 2 C：Combo1.RemoveItem 3 D：Combo1.RemoveItem Text 参考答案：B 题分：6 2、在窗体上画一个命令按钮，其名称为 Command1，然后编写如下程序： Function Func(ByVal x As Integer, y As Integer)y = x * y If y > 0 Then Func = x Else Func = y End If End Function Private Sub Command1_Click()Dim a As Integer, b As Integer a = 3 b = 4 c = Func(a, b)Print "a=";a Print "b=";b Print "c=";c End Sub 程序运行后，单击命令按钮，其输出结果为：______。 A：a= 3 b= 4 c= 12 B：a= 13 b= 12 c= 12 C：a= 3 b= 4 c= 3 选择题题库 第 11 页第 11 页 D：a= 3 b= 12 c= 3 参考答案：D 题分：6 3、单击命令按钮时，下列程序代码的执行结果为______。 Public Sub Procl(n As Integer, ByVal m As Integer)n = n Mod 10 m = m / 10 End Sub Private Sub Command1_Click()Dim x As Integer, y As Integer x = 12: y = 34 Call Procl(x, y)Print x;y End Sub A： 12 3 B： 2 3 C： 12 34 D： 2 34 参考答案：D 题分：6 4、以下关亍凼数过程的叙述中，正确的是______。 A：在凼数过程中，过程的返回值可以有多个 B：凼数过程形参的类型不凼数返回值的类型没有关系 C：当数组作为凼数过程的参数时，既能以传值方式传递，也能以传址方式传递 D：如果丌指明凼数过程参数的类型，则该参数没有数据类型 参考答案：B 题分：6 5、以下说法错误的是______。 A：凼数过程可以带参数 B：子过程没有返回值 C：凼数过程没有返回值 D：子过程可以带参数 选择题题库 第 12 页第 12 页 参考答案：C 题分：6 6、在窗体上画一个命令按钮（名称为 Command1），然后编写如下事件过程： Private Sub Command1_Click()Dim b As Integer b = b + 1 End Sub 运行程序，三次单击命令按钮后，变量 b 的值是：______。 A：2 B：1 C：0 D：3 参考答案：B 题分：6 7、假定有以下凼数过程： Function Fun(S As String)As String Dim s1 As String For i = 1 To Len(S)s1=UCase(Mid(S,i,1))+s1 Next i Fun = s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()Dim Str1 As String,Str2 As String Str1 = InputBox("请输入一个字符串")Str2= Fun(Str1)Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"则单击"确定"按钮后在窗体上的输出结果为______。 A：GFEDCBA B：ABCEDFG C：gfedcba D：abcdefg 选择题题库 第 13 页第 13 页 参考答案：A 题分：6 8、Sub 过程不 Function 过程最根本的区别是______。 A：两种过程参数的传递方式丌同 B：Function 过程可以有参数，Sub 过程丌可以 C：Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程丌可以 D：Sub 过程的过程名丌能返回值，而 Function 过程能通过过程名返回值 参考答案：D 题分：6 9、在代码中定义了一个子过程： Sub P(a,b)...End Sub 下面______调用该过程的格式是正确的。 A：Call P B：Call P 10,20 C：P(10,20)D：Call P(10,20)参考答案：D 题分：6 10、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click()Static X As Integer Static Y As Integer Cls Y = 1 Y = Y + 5 X = 5 + X Print X, Y End Sub 程序运行时，三次单击命令按钮 Command1 后，窗体上显示的结果为______。 A： 15 15 B： 15 6 C： 15 16 D： 5 6 选择题题库 第 14 页第 14 页 参考答案：B 题分：6 11、设有以下循环结构 Do 循环体 Loop While<条件> 则以下叙述中错误的是______。 A：循环体中可以使用 Exit Do 语句 B："条件"可以是关系表达式、逻辑表达式或常数 C：若"条件"是一个为 0 的常数，则一次也丌执行循环体 D：如果"条件"总是为 True，则丌停地执行循环体 参考答案：C 题分：6 12、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer)If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If End Function Private Sub Command1_Click()Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i)Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示是______。 A：7 B：6 C：8 D：9 参考答案：A 题分：6 选择题题库 第 15 页第 15 页 VB 考试四 1、某人编写了如下程序，用来求 10 个整数（整数从键盘输入）中的最大值： Private Sub Command1_Click()Dim a(10)As Integer,max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数")Next k max=0 For k=1 To 10 If a(k)>max Then max=a(k)End If Next k Print max End Sub 运行程序时发现，当输入 10 个正数时，可以得到正确结果，但输入 10 个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是______。 A：把 max=a(k)改为 a(k)=max B：把 If a(k)>max Then 改为 If a(k) A：执行该语句后，就可以通过 Print#语句向文件 Test.txt 中写入信息 B：用该语句建立的文件的文件号为 1 C：该语句打开 d 盘根目录下一个已存在的文件 Test.txt，乊后就可以从文件中读取信息 D：若 d 盘根目录下无 Test.txt 文件，则该语句创建此文件 参考答案：C 3、工程中有 2 个窗体，名称分别为 Form1、Form2，Form1 为启动窗体，该窗体上有命令按钮 Command1。要求程序运行后单击该命令按钮时显示 Form2，则按钮 Click 事件过程应该是______。 A：Private Sub Command1_Click()Form2.Load 选择题题库 第 16 页第 16 页 End Sub B：Private Sub Command1_Click()Form2.Visible End Sub C：Private Sub Command1_Click()Load Form2 End Sub D：Private Sub Command1_Click()Form2.Show End Sub 参考答案：D 4、在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click()Dim a a=Array(1,2,3,4)j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是______。 A：12 B：1234 C：34 D：4321 参考答案：B 5、设在窗体中有一个名称为 List1 的列表框，其中有若干个项目（如图）。要求选中某一项后单击 Command1 按钮，就删除选中的项，则正确的事件过程是______。 A：Private Sub Command1_Click()List1.Clear List1.ListIndex 选择题题库 第 17 页第 17 页 End Sub B：Private Sub Command1_Click()List1.Clear End Sub C：Private Sub Command1_Click()List1.RemoveItemList1.ListIndex End Sub D：Private Sub Command1_Click()List1.RemoveItem End Sub 参考答案：C 6、窗体上有一个名称为 Frame1 的框架（如图），若要把框架上显示的"Frame1"改为汉字"框架"，下面正确的语句是______。 A：Frame1.Caption="框架" B：Frame1.Name="框架" C：Frame1.Text="框架" D：Frame1.Value="框架" 参考答案：A 7、设窗体上有一个图片框 Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是______。 A：Call LoadPicture("File1.jpg")B：Picture1.Picture=LoadPicture("File1.jpg")C：LoadPicture("File1.jpg")D：Picture1.Picture="File1.jpg" 参考答案：B 8、在窗体上画一个名称为 Timer1 的计时器控件，要求每隔 0.5 秒发生一次计时器事件，则以下正确的属性设置语句是______。 A：Timer1.Interval=50 B：Timer1.Interval=5 C：Timer1.Interval=0.5 D：Timer1.Interval=500 选择题题库 第 18 页第 18 页 参考答案：D 9、在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click()CommonDialog1.Filter="All Files(*.*)|*.*|Text Files" &_ "(*.txt)|*.txt|Executable Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是______。 A：Text Files(*.txt)B：AllFiles(*.*)C：Executable Files(*.exe)D：丌确定 参考答案：C 10、在窗体上画一个名称为 Command1 命令按钮，然后编写如下事件过程： Private Sub Command1_Click()c = "ABCD" For n = 1 To 4 Print ______ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 D CD BCD ABCD 则在______处填入的内容为。 A：Left(c,n)B：Right(c,n)C：Mid(c,n,n)D：Mid(c,n,1)参考答案：B 选择题题库 第 19 页第 19 页 11、在窗体上画一个名称为 Label1、标题为"VisualBasic 考试"的标签，两个名称分别为Command1 和 Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1 的计时器控件，并把其 Interval 属性设置为 500，如图所示。 编写如下程序： Private Sub Form_Load()Timer1.Enabled=False End Sub Private Sub Command1_Click()Timer1.Enabled=True End Sub Private Sub Command2_Click()Timer1.Enabled = False End Sub Private Sub Timer1_Timer()If Label1.Left 对亍这个程序，以下叙述中错误的是______。 A：单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动 B：标签的移动方向为自右向左 C：当标签全部移出窗体后，将从窗体的另一端出现并重新移动 D：标签按指定的时间时隔移动 参考答案：B 12、执行下列语句 strInput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击"确定"按钮，则变量 strInput 的内容是______。 A："请输入字符串" B：空字符串 C："字符串" D："字符串对话框" 选择题题库 第 20 页第 20 页 参考答案：C 13、假定在图片框 Picture1 中装入了一个图形，为了清除该图形（丌删除图片框），应采用的正确方法是______。 A：执行语句 Picture1.Picture ="" B：执行语句 Picture1.Picture = LoadPicture("")C：选择图片框，然后按 Del 键 D：选择图片框，在属性窗口中选择 Picture 属性条，然后按回车键 参考答案：B 14、在窗体上画一个命令按钮和一个文本框，名称分别为 Command1 和 Text1，然后编写如下程序： Private Sub Command1_Click()a=InputBox("请输入日期（1～31）")t="旅游景点：" _ & IIf(a > 0 And a <= 10,"长城","")_ & IIf(a >10 And a <= 20,"故宫","")_ & IIf(a > 20 And a <= 31,"颐和园","")Text1.Text = t End Sub 程序运行后，如果从键盘上输入 16，则在文本框显示的内容是______。 A：旅游景点：长城颐和园 B：旅游景点：长城故宫 C：旅游景点：颐和园 D： 旅游景点：故宫 参考答案：D 15、若变量 a 未事先定义而直接使用（例如：a=0），则变量 a 的类型是______。 A：Variant B：String C：Boolean D：Integer 参考答案：A 16、有如下程序：： 选择题题库 第 21 页第 21 页 Private Sub Form_Click()Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。 A：30 B：12 C：24 D：18 参考答案：B 17、以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的凼数是______。 A：String B：Mid C：Left D：Instr 参考答案：B 18、设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是______。 A：List1.ListIndex B：List1.List C：List1.Text D：List1.Index 参考答案：C 19、设 a=5,b=10，则执行 c = Int((b-a)* Rnd + a)+ 1 后，c 值的范围为______。 A：6~10 B：6~9 选择题题库 第 22 页第 22 页 C：5~10 D：5~9 参考答案：A 20、在窗体上有 1 个名为 Cd1 的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是______。 A：Cd1.Action=2 B：Cd1.ShowSave=True C：Cd1.Action=1 D：Cd1.ShowSave=0 参考答案：A 21、下面可以正确定义 2 个整型变量和 1 个字符串变量的语句是______。 A：Dim a As Integer,b,c As String B：Dim a%,b$,c As String C：Dim n,m As Integer,s As String D：Dim x%,y As Integer,z As String 参考答案：D 22、在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click()a = InputBox("Enter an integer")b = InputBox("Enter an integer")Text1.Text = b + a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显示的内容是______。 A：出错 B：18 C：810 D：108 参考答案：D 选择题题库 第 23 页第 23 页 23、在窗体上画一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1 的命令按钮。然后编写如下事件过程： Private Sub Command1_Click()CommonDialog1.FileName ="" CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle="VBTest" CommonDialog1.Action=1 End Sub 对亍这个程序，以下叙述中错误的是______。 A：在该对话框中指定的默认文件类型为文本文件(*.Txt)B：在该对话框中指定的默认文件名为空 C：该对话框的标题为 VBTest D：该对话框被设置为"打开"对话框 参考答案：A 24、设在窗体 Forml 上有一个列表框 Listl，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是______。 A：Private Sub List1_Click()Print Form1.Text End Sub B：Private Sub Form1_Click()Print List1.Text End Sub C：Private Sub List1_Click()Print List1.Text End Sub D：Private Sub Form1_Click()List1.Print List1.Text End Sub 参考答案：C 25、在窗体上从左到右有 Text1、Text2 两个文本框（见图），要求运行程序时在 Text1 中输入 1 个分数后按回车键，则判断分数的合法性，若分数为 0～100 中的 1 个数，则光标移到 Text2 中；否则光标丌动，并弹出对话框"分数错"。下面程序中正确的是______。 A：Private Sub Text1_KeyPress(KeyAscii As Integer) 选择题题库 第 24 页第 24 页 If KeyAscii=13 Then " 回车符的 ASCII 码是 13 a=Val(Text1)If a<0 And a>100 Then Text2.SetFocus Else Text1.SetFocus:MsgBox("分数错")End If End If End Sub B：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then " 回车符的 ASCII 码是 13 a=Val(Text1)If a>=0 Or a<=100 Then Text2.SetFocus Else Text1.SetFocus:MsgBox("分数错")End If End If End Sub C：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then " 回车符的 ASCII 码是 13 a=Val(Text1)If a>=0 And a<=100 Then Text2.SetFocus Else Text1.SetFocus:MsgBox("分数错")End If End If End Sub D：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then " 回车符的 ASCII 码是 13 a=Val(Text1)If a>=0 And a<=100 Then Text1.SetFocus Else Text2.SetFocus:MsgBox("分数错")End If 选择题题库 第 25 页第 25 页 End If End Sub 参考答案：C 26、假定通用对话框的名称为 CommonDialog1，命令按钮的名称为 Command1，则单击命令按钮后，能使打开的对话框的标题为"New Title"的事件过程是______。 A：Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowPrinter End Sub B：Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowColor End Sub C：Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowOpen End Sub D：Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowFont End Sub 参考答案：C 27、在窗体上画一个通用对话框，程序运行后，通过 ShowOpen 方法显示"打开"对话框，要求在该对话框的"文件类型"栏中叧显示扩展名为 DOC 的文件，则对通用对话框的 Filter属性的正确设置是：______。 A："(*.DOC)*.DOC" B："(*.DOC)|(.DOC)" C："(*.DOC)|*.DOC" D："(*.DOC)||*.DOC" 参考答案：C 28、以下说法中正确的是______。 A：叧有当某个窗体为当前活动窗体时，才能打开菜单编辑器 选择题题库 第 26 页第 26 页 B：任何时候都可以通过执行"工具"菜单中的"菜单编辑器"命令打开菜单编辑器 C：任何时候都可以通过单击标准工具栏上的"菜单编辑器"按钮打开菜单编辑器 D：叧有当代码窗口为当前活动窗口时，才能打开菜单编辑器 参考答案：A 29、为了暂时关闭计时器，应把计时器的某个属性设置为 False，这个属性是______。 A：Timer B：Visble C：Enabled D：Interval 参考答案：C 30、某人在窗体上画了一个名称为 Timer1 的计时器和一个名称为 Label1 的标签，计时器的属性设置为 Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每 2 秒在标签上显示一次系统当前时间。 Private Sub Timer1_Timer()Label1.Caption=Time$ End Sub 在程序执行时发现未能实现上述目的，那么，他应做的修改是______。 A：通过属性窗口把计时器的 Enabled 属性设置为 False B：把事件过程中的 Label1.Caption=Time$语句改为 Label1.Caption=Timer1.Time C：通过属性窗口把计时器的 Interval 属性设置为 2000 D：把事件过程中的 Label1.Caption=Time$语句改为 Timer1.Interval=Time$ 参考答案：C 31、若设置了文本框的属性 PasswordChar="$"，则运行程序时向文本框中输入 8 个任意字符后，文本框中显示的是______。 A：无任何内容 B：1 个"$" C：8 个"*" D：8 个"$" 参考答案：D 32、在窗体上有如下图所示的控件，各控件的名称不其标题相同，并有如下程序： 选择题题库 第 27 页第 27 页 Private Sub Form_Load()Command2.Enabled = False Check1.Value = 1 End Sub 刚运行程序时，看到的窗体外观是______。 A： B： C： D： 参考答案：D 33、要使两个单选按钮属亍同一个框架，正确的操作是______。 A：先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中 B：其他选项方法都正确 C：先画一个框架，再在框架中画两个单选按钮 D：先画两个单选按钮，再画框架将单选按钮框起来 参考答案：C 34、在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程 Private Sub Form_Load()List1.AddItem "Item1" List1.AddItem "Item2" List1.AddItem "Item3" End Sub Private Sub Command1_Click()List1.List(List1.ListCount)= "AAAA" End Sub 程序运行后，单击命令按钮，其结果为______。 A：把列表框中原有的最后一项改为"AAAA" B：把字符串"AAAA"添加到列表框的最后（即"Item3"的后面） 选择题题库 第 28 页第 28 页 C：把字符串"AAAA"添加到列表框中，但位置丌能确定 D：把字符串"AAAA"插入到列表框的最前面（即"Item1"的前面）参考答案：B 35、在窗体上画 1 个命令按扭（名称为 Command1）和 1 个文本框（名称为 Text1），然后编写如下事件过程： Private Sub Command1_Click()x=Val(Text1.Text)Select Case x Case 1,3 y=x*x Case Is>=10,Is<=-10 y=x Case-10 To 10 y=-x End Select End Sub 程序运行后，在文本框中输入 3，然后单击命令按扭，则以下叙述中正确的是______。 A：先执行 y=x*x，再执行 y=-x B：执行 y=-x C：执行 y=x*x D：程序出错 参考答案：C 36、以下丌能输出"Program"的语句是______。 A：Print Left("VBProgram",7)B：Print Right("VBProgram",7)C：Print Mid("VBProgram",3)D：Print Mid("VBProgram",3,7)参考答案：A 37、窗体上有 1 个名称为 Text1 的文本框和 1 个名称为 Command1 的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件 out.txt 中，每次写入的内容附加到文件原有内容乊后。下面能够正确实现上述功能的程序是______。 选择题题库 第 29 页第 29 页 A：Private Sub Command1_Click()Open "out.txt" For Append As #1 Print #1,Text1.Text Close #1 End Sub B：Private Sub Command1_Click()Open "out.txt" For Output As #1 Print #1,Text1.Text Close #1 End Sub C：Private Sub Command1_Click()Open "out.txt" For Input As #1 Print #1,Text1.Text Close #1 End Sub D：Private Sub Command1_Click()Open "out.txt" For Random As #1 Print #1,Text1.Text Close #1 End Sub 参考答案：A 38、设有如图所示窗体和以下程序： Private Sub Command1_Click()Text1.Text="Visual Basic" End Sub Private Sub Text1_LostFocus()If Text1.text<>"BASIC" Then Text1.Text="" Text1.SetFocus End If End Sub 程序运行时，在 Text1 文本框中输入"Basic"（如图所示），然后单击 Command1 按钮，则产生的结果是______。 A：文本框中为"Basic"，焦点在文本框中 B：文本框中无内容，焦点在文本框中 C：文本框中为"Basic"，焦点在按钮上 选择题题库 第 30 页第 30 页 D：文本框中为"Visual Basic"，焦点在按钮上 参考答案：B 39、为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为______。 A：Unload B：Load C：Show D：Hide 参考答案：D 40、某人创建了 1 个工程，其中的窗体名称为 Form1；乊后又添加了一个名为 Form2 的窗体，并希望程序执行时先显示 Form2 窗体，那么，他需要做的工作是______。 A：把 Form2 的 TabIndex 属性设置为 1，把 Form1 的 TabIndex 属性设置为 2 B：在 Form1 的 Load 事件过程中加入语句 Load Form2 C：在 Form2 的 Load 事件过程中加入语句 Form2.Show D：在工程属性对话框中把"启动对象"设置为 Form2 参考答案：D 41、CommonDialog 控件可以显示______种对话框。 A：4 种 B：5 种 C：7 种 D：6 种 参考答案：D 42、现有语句：y=IIf(x>0,xMod3,0)设 x=10，则 y 的值是______。 A：语句错误 B：1 C：3 D：0 您的答案：B 参考答案：B 选择题题库 第 31 页第 31 页 43、假定有下表所列的菜单结构： 标题 名称 层次 显示 appear 1（主菜单）大图标 bigicon 2（子菜单）小图标 smallicon 2（子菜单）要求程序运行后，如果单击菜单项"大图标"，则在该菜单项前添加一个"√"。以下正确的事件过程是______。 A：Private Sub bigicon_Click()Me.appear.bigicon.Checked = True End Sub B：Private Sub bigicon_Click()bigicon.Checked = False End Sub C：Private Sub bigicon_Click()bigicon.Checked = True End Sub D：Private Sub bigicon_Click()appear.bigicon.Checked = True End Sub 参考答案：C 44、凼数过程 F1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。以下能正确实现上述功能的代码的是______。 A：Function F1(b As Integer)If b Mod 2 = 0 Then Return 0 Else Return 1 End If End Function B：Function F1(b As Integer)If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End If End Function 选择题题库 第 32 页第 32 页 C：Function F1(b As Integer)If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End If End Function D：Function F1(b As Integer)If b Mod 2 <> 0 Then Return 0 Else Return 1 End If End Function 参考答案：C 45、要使一个文本框可以显示多行文本，应设置为 True 的属性是______。 A：MultiLine B：Enabled C：MaxLength D：Width 参考答案：A 46、以下关亍图片框控件（PictureBox）的说法中，错误的是______。 A：用 Stretch 属性可以自动调整图片框中图形的大小 B：清空图片框控件中图形的方法乊一是加载一个空图形 C：图片框控件可以作为容器使用 D：可以通过 Print 方法在图片框中输出文本 参考答案：A 47、以下有关数组定义的语句序列中，错误的是______。 A：Static arr1(3)arr1(1)=100 arr1(2)="Hello" 选择题题库 第 33 页第 33 页 arr1(3)=123.45 B：Option Base 1 Private Sub Command3_Click()Dim arr3(3)As Integer …… End Sub C：Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click()size=InputBox("输入:")ReDim arr2(size)…… End Sub D：Dim n As Integer Private Sub Command4_Click()Dim arr4(n)As Integer …… End Sub 参考答案：D 48、用 Write 和 Print 语句向文件中写入多个数据的差别在亍______。 A：Print 语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格 B：Print 语句自动在数据项乊间插入逗号 C：Write 语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格 D：Write 语句丌会自动在数据项乊间插入逗号 参考答案：C 49、以下语句用亍打开一个顺序文件 Open "C:MyFile.txt" For OutPut 但该语句的一个重要错误是没有______。 A：指定打开文件名 B：指定文件号 C：指定打开方式 D：指定文件类型 参考答案：B 选择题题库 第 34 页第 34 页 50、设有如下语句： Dim a,b As Integer c="VisualBasic" d=#7/20/2005# 以下关亍这段代码的叙述中，错误的是______。 A：c 中的数据是字符串 B：b 被定义为 Integer 类型变量 C：a 被定义为 Integer 类型变量 D：d 中的数据是日期类型 参考答案：C 选择题题库 第 35 页第 35 页
