VB练习题

1.下列的逻辑表达式中不正确的是（x

3.执行下面的程序段后,x的值为(21). x=5 For i=1 To 20 Step 2 x=x+i\\5 Next i

解答：5+1\\5+3\\5+5\\5+7\\5+...19\\5=21

4.欲使标签的内容自动换行,必须设置属性(WordWrap).

5.表达式 15 Mod 4 + 13 \\ 5 * 2 的值是（4） 6.表达式4+5 \\ 6 * 7 / 8 Mod 9 的值是(5). 解答：4+5\\6*7/8Mod9

＝4+5\\42/8Mod9说明：先计算6*7＝42 ＝4+5\\（5.25）Mod9说明：再计算42/8＝5.25 ＝4+5\\5Mod9说明：下一步计算5\\5.25，在计算之前先把小数取成整数，即把5\\5.25舍成5\\5

＝4+1Mod9说明：下一步计算5\\5＝1 ＝4+1说明：下一步计算1Mod9＝1 ＝5说明：最后一步计算4+1＝5，即最终结果。 7.若要禁止窗体被用户移动,通过设置可达此要求的窗体的属性是(controlbox).

8.表达式(-1)*Sgn(-100+Int(Rnd*100))的值是(1).

解答：Rnd*100是取0~100的小数 Int(Rnd*100)是对0~100的小数去整，结果是0~99的整数

(-100+Int(Rnd*100)得数一定是负数

Sgn(-100+Int(Rnd*100))得数为-1 'Sgn函数，当参数大于0事返回1，参数小于0时返回-1，参数等于0时返回0

（－1）*Sgn(-100+Int(Rnd*100))的值是1 9.假定时钟控件的Interval属性为1000,Enabled属性为True,并且有下面的事件过程,

计算机将发出Beep声的次数是（以上都不对）

10.设a=10,b=5,c=1,执行语句Print a>b>c后,窗体上显示的是(false).

解答：false .我来补充了。运算的时候只这样的：先算a>b,即：10>5 结果为true 也就是-1 再算-1>c 即-1>1 结果自然就是false了

11.表达式X+1>X是(关系表达式).

12.在逐行运行程序的语句时,可用调试窗口监视表达式和变量的值,

其中(立即)窗口是用来显示代码中正在调试的语句所产生的信息,

或显示直接在该窗口中键入的命令所请求的信息.

13.在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示(Form-load)事件过程模板. 14.如果Forml是启动窗体,并且Forml的load事件过程中有form2.show,则程序启动后(，在所有初始化代码运行后Forml是活动窗体)

15.下面关于顺序文件的描述正确的是（数据只能以ASCII码形式存放文件中，所以以通过文本编辑软件显示） 16.如下程序：

Private Sub Command1_Click() Print p1(3,7) End Sub

Public function p1!(x!,n%) If n=0 Then P1=1 Else

If n Mod 2=1 Then P1=x*p1(x,n\\2) Else

Pl=pl(x,n\\2)\\x End If End If

End Function

运行的结果是（27）

解答：开始 7 Mod 2 = 1 所以 p1 = 3 * ①p1(3,7\\ 2) ①=p1(3,3)

3 Mod 2 = 1 所以 p1 = 3 * ②p1(3,3\\ 2) ②=p1(3,1)

1 mod 2=1 所以 p1=3*③p1(3,1\\2) ③=p1(3,0)

n=0 所以 p1=1,循环结束 返回③=1 返回②=3*1 返回①=3*3*1 最终值=3*3*3*1

圆圈里面的数字就是p1(.)这个函数 17.下面过程运行后显示的结果是（）下面过程运行后显示结果是（2 34 ）。Public

Sub F1(n%，ByVal m%) N=n Mod 10 m=m\\10 End sub