学而不思则惘，思而不学则殆
第41题
在一个多窗体程序中,可以仅将窗体Form2从内存中卸载的语句是________. A. Form2.Unload C. Form2.End
B. Unload Form2 D. Form2.Hide
第42题
Print方法可在______上输出数据.
①窗体 ②文本框 ③图片框 ④标签 ⑤列表框 ⑥立即窗口 A. ①③⑥
B. ②③⑤
C. ①②⑤
D. ③④⑥
第43题
若要使逻辑表达式x>y Xor y B. x=2、y=1、z=2 D. x=2、y=2、z=2 第44题 下列____________是合法的变量名. A. abs B. –al C. cdc d D. Abe_10 第45题 下列______是正确的VB常量. A. D-6 B. E-6 C. 5D D. 5E-6 第46题 若在模块中用Private Function Fun(A as Single,B as Integer) As Integer 定义了函数Fun.调用函数Fun的过程中定义了I、J和K三个Integer型变量,则下列语句中不能正确调用函数Fun的语句是___________. A. Fun 3.14,J B. Call Fun(I,365) C. Fun(I),(J) D. K=Fun(\ 第47题 若需要在同一窗体内安排两组相互独立的单选按钮(OptionButton),可使用______控件做容器将它们分开. ①TextBox ②PictureBox ③ Image ④ Frame A. ①或② B. ②或③ C. ②或④ D. ③或④ 第48题 以下关于文件的叙述中，错误的是__________。 A. 用Output模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除 B. 可以用Print #语句或 Write# 语句将数据写到顺序文件中 C. 若以Output、Append、Random、Binary 方式打开一个不存在的文件，系统会出错 D. 顺序文件或随机文件都可以用二进制访问模式打开 第49题 窗体上有若干命令按钮和一个文本框,程序运行时焦点置于文本框中,为了在按下回车键时执行某个命令按钮的Click事件过程,需要将该按钮的_________属性设置为True. A. Enabled B. Default C. Cancel D. Visible 第50题 数学表达式 x5?cos29?(e?lny)?5x 对应的VB表达式是______ A. (x^5-Cos(29))/Sqr(e^x+In(y))+5 B. (x^5-Cos(29))/(Sqr(Exp(x)+Log(y))+5) 学而不思则惘，思而不学则殆 C. (x^5-Cos(29*3.14159/180))/(Sqr(Exp(x)+Log(y))+5) D. (x^5-Cos(29*3.14159/180))/(Sqr(e^x+Log(y))+5 二、填空_共20题（选：15空*2’=30分）——阅读理解：填写程序的输出结果 第1题 运行下列程序，单击Command1, 在窗体上显示的第一行内容是______【1】____, 第二行的内容是_____【2】____, 第三行的内容是_____【3】______。 Option Explicit Private Sub Command1_Click() Dim s As String s=\ Call trans(s) End Sub Private Sub trans(s As String) Dim j As Integer,t As String Dim k As Integer k=3 Do j=InStr(s,\ t=LCase(Right(s,j)) s=Right(t,Len(s)-k) & Left(s,Len(t)) k=k-1 Print s Loop Until k=0 End Sub 第2题 执行下面程序，单击Command1，则窗体上显示的第一行是＿【1】＿＿＿，第三行是＿＿【2】＿＿，最后一行是＿＿【3】＿＿。 Option Explicit Private Sub Command1＿Click() Dim x As Integer,y As Integer x=12:y=0 Do While x> 0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y Loop End Sub 第3题 执行下面的程序，单击Command1,窗体上显示的第一行是______【1】_____，第二行是______【2】____,第四行是______【3】_____。 Option Explicit 学而不思则惘，思而不学则殆 Private Sub Command1_Click() Dim a As Integer, b As Integer a=1 : b=1 Call sub1(a, b) Print a, b End Sub Private Sub sub1(a As Integer, b As Integer) a=a+b : b=b+a Print a, b If a>10 Then a=a+b b=b+a Else Call sub1(a, b) End If End Sub 第4题 运行下面的程序，单击Command1,在窗体上显示的变量a的值为____【1】______，变量b的值为_____【2】____,变量c的值为_____【3】______。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=5: b=10: c=15 Print fun(a,b,c)+fun(a,b,c) Print a,b,c End Sub Private Function fun(x As Integer, y As Integer, z As Integer) As Integer z=x x=x+y y=y+z fun=x+y End Function 第5题 执行下面的程序，连续三次单击命令按钮Command1之后，A数组共有 【1】 个元素；数组元素A(2)的值 【2】 ，A(4)的值是 【3】 。 Option Explicit Option Base 1 Private Sub Command1_Click() Static A( ) As Integer,n As Integer Dim i As Integer,k As Integer k=n ' n=n + 2 ReDim Preserve A(n) For i=k+1 To n A(i)=i*n+1 Next i 学而不思则惘，思而不学则殆 For i=1 To n Print A(i); Next i Print End Sub 第6题 运行下面程序，单击Command1，在窗体上显示的变量A的值为___【1】____,变量B的值为____【2】______。 Option Explicit Dim a As Integer Private Sub Command1_Click() Dim b As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a) + b Print a, b End Sub Private Function fun(n As Integer, k As Integer) n = n + a k = n - k fun = n + k + a End Function 第7题 执行下面的程序，单击Commandl，则窗体上第一行显示的是 【1】 ，第二行显示的是 【2】 。 Option Explicit Dim x As Integer Private Sub Command1_Click() Dim y as Integer X=10:Y=2 Call process(y) Print X,Y Call process((y)) Print X,Y End Sub Private Sub process(n As Integer) Dim y As Integer If n>0 Then x=x-n y=x Else x=x+n y=x+2 End If n=-n End Sub 第8题 执行下面程序，单击Command1，窗体上显示的第一行是__【1】___，第二行是___【2】___，第四行是___【3】_______， 学而不思则惘，思而不学则殆 最后一行是___【4】_____. Option Explicit Private Sub Command1_Click() Dim n As Integer n = 5 Call test(n) Print n End Sub Private Sub test(ByVal n As Integer) Dim i As Integer, s As Integer If n > 0 Then For i = 1 To n s = s & CStr(i) Next i Print s Call test(n - 2) Else Print \ End If End Sub 第9题 运行下列程序，单击Command1，在窗体上显示的第一行内容是 【1】 ,第二行的内容是 【2】 ,第三行的内容是 【3】 。（\的ASCII码是65，\是90） Option Explicit Private Sub Command1_Click() Dim i As Integer, st As String, n As Integer, p As String * 1 p = \ For i = 3 To 1 Step -1 n = Asc(p) - i If n < 65 Then n = n + 26 st = Chr(n) st = st & F(i) Print st Next i End Sub Private Function F(n As Integer) Dim i As Integer Static s As Integer For i = 1 To n s = s + i Next i F = s End Function 第10题 执行下面的程序，单击Command1，输出的变量i的值是 【1】 ，变量j的值是 【2】 ，变量k的值是 【3】 。 Option Explicit
青岛科技大学信息工程VB期末考试题库及答案
