fact = x End Function
Private Sub Form_Click()
Dim e As Single, item As Single Dim n As Integer e=1 : n=__0____ Do
n = n + 1
item=__1/fact(n)____ e = e + item
Loop while _item>=1.OE-8_ Form1.Print \End Sub
一、 填空题
1.ＶＢ中若要产生一消息框，可用__（1）__函数来实现。Msgbox
2．常量是指在程序运行过程中， （2） 的量 其值不能改变 3．整数类型数据分别包括整型和 （3） 数据。 长整型
４、在ＶＢ集成开发环境中，运行应用程序的方法有三种：一是_(4)__；二是_(5)_；三是_(6) 。
\运行\菜单下的启动 单击工具栏上人启动按钮 按F5键
５、在ＶＢ中若要让某对对象获取焦点，则可通过__(7)_方法来实现。Setfocus
6．列表框（ListBox控件）显示 (8) ，用户可从中选择一个或多个项目。 项目列表
7．框架（Frame控件）可以用来 (9) 进行分组，以便于用户识别，主要用于为单选按钮分组。对其他按钮
８、在ＶＢ中，用来描述对象外部特征的量称之为对象的_(10)__。 属性
９、为使某窗口中的命令按钮\取消(C)\具有如下特性：按\＋C\键或按 \键，均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为__(11)___，并且设置其__(12)__属性值为__（13）__。取消&C Cancle Ture
10、在过程内用_（14）__声明的变量为静态变量，在执行一个过程结束时，过程中所用到的 Static变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。 Static 11、在模块文件中的声明部分用Global或__（15）__关键字声明的变量为全局变量。 Public 12、在模块文件中的声明部分用__（16）__或__（17）__定义的变量为模块级变量。 Dim Private
13．计时器控件通过定期激活Timer事件，使得Timer控件 （18） 就执行一次Timer事件中的代码。 每隔一个时间段
14．要获得滚动条的当前位置，可以访问通过 （19） 属性来实现。Value值
15．关闭正在运行的VB窗口将自动触发的事件是 （20） 。Unload 四、读程序题，写出程序运行结果 1.Private Sub Form_Click( ) Static Sum As Integer For I=1 To 10 Sum= Sum+I Next I Print Sum
End Sub 55
2.Private Sub Form_Click ( )
Print \；Tab(9);3,Tab(18);6 Print
For I=15 to 16 Print I;
For j=3 To 6 Step 3 Print Tab(3*j);j*I; Next j Print Next I End Sub
* 3 6
15 45 90 16 48 96
3.Private Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac =f
End Function
Private Sub Form_Click( ) Dim I As Integer For I=1 To 5
Print \Σ\；I & \Next I End Sub
Σ1=1 Σ2=2 Σ3=3 Σ4=4 Σ5=5
4.Private Sub Command1_Click( ) Text1.Text=努力
End Sub \
Private Sub Command2_Click( ) Text1.Text=\学习\End Sub 学习
单击Command2按钮，又单击Command1按钮，在文本框中显示什么？