2008秋(1-10)Visual Basic语言程序设计笔试样卷.doc

考核专业：应用化学，生物化学 考核年级：07级高级语言程序设计(VB)笔试试题(A卷)（考试时间90分钟，满分100分）专业、班级 学号 姓名 说明： 选择题和填空题均答在答题纸上，答在试卷上不得分。一、选择题（每小题2分，共70分。每题可选的答案中，只有一个正确答案。）(1) 将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是A）Cos(a+b)2+5*exp(2) B）Cos2(a+b)+ 5*exp(2)C）Cos(a+b)2+5*ln(2) D）Cos2(a+b)+ 5*ln(2)(2) 在Visual Basic代码中，将多个语句合并在一行上的并行符是 。A）撇号（ ）B）冒号（：）C）感叹号（！）D）问号（?）(3) 执行语句s=Len(Mid(VisualBasic,1,6)后，s的值是 A) Visual B) Basic C) 6 D) 11 (4) 确定一个控件在窗体上的位置的属性是 A) Width和Height B) Width或Height C) Top和Left D) Top或Left(5) 表示条件“X是大于-10，且小于等于80的数”的条件表达式是 。A) -10X=80 B) -10=X, X-10 and X-10 and 0,X2+1，0)A) 5 B) 3 C) 1 D) 0(17) 执行下面的程序段后，x 的值为 。x=0For i=1 To 20 Step 5 x=x+i5 Next iA) 1 B) 3 C) 6 D) 出错(18) 有以下程序段 Dim I, X, J, K For I = 1 To 100 X = 100For J = 1 To 300 X = 0 For K = 1 To 2 X = X + 6 Next K Next JNext IPrint X以上程序运行后的输出结果是 。A) 30000 B) 600 C) 12 D) 0(19) 在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()a=Text1.Text+Text2.TextPrint aEnd SubPrivate Sub Form_Load()Text1 Text=Text2 Text=End sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入321和123，然后单击命令按钮，则输出结果为 。A) 123321 B) 321123 D) 132231 D) 444(20) 有以下程序段：Dim I As Integer, X As DoubleX = 1For I = 1 To 5 X = X * INext IPrint X上述程序的运行输出结果是 。A) 1B)55C) 56D) 120(21) 有以下程序段：N = 0X = 3Do While X B, A, B) B = IIf(A B, B, A)End Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click ( )Dim X As Single,Y As SingleX =10Y =35Call F(X,Y) Print X,YEnd Sub程序运行后，单击命令按钮，输出语句中的变量X,Y的数值分别为 。A) X=10 ,Y=35B) X=35 ,Y=10C) X=10 ,Y=10D) X=35 ,Y=35(23) 在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：Private Sub Form_Load ()List1.AddItem 357List1.AddItem 246List1.AddItem 123Listl.AddItem 456Text1.Text=End SubPrivate Sub List1_ DblClick ( )a =List1.TextPrint Text1.Text+aEnd Sub程序运行后，在文本框中输入“789”，然后双击列表框中的456，则输出结果为 。A) 1245 B) 456789 C) 789456 D) 0(24) 为了暂时关闭计时器，应把该计时器的某个属性设置为false，这个属性是 。A)Interval B) EnabledC)Vaule D) Timer(25)设窗体上有一个文本框，名称为Text1，程序运行后，要求清空该文本框的内容，以下能实现该操作的语句是A) Text1.MaxLength = 0 B) Text1.Text = 0C) Text1.Width = 0 D) Text1.Text = (26)以下能在窗体Form1的标题栏中显示“VB Program”的语句是A）Form1.Name = “VB Program”B）Form1.Title = “VB Program”C) Form1.Text = “VB Program”D) Form1.Caption =“VB Program”(27）在窗口上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Static x As Integer Cls For i = 1 To 2 y = y + x x = x + 2 Next Print x, y End Sub 程序运行后，连续三次单击Command1按钮后，窗体上显示的是A) 4 2 B) 12 18 C) 12 30 D) 4 6(28)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（） X= Val(InputBox ( Input ) Select Case X Case 2,5 Print 分支1 Case Is 10 Print 分支2 Case Else Print Else分支End SelectEnd Sub程序运行后，如果在输入对话框中输入3，则窗体上显示的是A）程序出错 B）分支1 C）分支2 D）Else分支(29) 在窗口上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim x As Integer Cls x =0 For i = 1 To 2 x = x + 2 Next Print x End Sub 程序运行后，连续三次单击Command1按钮后，窗体上显示的是A) 0 B)2 C) 4 D) 6 (30) 执行以下程序段a = abbacddcbaFor i =6 To 2 Step -2 X = Mid(a,i,i) Y = Left(a,i) z = Right(a,i) z = UCase(X & Y & z)Next iPrint z输出的结果为A) ABCB)AABBCCC)ABBCCAD) BBABBA(31) 以下Case语句中错误的是 A) Case 0 To 10B) Case Is10 C) Case Is10 And Is10(32) 执行以下语句，s的值是a=Visualb= (一个空格)c=Basicd=a & b & cs=Len(d) A) Visual Basic B) VisualBasicC) 11 D) 12(33) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程 Private Sub Command1_Click() Text1.Text = Visual Me.Text1 = Basic Text1 = Program End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是 A) Visual B) Basic C) Program D) 出错 (34) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() c = 1234 For i = 1 To 4 Print Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为 A) Right(c,i) B) Left(c,i) C) Mid(c,i,1) D) Mid(c,i,i) (35) 在窗体上建立一个命令按钮，然后编写如下的事件过程：Option Base 1Private Sub Command1_Click() Dim d d = Array(1, 2, 3, 4,5) n = 1 For k = 5 To 3 Step -1 S = S + d(k)*n N=n*10 Next k Print sEnd Sub运行上面的程序，单击命令按钮，输出的结果是 。A) 123B) 234C) 345D) 112二、填空题（每空分，共30分）请将每空的正确答案写在答题卡115序号的横线上，答在试卷上不得分。（1）与数学表达式 对应的Visual Basic表达式是【1】 。 (2) 以下程序段的输出结果是_【2】_num = 0While num = 2 num = num +1WendPrint num(3) 为了使计时器控件 Timer1 每隔 0.5 秒触发一次 Timer 事件，应将 Timer1 控件的Interval属性设置为 【3】 。 (4) 整型变量x中存放了一个两位数，求两位数之和，实现的表达式是 【4 】 。(5) 设有如下程序段：a$=”BeijingShanghai”b$=Mid(a$,InStr(a$,”g”)+1)执行上面的程序段后，变量b$的值为 【5】 。(6) 执行下面的程序段后，X的值为【6】 。X=3Y=2*X+1X=X+YY=X-YX=X-Y(7) 以下程序段的输出结果是【7】 。 n=0t=0Do While nMaxThen【15】 Nexti Print最大值是:;Max EndSub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。高级语言程序设计(VB)笔试试题(A卷)答案一、选择题1234567891