VB超全填空题(3)

5、在Visual Basic6.0中，用Font.Size属性设置。 6、逻辑型变量的关键字是 boolean 。 7、Exp(x)函数的含义是。

8、设A$=\Basic是一种可视化编程语言\函数返回值是 8 。

9、全局变量用关键字 public 声明。

10、在Print方法中，句尾无符号时，是 执行下一个Print语句。 11、本程序用辗转相除法求两自然数m、n的最大公约数和最小公倍数。 求最大公约数的算法如下：

（1） 对于已知两数m、n，使得m>n； （2） m除以n得余数r；

（3） 若r=0，则n为求得的最大公约数，算法结束；否则执行（4）； （4） m=n，n=r再重复执行（2）。

原两数相乘除以最大公约数即为最小公倍数。程序段如下： Private Sub Form_Click()

Dim m as integer,n as integer,r as integer,mn as integer n=Val(InputBox(“n=”)) m=Val(InputBox(“m=”)) If n<=0 OR m<=0 Then MsgBox “数据出错” End End If

If m

Do While () m=n n=r Loop

Form1.Print “最大公约数=”,n, Form1.Print “最小公倍数=”,mn/n End Sub

12、在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程： Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = End Sub

Private Sub Form_Click() Timer1.Enabled =

End Sub

Private Sub Timer1_Timer() Label1.Caption = time() End Sub

程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（如见下图）。

—————————————————————— 14:54:41

—————————————————————— 二、填空题（12道小题，共35分）

1、可视化Visual Basic语言是一种通用的 面向对象 程序设计语言。 2、单击某个对象时，引发该对象的事件。

3、程序的流程出现一个或多个分支，按一定的条件选择其中之一执行的结构叫结构。

4、在Visual Basic6 0中，设置对象标题是用属性。 5、在Visual Basic6.0中，用Font.Size属性设置。 6、表示长整型数据的单一字符是。 7、Fix(x)函数的含义是。

8、设A$=\是一种可视化编程语言\函数返回值是。 9、在窗体各过程中均有效的变量是 全局变量 。

10、方法用于在窗体、图片框、调试窗中、打印机等对象上输出文本。

11、求满足不等式1+2*x+3*x^2+4*x^3+??+（n+1）*x^n<1000的最大n值，x是大于等于1的

实数，其值由键盘输入。 X=Inputbox(\ s=1:n=1 p=x

Do While s=s+(n+1)*p n= Loop n= n-1

Print “The Maxism of n”;n,”s=”;s End

12、在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程： Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = End Sub

Private Sub Form_Click() Timer1.Enabled = End Sub

Private Sub Timer1_Timer() Label1.Caption = time() End Sub

程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（如见下图）。

—————————————————————— 14:54:41

—————————————————————— 1) 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______。 答案：12

2) 语句a%=3.14156:Print a%的输出结果是______。 答案：3 3) 以下循环的执行次数是_____。 K=0

Do While k<=10 k=k+1

Loop 答案：11

4) 双精度数用字母_____将尾数与指数分开。 答案：D 5) 下列程序段的执行后输出的结果为_____。 I=4:A=5 Do

I=I+1:A=A+2 Loop Until I>=7

Print \答案：A=11

6) 表达式3/6*5的值是_______。 答案：2.5

7) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If a

If a

If_____Then d=b:b=c:c=d EndIf

Print a,b,c 答案：b

8) 在Select case 结构中应至少包含一个______子句。 答案：CASE

9) 窗体的属性可在属性窗口中设置，也可在程序中用______语句动态设置。 答案：赋值

10) 有如下Sub过程: Sub ind(a As Integer) Static x As Integer x = x+a Print x; End Sub

以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为______。

Private Sub Command1_Click() Ind(2)

End Sub 答案：2

11) 逻辑常量值为TRUE或_______。 答案：FALSE 12) 货币类型的数据小数点的位置是固定的，精确到小数点后_____位。 答案：4

13) 表达式（2+8*3）/2的值是______。 答案：13

14) 以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。

If X___2=____ Then Print X 答案：MOD#0 15) 当对窗体中的对象进行_____操作时，Visual Basic 就会显示该对象的代码窗口。 答案：双击

到 15 (总共 103 个记录) 第一页 前一页 下一页 最后一页 16) 下列程序的执行结果是____。 T = O : m = 1 : Sum = 0 Do

t = t + m : Sum = Sum + t : m = m + 2 Loop While m <= 9

Print Sum 答案：55

17) 一组具有相同名称，不同下标的下标变量称为______。 答案：数组 18) 给定年份，下列程序用来判断该年是否闰年，请补充完该程序。

提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。 Private Sub Command6_Click() Dim y As Integer

y=InputBox(\请输入年号\

If(y Mod 4=0______y Mod 100<>0) or (y Mod 400=0) Then Print \是闰年\

Else Print \是普通年份\End If

End Sub 答案：AND

19) 设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_____。 答案：FALSE

20) 假定在C：盘根目录下有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句为_____。 答案：PICTURE1.PICTURE=LOADPICTURE(\

21) 为了能自动放大或缩小图象框中的图形以与图象框的大小相适应,必须把该图象框的Stretch属性设置为______。 答案：TRUE

22) 根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类，即_____、模块变量和全局变量。 答案：局部变量 23) 表达式3>4 and 7=5的值是______。 答案：FALSE 24) 以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。 Private Sub Commmand1_Click()

Dim x As Integer x = 100

Do Until x > _____ If x Mod 3 <> 0 Then Print x End If x = x + 1 Loop

End Sub 答案：X>200

25) 下列程序段的执行时，共循环____次。 For a=0 To 1 For b=1 To 2 For c=1 To 3 I=I+1 Next c Next b

next a 答案：12

26) 以下程序计算2到50间所有偶数的和，请补充完该程序 Sub mult()

Dim Sum As Integer Sum=0

Dim I as integer For___to 50

If I MOD 2=___Then___ Next I Print sum

End Sub 答案：I=2#0#SUM=SUM+I

27) A=7,B=3,C=4,则表达式 A MOD 3+B^3/C\\5的值为____。 答案：2 28) 下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。 For j=1 to 10 s=s+j

If s>=10 then______。 Next j 答案：EXIT FOR 29) 下列程序段的运行结果是： Sub sele()

Dim n as Integer I=21:n=3

Do While I>n I=I-n Loop Print I End Sub

打印结果_____。 答案：3

30) Visual Basie中的常量分为两种，一种是文字常量，一种是____常量。