南工大VB模拟试题

End Sub ( )

A、1 1 1 B、1 1 1 C、1 2 3 D、1 1 1 1 2 3 1 1 1 123 222 2 2 2 2 2 2 123 333 1 2 3 2 2 2 3 3 3 333 1 2 3 333

134、设有下列程序代码，在单击命令按钮时的输出结果是________。 Sub SS (ByVal x, ByRef y, z) x=x+1 y=y+1 z=z+1 End Sub

Private Sub Command1_Click ( ) A=1: B=2 :C=3 Call SS (A,B,C) Print A,B,C End Sub ( )

A、1 2 3 B、1 3 4 C、2 2 4 D、1 3 3 135、系统默认的参数传递方式是___________传递。 ( )

A、按值 B、按地址 C、ByVal D、按实参

136、如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参数传递方式称为___________传递。 ( )

A、按值 B、按地址 C、ByRef D、按形参

137、通用过程可以完成一项指定任务，必须由__________调用才行。 ( )

A、应用程序 B、系统引发 C、定时器 D、Sub Main

138、 ( )

A、

                             &#

160; 。 ( )

A、 B、

C、

D、 140、窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为__________。 Private Sub fun( ) Static a As Integer a=a+2 Print a; End Sub

Private Sub Command1_Click( ) Dim m As Integer For m=1 To 3 Call fun Next m End Sub ( )

A、2 2 2 B、0 0 0 C、2 4 8 D、2 4 6 141、856. 窗体中添加一个命令按钮，程序运行后，输出结果为_________ 。 Private Sub test(x,y,z) x = x+1: y = y + 2: z = z + 3 Print \End Sub

Private Sub Command1_Click( ) a1 = 10: b1 = 17: c1 = 41 Call test(a1,b1+2,(c1)) Print \End Sub ( )

A、Sub=10 17 41 Main=11 17 44 B、Sub=10 17 41 Main=11 17 44 C、Sub=12 11 41 Main=10 11 41 D、Sub=11 21 44 Main=11 17 41

142、参数传递有值传递和地址传递，_________关键字表示地址传递。 ( )

A、ByVal B、ByRef C、Value D、Refrence

2、填空题(本题共计88分)

1、执行下面的程序，击窗体后在窗体上显示的第一行结果是___(1)______，第三行结果是____(2)_______。 Private Sub Form_click()

Dim mystr, mystr1, mysrr2 As String mystr1 = \For i = 1 To 3

mystr2 = LCase(mystr1) mystr1 = mystr1 & mystr2 mystr = mysre & mystr1

Print mystr

mystr1 = Chr(Asc(mystr1) + i) Next i End Sub

2、以下程序段的输出结果是_____ 。 Dim j As Integer,s As Integer Do s=s+j j=j+1 Loop Until j=5 Print \

3、执行下面的程序段后，s的值为_____ 。 s=5

For i=2.6 To 4.9 Step 0.6 s=s+i Next i print s

4、可使用列表框的______ 方法向列表框中增加一个项目。 5、在VB中一个汉字的长度等于____ 个英文字母的长度。 6、文本框的_____ 属性用来设置在文本框中显示的最多字符个数。

7、要使文本框可以显示多行文本，应把文本框的__(1)___ 属性设置为True。 8、__(1)__属性决定了按Tab键时，焦点在各个控件移动的顺序。

9、已知K=2，J=3，A=True，则VB表达式(K-J<=K)AND(NOT A)OR(K+J>=J)的值为 _____。 10、表示\大于等于255，或A与B分别大于90且C大于80\的VB表达式的 ____ 11、表示\和B之一为零但不同时为零\的VB表达式为______ 。 12、能正确产生[1,30]之间的随机整数的表达式是 ________ 。 13、表达式Fix(-48.65)+Int(-52.15)的值是________。

14、已知A=7.5，B=2，C=-3.6，表达式 a>b and c>a or ab的值为___(1)____. 15、X是小于100的非负数，对应的表达式是____(1)______. 16、A的绝对值大于等于B同时不等于C的表达式是____(1)____. 17、关系式-5<=X<=5所对应的表达式是_____(1)______

18、A=7，B=3，C=4，则表达式 A MOD 3+B^3/C\\5的值为______。 19、表达式7^2Mod 5^2\\3的值为__________

20、2Sinx+3Cosx+Tan2x+LnxLny的VB表达式为________

21、下列程序的功能是输出如下数列的前20项，按每行5个数的形式输出。 1，1，2，3，5，8，13,...... Dim a As Integer,b As Integer Dim i As Integer a=1:b=1:i=3 Print a,b, Do While(i<=20) c=a+b t=b b=a+b

____(1)____ Print c,

If____(2)____ Then Print End If _____(3)_____ Loop

22、在窗体中添加一个命令按钮Command1，并编写如下程序代码。执行程序单击命令按钮后，文本框中的结果是_________。

Option Explicit

Private Sub Command1_Click( ) Dim x(3),i as integer For i=1 To 3 x(i)=i+i^2 Next i Print x(i-1) End Sub

23、以下程序的输出结果是______ 。 x=12.7 x=Int(x+0.5) Print x

24、下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是_____。 Dim a As Integer,b As Integer a=InputBox(\请输入第一个整数\b=InputBox(\请输入第二个整数\Print a+b

25、下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是__(1)___。 a=InputBox(\请输入第一个整数\b=InputBox(\请输入第二个整数\Print a+b

26、语句Print \执行后，窗体上打印结果是_______ . 27、InputBox函数返回值的类型为_________。

28、下面程序的功能是判断100～999之间的所有素数，所谓素数是指只能被1和它本身整除的数。完善下列程序。

Private Sub Form_Click( ) Dim i As Integer Dim k As integer For i=100 To 999 For k=2 To i-1 If ________Then _________ End If Next k

If ________Then