Visual Basic 程序设计试卷8.doc

QQ:401999419全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷Visual Basic 语 言 程 序 设 计（样题）一、单项选择题（每小题2分，共70分）1. 下列不能打开属性窗口的操作是A、执行“视图”菜单中的“属性窗口”命令B、按F4键C、按Ctrl+TD、单击工具栏上的“属性窗口”按钮2. 下列可以打开立即窗口的操作是A、Ctrl+DB、Ctrl+EC、Ctrl+FD、Ctrl+G3. InputBox函数返回值的类型为A、数值B、字符串C、变体D、数值或字符串（视输入的数据而定）4. 可以同时删除字符串前导和尾部空白的函数是A、LtrimB、RtrimC、TrimD、Mid5. 表达式4+5 6 * 7 / 8 Mod 9 的值是A、4B、5C、6D、76. 以下程序输出结果是a=8 : b=9Print abA、-1B、0C、FalseD、True7. 表达式Format $(32548.5,000,000.00)结果为A、32548.5B、32,548.5C、032,548.50D、32,548.508. 以下程序段执行后，变量c$的值为a$=Visual Basic Programingb$=Quickc$=b$ & UCase(Mid$(a$,7,6) & Right $ (a$,11)A、Visual BASIC ProgramingB、Quick Basic ProgramingC、QUICK Basic ProgramingD、Quick BASIC Programing9. 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是A、ValueB、DefaultC、CancelD、Enabled10. 为了把焦点移到某个指定的控件，所使用的方法是A、SetFocusB、VisibleC、RefreshD、GetFocus11. 设a=6，则执行 x=IIf(a5,-1,0)后，x 的值为A、5B、6C、0D、-112. 执行下面的程序段后，x 的值为x=5For i=1 To 20 Step 2x=x+i5Next iA、21B、22C、23D、2413. 以下程序输出结果是 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 xA、7B、15C、157D、 53814. 以下程序运行后，依次向输入对话框中输入5、4、3、2、1、-1，输出结果为Private Sub Command1_Click()Dim A%,B%,x% x = 0 Do Until x = -1 A = InputBox(请输入A的值) B = InputBox(请输入B的值) x = InputBox(请输入x的值) A = A + B + x Loop Print AEnd SubA、2B、3C、14D、1515. 在窗体(Name属性为Form1)上有两个文本框（Text1和Text2）和一个命令按钮（Command1）。Text1和Text2的初始内容分别为123和321，单击命令按钮后，输出结果为Private Sub Command1_Click()a=Text1.Text+Text2.TextPrint aEnd SubA、444B、321123C、123321D、13223116. 以下程序输出结果是For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext iA、3B、9C、14D、2117. 以下程序执行后结果为Private Sub Form_Load()Text1.Text=Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd SubA、在文本框Text1中输出55B、在文本框Text1中输出0C、出错D、在文本框Text1中输出不定值18. 以下程序段执行后结果是x=0Do While xml Then m1 =a(j) : m2 =iNext iEnd IfPrint m1; m2End SubA、48 4B、237 1C、498 5D、498 4二、填空题（每空2分，共30分）1. 设有如下的Visual Basic表达式：5 * x2 - 3 * x - 2 * Sin(a/3)它相当于代数式【 1 】2. 执行下面的程序段后，s的值为 【 2 】 s = 5For i = 2.6 To 4.9 Step 0.6s = s+1Next i3. 表达式Fix(-32.68)+Int(-23.02)的值为 【 3 】 4. 为了在运行时把图形文件picfile.jpg装入图片框Picture1,所使用的语句为 【 4 】 5. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox(请输入一个整数)b = InputBox(请输入一个整数)Print a + bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 【 5 】 6. 执行下面的程序段后，b的值为 【 6 】 a=300 : b=20a=a+b : b=a-b : a=a-b7. 以下程序段的输出结果是 【 7 】 num=0While num=2num=num+1Print num ;Wend8. 以下程序段执行后结果是【 8 】Dim a(1 To 10)For i=1 To 10a(i)=2*i-1Next iPrint a(i-1)9. 下面的程序用“冒泡”法将数组a中的10个整数按升序排列Option Base 1Private Sub Command1_Click()Dim aa=Array(678,45,324,528,439,387,87,875,273,823)For i= 【 9 】 For j= 【 10 】 If a(i) 【 11 】 a(j) Thena1=a(i) : a(i)=a(j) : a(j)=a1End IfNext jNext iFor i=1 To 10Print a(i) ;Next iEnd Sub10. 程序运行后，单击命令按钮，输出结果为 【12】 Function fun(ByVal num As Long)As Longk=1Do While numk=k*(num Mod 10)num=num10Loopfun=kEnd FunctionPrivate Sub Command1_Click()Print fun(234)End Sub11. 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为 【 13 】 12. 假定建立了一个工程，该工程包括两个窗体，其名称(N