2009年秋季VB语言笔试题A.doc

二级Visual Basic语言笔试试题(A)注意事项：1.一、二、三题为客观题目，请将答案涂在机读答题卡上 2.四、五、六题为主观题目，请将答案做在答题纸上一单项选择题（每小题1分，共25分）1下面不是窗体方法的是（ ）(A)Cls (B)Click (C)Print (D)Move2在VB中，当运行程序时，系统自动执行窗体的（ ）事件过程。（A）Load （B）UnLoad （C）Click （D）GotFocus3. 下面各项中合法的VB标识符是（ ）(A)a123 (B)123a (C)a12-1 (D)a+b4.下面各项中合法的VB常量是（ ）(A)E+3 (B)123 (C)1.E+3 (D)a+b5. 若要在文本框Text1中显示变量a和 b的值，应选用的语句是（ ）。（A）a+b = Text1 （B）Text1.Text = a & b（C）Text1.Caption = a,b（D）Text1.Text= a,b6. 在VB中用来表示注释信息的符号是（ ）。（A）星号(*)（B）单引号() （C）斜线(/)（D）双斜线(/)7. 在VB语言中，用来表示“回车”的符号常量是（ ）。（A）Enter（B）Return（C）CrLf（D）vbCrLf8. 设X为小于100的非负数（包括0），下面表达式为True的是（ ）(A) 0=X And X100 (B) 0X And X100 (C) 0=X And X=100 (D) 0X Or X0 Then Print a Else Print -a (B) Print IIf(a0,a,-a) (C) If a0 ThenPrint aElsePrint aEnd If (D) Print Abs(a) (E) If a0 Then Print a Else Print -a2. 在默认情况下，能正确定义具有101个元素的数组b的语句有（ ）(A) Dim b(1 TO 100) (B) Dim b(-50 TO 50)(C) Dim b()：n = 100：Redim b(n) (D) Dim b(100 To 200)(E) Dim b(100)3. 下列（ ） 是Select Case语句中Case关键字后面的取值方式。（A）x= 0 （D）1, 3, 5 （E） x2 and x104. 下列VB函数中，返回值为数值的有（ ）。(A)Len(“BASIC”) (B)Str(-26.3) (C)Left(“1234”,2) (D)Val(“16 Year”) (E)Val(Mid(“34565”,2,2)5VB中鼠标事件的参数Button取值可以为（ ） (A) 0 (B) 1 (C) 2 (D) 3 (E) 4三分析判断题（正确的选择，错误的选，每小题1分，共10分）1在VB中，事件可以由用户触发，也可由系统触发。( )2在VB程序中的变量必须先声明然后才能使用（ ）3使用滚动条控件时，必须设置min、max属性值，否则该滚动条就不能接受事件（ ）4在VB中，运算符的优先级从高到底的顺序是：算术运算关系运算字符串运算逻辑运算。（）5在通用段中声明的变量对该窗体的所有过程有效。( )6使用框架对控件分组时，可以先在窗体上画出控件再画框架（ ）7程序中的变量是内存中的不可见空间，标签是窗体上的可见空间，二者均能存放数据（ ）8Line方法既可以画直线，也可以画矩形。( )9VB语言程序中也可以使用用户自定义的控件对象。（ ）10在窗体上按下鼠标左键并拖动鼠标，可以多次触发Form_MouseMove事件。（ ）四、程序填空 （每空2分，共20分）1. 程序功能是输出1001000范围内所有能同时被3和7整除的自然数，请填空完成该程序。Private Sub Command1_Click() Dim n As Integer List1.Clear For n = 100 To 1000 If Then List1.AddItem n NextEnd Sub2.在文本框Text1中输入一个正整数，按命令按钮Command1则计算阶乘值，并将结果显示在标签Label1中。Private Sub Command1_Click() P = For K = 1 To N P = P * KNext KLabel1.Caption = PEnd Sub3. 简易点菜系统如下图所示，单击左侧列表框中任意菜名，被单击菜名及价格就依次出现在右侧图片框中（允许重复选择，选择之后不能退回），单击“结帐”按钮就计算出总价，也在图片框中输出。Dim sum As IntegerPrivate Sub Command1_Click() Picture1.Print 总价 = ; sum; 元End SubPrivate Sub List1_Click() s = List1.Text n = InStr(s, ) price = Picture1.Print s sum = End Sub4. 编程产生10个5099之间的随机整数存于一维数组a中，并在窗体上显示成一行；然后将a数组中的元素依次向后移动一个位置，最后一个元素移动到第一个元素的位置上，再将数组中的元素在窗体上显示成另一行。请填空完善程序。Private Sub Form_Click() For i = 1 To 10 a(i) = Int(Rnd * 50 + 50) Print a(i); Next i Print temp = a(10) For j = 9 To 1 Step -1 Next j a(1) = temp For k = 1 To 10 Print a(k); Next k PrintEnd Sub5. 下面事件过程能生成并在窗体上输出如图所示矩阵，请完善程序。Private Sub Form_Click()Dim a(5, 5) As Integer, i As Integer, j As Integer For i = 1 To 5 For j = 1 To 5 If Then a(i, j) = 0 Else a(i, j) = 1 Print a(i, j); ; Next j Next iEnd Sub五、阅读分析程序，并选择答案（每小题4分，共20分）1运行下面程序，单击窗体，在窗口上显示的结果为 （ ） 。 Private Sub Form_Click ( ) A = 3 : B = 5C = A : A = B : B = CPrint A; B; CEnd Sub(A) 5 3 3 (B) 3 5 5 (C) 3 5 3 (D) 5 3 52运行下面程序，单击窗体后，输出的结果是（ ）。Private Sub Form_Click()For k = 1 To 15 If k = 20 Then a = 2 * k + 200 If k 50 Then Exit For Next Print iEnd SubA.10B. 5C. 11 D. 505下面程序运行后，单击命令按钮Command1，窗体上显示的内容是（ ）Function Jisuan(ByVal A As Integer) b = 0 A = A + 2 b = b + 2 Jisuan = A + bEnd FunctionPrivate Sub Command1_Click() Dim i As Integer For i = 1 To 3 Print Jisuan(i) Next iEnd Sub（A）3（B）5（C）5（D）4 6 7 6 4 9 9 7 4六程序设计（每小题10分，共20分）1编写程序，在文本框中输入任意可打印字符，单击“显示”命令按钮，则在图片框中输出如图所示的规则图形。 2已知两个三位数相加之和abc + cba = 1333，编程计算并输出能满足这个条件的所有a、b、c的值。一、单项选择题（每小题1分，共25分）1-5：BAACB 6-10：BDABA11-15：DDDDD16-20：ACBAD21-25：CBDCB二、多项选择题（每小题1分，共5分）1、ABCD 2、BCDE 3、BCD 4、ADE 5、BCE三、正误判断题（每小题1分，共10分）1-5：6-10： 四、程序填空（每空2分，共20分）1n mod 3=0 and n mod 7=0 2Endif 3N=val(text1.text)4P=15Val(mid(s,n)6Sum+price7Dim a(10) as integer8A(j+1)=a(j)9ij10print五、分析程序，选择答案（每小题4分，共20分）ABCBC六、程序设计题（每小题10分，共20分）1、参考程序Private Sub Command1_Click()Dim c As String * 1c = Text1.TextFor i = 1 To 8 Picture1.Print Tab(17 - i); String(2 * i - 1, c)Next iEnd Sub2、参考程序Pri