VB计算机技术基础试题(2).doc

一、单项选择题（每题2分，共70分）1、 InputBox函数的返回值类型为（ ）。A数值 B字符串 C变体 D数值或字符串（视输入的数据而定）2、 可以同时删除字符串前导和尾部空白的函数是（ ）。A Ltrim B Rtrim C Trim DMid 3、 如果在立即窗口中进行下列操作：a=8 b=9 print ab 则输出结果是（ ）。A-1 B0 C False D True4、 用下面语句定义的数组的元素个数是（ ）。 Dim A (-3 To 5) As IntegerA6 B7 C 8 D95、 为了在按下ESC键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True,这个属性是（ ）。A value B Default CCancel D Enabled6、 以下语句输出的结果是（ ）。Print Format $(32548.5,“000,000.00”)A32548.5 B 32,548.5 C 032,548.50 D 32,548.507、 执行以下程序段后，变量c$的值为 （ ）。a$=“Visual Basic Programing” b$=“Quick” c$=b$ & UCase(Mid$(a$,7,6) & Right $ (a$,11)A Visual BASIC Programing B Quick Basic ProgramingC QUICK Basic Programing DQuick BASIC Programing8、 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（ ）。A Value B Default C Cancel DEnabled9、 设a=6，则执行 x=IIf(a5,-1,0)后，x 的值为（ ）。A 5 B6 C0 D-110、 执行下面的程序段后，x 的值为（ ）。x=5 For i=1 To 20 Step 2 x=x+i5 Next iA 21 B 22 C23 D 2411、 在窗体上画一个命令按钮，然后编写如下事件过程： 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程序运行后，单击命令按钮，输出结果是 （ ） 。A 7 B 15 C 157 D 53812、 在窗体上画一个命令按钮，然后编写如下事件过程： Prevate Sub Command1_Click() x=0 Do Until x=-1 a = Val( InputBox(“请输入A的值”) b = Val( InputBox(“请输入B的值”) x = Val(InputBox(“请输入x的值”) ) a = a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（ ）。A2 B3 C14 D 1513、 阅读下面的程序段： For i = 1 To 3 For j = 1 To i For k = j To 3 a = a + 1 Next k Next jNext i执行上面的三重循环后，a 的值为（ ）。A3 B9 C14 D2114、 在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程： Private Sub Form_Load() Text1.Text= Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是（ ）。A 在文本框Text1中输出55 B 在文本框Text1中输出0C 出错 D在文本框Text1中输出不定值15、 在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do While x50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。A1和0 B2和72 C3和50 D4和16816、 以下程序的输出结果是 Option Base 1Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10 a(i) = iNext iFor i = 1 To 3 p(i) = a(i * i)Next iFor i = 1 To 3 k = k + p(i) * 2Next iPrint kEnd SubA 33 B28 C 35 D 3717、 在窗体上面画一个命令按钮，然后编写如下事件过程： Option Base 1Private Sub Command1_Click()Dim a As Varianta = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是（ ）。A 4321 B 12 C34 D123418、 假定有如下的Sub过程： Sub S（x As Single, y As Single） t = x x =t/y y =t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click ( ) Dim a As Single Dim b As Single a =5 b =4 S a,b Print a,b End Sub 程序运行后，单击命令按钮，输出结果为（ ）。A 5 4 B1 1 C 1.25 4 D 1.25 119、 阅读程序：Function F(a As Integer) b = 0 Static c b = b+1 c = c+1 f = a+b+c End Function Private Sub Commandl_Click () Dim a As Integer a =2 For i =1 To 3 Print F(a) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为（ ）。A 4 B4 C 4 D 4 4 5 6 7 4 6 8 9 20、 阅读程序： Sub subP(b() As Integer) For i =1 To 4 b(i)=2*i Next i End Sub Private Sub Commandl_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a () For i =1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为（ ）。A2 B 5 C10 D出错 4 6 12 6 7 14 8 8 1621、 假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为（ ）。A Label1. BackStyle=0 Label1.Borderstyle=0B Label1.BackStyle=1 Label1.Borderstyle=1C Label1.BackStyle=True Label1.BorderStyle=TrueD Label1.BackStyle=False Label1.Borderstyle=False22、 在窗体中添加一个命令按钮，并编写如下程序：PrivateSubCommand1_Click()X=1:Y=2:Z=3X=Y:Y=Z:Z=XPrint ZEndSub程序执行后，输出的结果是（ ）。A4 B3 C 2 D 123、 .下列叙述不正确的是（ ）。A注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译B注释语句可以放在代码中的任何位置C注释语句不能放在续行符的后面D代码中加入注释语句的目的是提高程序的可读性24、 Rnd函数不可能产生（ ）值。A0 B1 C0.1234 D0.0000525、 数学式子sin30写成VB表达式是（ ）。ASin30 BSin(30) CSin(30) DSin(30*3.14/180)26、 下列属性中，能限定文本框中内容长度的属性是（ ）。AMultiLine BMaxlength CSelLength DSelStart27、 以下程序的输出结果是 Option Base 1Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10 a(i) = iNext iFor i = 1 To 3 p(i) = a(i * i)Next iFor i = 1 To 3 k = k + p(i) * 2Next iPrint kEnd SubA33 B28 C35 D3728、 表达式52 Mod 52的值是（ ）。A1 B0 C6 D429、 设有数组声明语句：OptionBase0DimB(-1 To 10,2 To 9,20)AsInteger则数组B中共有( )个元素。A1800 B1848 C2016 D2310 30、 在VB语言中，6个关系运算符在运算过程中优先级从高到低的顺序是()A= B=C= D不分先后顺序31、 有如下程序：Private Sub Command1_Click()For m = 1 To 3 For j = 1 To m For k = j To 3 n = n + m + j - k Next k Next jNext mPrint nEnd Sub程序运行后，按Command1键，n的值是（ ）。A3 B14 C9 D20 32、 下列赋值语句中，( )是错误的。A x=x+1 B.x=x+y Cx+y=x Dx=46 33、 在以下四个逻辑表达式中，其逻辑值为“真”的是（ ）。ANot(3+54+6) B21 And 32 C.12 Or 23 DNot(12)34、 下面程序的循环次数为（ ）。ForI=10To40Step6 PrintI NextI A.5 B.6 C.32 D.33二、填空题（每空2分，共30分）1、 在VB中，无论何控件都具有的属性是 (1) 。2、 在Visual Basic中，用来描述一个对象外部特征的量称之为对象的 (2) 。3、 以下程序的功能是：生成 20 个 200 到 300 之间的随机整数，输出其中能被 5 整除的数并求出它们的和。请填空。 Private Sub Commandl_C1ick() S=0 Fori 1To 20 Randomize x Int(_ _(3)_ +200) If_ (4) _ 0 Then Print x S (5) End If Next i Print “ Sum ”： S End Sub 4、 下面是一个体操评分程序， 20位评委，除去一个最高分和一个最低分，计算平均分 ( 设满分为 10 分 ) 。 Private Sub Command1_Click() Max=0 Min=10 For I=1 TO 20 N=Val(InputBox( “ 请输入分数： ” ) IF (6) Then Max=N IF _ _(7)_ _Then Min=N S=S+N Next I S=_ _(8) _ P=S/18 Print- 最高分： - ； Max Print- 最低分： - ； Min Print- 最后得分： - ； P END Sub. 5、 一个工程可以包括多种类型的文件，其中，扩展名为 .VBP 的文件表示 (9) 文件；扩展名为 .FRM 的文件表示窗体文件； 6、 如果