南京工业大学vb期末题库

09vb复习2

满分：123分

姓名：________

1、单项选择题(本题共计59分)

1、以下程序段运行后，消息框的输出结果是 a=sqr(5) b=sqr(3) c=a>b

Msgbox x+2 ( )

A、-1 B、1 C、2 D、出错

2、

执行以下程序，在窗体上显示的第二行内容是_________。
Private Sub Command1_Click()
Dim x%, y%
x = 10
y = 15
Call value(x, y)
Print x;y
End Sub

Private Sub value(ByVal m%, n%)
m = m * 2
n = n - 5
Print m; n
End Sub

A、20 10 B、20 15 C、10 15 D、10 10

3、用\冒泡\法将数组a中的10个整数按升序排列。所谓\冒泡\法就是从第一个数依次比较相邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数全部比较结束。排序过程中大数后退，小数前行，犹如水泡往上冒。请完善以下程序段________。

For i= 1 to 9 For j= 1 to 10-i If ____________ Then ??'互换语句 End If Next j Next i ( )

A、a(i)>a(j) B、a(i)a(j+1)

4、若整型实参x、y的值分别为48、28，则主程序执行print f(x,y)后输出值是________。
Private Function f(ByVal m%, ByVal n%) As Integer
Do
r = m Mod n
m = n
n = r
Loop While r <> 0
f = m
End Function ( )

A、1 B、2 C、4

D、都不是

5、以下常量表示错误的是___________。 ( )

A、#Jan 1,2009# B、#2008年8月8日# C、\D、\北京奥运会\

6、执行以下程序，在窗体上显示的第一行内容是______,第二行内容是_________。 Private Sub Command1_Click() Dim x%, y% x = 10 y = 15 Call value(x, y) Print \End Sub

Private Sub value(ByVal m%, n%) m = m * 2 n = n - 5

Print \End Sub ( )

A、m=20 n=10 B、x=10 y=15 C、x=20 y=10

7、已知整型数组a(12)，若要在过程调用后返回其元素最大值的下标，下面的过程定义语句合法的是_______。 ( )

A、Private Function mx(ByVal a(12) As Integer) As Integer B、Private Function mx(ByVal a() As Integer) As Integer C、Private Function mx(a(12) As Integer) As Integer D、Private Function mx(a() As Integer) As Integer 8、下列变量名合法的是________。 ( )

A、intX B、x-y C、const D、test@qw

9、若整型实参x、y的值分别为48、28，则引用以下function过程的返回值是________。 Private Function f(ByVal m%, ByVal n%) As Integer Do r = m Mod n m = n n = r

Loop While r <> 0 f = m

End Function ( )

A、1 B、2

C、4 D、都不是

10、下面子过程语句合法的是_____。 ( )

A、Sub f(ByVal n() As Integer) B、Sub f(n As Integer)As Integer

C、Function f(ByVal n As Integer) As Integer D、Function f(ByVal n As Integer) 11、假设如下的Sub过程： Sub CalCul(a As Single, b As Single) a=a/b b=a*b End Sub

在窗体上画一个命令按钮，然后编写如下事件过程 Private Sub Command1_Click() Dim x As Single, y as Single x=8 y=5 CalCul x,y Print x,y End Sub

程序运行后，单击命令按钮，输出结果为 ( )

A、1.6 8.0 B、2.0 8.0 C、2.0 8 D、1.6 8

12、在设计列表框时，若实现输入多行文字的目的，应使用_________键实现文本的换行。 ( )

A、Enter B、Alt+Enter C、Ctrl+Shift+Enter D、Ctrl+Enter

13、下列4个表达式中，不能对Single类型变量x(正数)的第三位小数正确地进行四舍五入的是 ( )

A、Format(x,\B、Int(100*(x+0.005))/100 C、CInt(100*(x+0.005))/100 D、Fix(100*(x+0.005))/100 14、假设如下的Sub过程： Sub CalCul(a As Integer, b As Integer) a=a/b b=a*b End Sub

在窗体上画一个命令按钮，然后编写如下事件过程 Private Sub Command1_Click()

Dim x As Single, y as Single x=8 y=5 CalCul x,y Print x,y End Sub

程序运行后，单击命令按钮，输出结果为 ( )

A、8 5 B、1.6 8.0 C、2.0 8.0 D、2 8

15、表达式\李\张\的返回值是 ( )

A、True B、False C、出错 D、空白

16、在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1

Private Sub Command1_Click() Dim a As Variant a = Array(1,2,3,4) j = 1

For i = 4 To 1 Step -1 s = s + a(i)*j j = j * 10 Next i Print s End Sub

运行程序，单击命令按钮，其输出结果是_______。 ( )

A、4321 B、12 C、34 D、1234

17、下面有关数组处理的叙述中，不正确的是_______。 ①控件数组可由多个控件组成，这些控件具有相同的名字 ②控件数组中的元素可以是不同类型的控件

③用ReDim语句重新定义动态数组时，不得改变该数组 的数据类型

④可用Public语句在窗体模块的通用说明处定义一个全 局数组 ( )

A、①②③④ B、②④ C、①②③ D、①③④

18、当发生Command1_Click事件后，程序结果是_______。 Option Base 1

Private Sub Command1_Click()

Dim a(4, 4) As Integer, i As Integer, s As Integer s=0 For i=1 To 4 For j=1 To 4 a(i, j) = (i-1)*4+j*2 Next j Next i For i = 1 To 4 s=s+a(i, i) Next i Print s

End Sub ( )

A、28 B、30 C、32 D、44

19、用Msgbox（\你好\）显示的消息对话框窗口的标题是________。A、你好 B、vbokonly C、OK D、Hello

20、在窗体上有一个文本框Text1，在程序运行时，程序段的运行结果是_________。Text1=\For i = 1 To 9 Sum=Sum + i Next i

Text1=Sum ( )

A、在文本框中输出55 B、在文本框中输出45 C、出错

D、在文本框中输出35

21、下面是计算1~100奇数和的程序，空处应填_______。 Private Sub Command1_Click() Dim s As Long, x As Integer s = 0

For x = _______ Step -2 s = s + x Next x Print s

End Sub ( )

A、100 to 1

( )

本文来源：https://www.bwwdw.com/article/p2lv.html