二、填空题（12道小题，共35分）
1、设定系统当前日期是2004年5月12日，Month(date)=5。 2、设A$=\函数返回值是12。
3、在窗体的声明部分，语句Private x% 语句，是将变量定义为 窗体模块 级变量。
4、逻辑型数据只有 true false 两个值。 5、顺序文件读操作用 open 语句。 6、一个工程可以包括多种类型的文件,其中扩展名为.frx的文件表示 frm 文件。
7、Command1.Visible=False,是将命令按钮1设为 把它设置为隐藏 。 8、当鼠标在控件上暂停时，显示提示信息，要用属性 ToolTipText 属性。
9、Text1.SetFocus语句功能是把焦点移到上 Text1。
10、Dim X As Currency 是将变量X定义为 货币 型。 二、填空题（12道小题，共35分）
1、可视化Visual Basic语言是 公司推出的程序开发语言。 2、双击某个对象时，最终引发该对象的事件 执行。 3、程序流程中被重复执行的程序段叫 循环体 。
4、将对象设置为允许用户操作，并对操作作出响应，是将它的Enabled属性值设为 True。
5、在Visual Basic6.0中，用Font.StrikeThtouth属性设置 。 6、表示单精度型数据的单一字符是 !。 7、Rnd函数的含义是 。
8、Chr$(数值)函数返回 该数值表示的字符。
9、在窗体各过程中均有效的变量是 全局变量 。
10、在Print方法中，句尾有符号时，是 换行 执行下一个Print语句
11、下列程序段将十进制数转换为十六进制数，要求十进制数为非负整数。单击窗体，弹出
InputBox对话框，让用户输入一个十进制数；单击“确定”后，在Label1上显示出十
六进制数的结果。如果输入的不是十进制数，在标签Label1上显示出\你输入的不是十进
制数\，退回到对话框状态，让用户重新输入。 Private Sub Form_Click()
Dim sHex As String, Ys As Integer
Dim n As String, nd As Integer, Ai As String sHex = \
n = InputBox(\请输入一个十进制整数\ If Not IsNumeric(n) Or Left(n, 1) = \ Int(Val(n)) <> Val(n) Then
MsgBox \你输入的不是十进制整数！\ End Else
nd = Val(n)
Do While nd >= 10 Ys = nd Mod 16 Select Case Ys Case 10 Ai = \ Case 11 Ai = \ Case 12 Ai = \ Case 13 Ai = \ Case 14 Ai = \ Case 15 Ai = \ Case 0 To 9 Ai = Ys End Select
sHex = Trim(Ai) & sHex nd = nd \\ 16 Loop
Label1 = nd & sHex End If
End Sub
二、填空题（12道小题，共35分）
1、从机器的执行角度来说，程序设计语言可分为高级语言和 两大类。 2、双击某个对象时，最终引发该对象的事件。
3、程序流程是按一定条件重复多次执行一段程序的结构是 结构。 4、将对象设置为禁止用户操作，是将它的Enabled属性值设为。 5、在Visual Basic6.0中，用Font.Italic属性设置 。 6、长整型变量的关键字是 。 7、三角函数是以为 单位。 8、Chr$(13)为 huiche 。
9、在整个工程的所有模块中均有效变量是 全局变量 。
10、方法用于在窗体、图片框、调试窗中、打印机等对象上输出文本 11、下列程序段是用于在一个字符串变量中查找\，并用信息输出框给出找到的个数或
没有找到的查找结果。 Private Sub Form_Click()
Dim Str1 As String, Length As Integer, Sum As Integer, I As Integer Str1 = InputBox(\请输入一个字符串\ Length = I = 1 Sum = 0
Do While I <=length-3 If = \ Sum = Sum + 1 End If I = I + 1 Loop If Then
MsgBox \没有找到！\ Else
MsgBox \找到了\个\ End If 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秒钟变换一次（如见下图）。
二、填空题（12道小题，共35分）
1、可视化Visual Basic以结构化 Object pascal 语言为基础。 2、一个工程可以包括多种类型的文件,其中窗体文件的扩展名为。 3、程序流程中被重复执行的程序段叫 循环结构 。 4、将对象设置为不可见的，是将它的属性值设为False。 5、在Visual Basic6.0中，用Font.Size属性设置。 6、表示货币型数据的单一字符是。 7、Int(x)函数的含义是。
8、设A$=\是一种可视化编程语言\函数返回值是。 9、逻辑值转变为数值时，False为 0 。
10、在Print方法中，输出项用逗号分隔是按 标准 格式输出。
11、下列程序段是用于在一个字符串变量中查找\，并用信息输出框给出找到的个数或
没有找到的查找结果。 Private Sub Form_Click()
Dim Str1 As String, Length As Integer, Sum As Integer, I As Integer Str1 = InputBox(\请输入一个字符串\
I = 1 Sum = 0
Do While I <=length-4 If = \ Sum = Sum + 1 End If I = I + 1 Loop If Then
MsgBox \没有找到！\ Else
MsgBox \找到了\个\ End If End Sub
12、在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程： Private Sub Form_Load() Timer1.Enabled = Timer1.Interval = 1000 End Sub
Private Sub Form_Click() Timer1.Enabled = End Sub
Private Sub Timer1_Timer() Label1.Caption = time() End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（如见下图）。
—————————————————————— 22:40:20
—————————————————————— 二、填空题（12道小题，共35分）
1、从机器的执行角度来说，程序设计语言可分为高级语言和两大类。 2、一个工程可以包括多种类型的文件,其中可执行文件的扩展名为。 3、For...Next结构的循环次数为。
4、将对象设置为可见的，是将它的属性值设为True。 5、在Visual Basic6.0中，用Font.Italic属性设置。 6、变体型变量的关键字是 variant 。 7、三角函数是以为单位。
8、设A$=\是一种可视化编程语言\函数返回值是。 9、在整个工程的所有模块中均有效变量是。
10、在Print方法中，句尾有符号时，是执行下一个Print语句。
11、已知求根区间[a,b]有一根，每次把求根区间缩小一半,直到找到解或求根区间足够小。
二分法求根算法思想： 求[a,b]的中点c，判断
f(c)=0, c为求得的根，结束；
f(a)与f(c)同号,则[a,c]无根，c代替a； 否则[c,b]无根，c代替b；
使求根区间缩小一半，重复上述步骤，直到区间长度小于精度。 根的精度为0.00001，试填空完成此程序。
Public Function halfRoot(a as single, b as single) as single Dim c as single Do While c = (a + b) / 2 If f(c) = 0 Then Exit Do ElseIf Then a = c Else b = c End If Loop
End Function
12、用计时器按秒记时,在窗体上画一个计时器控件timer1和一个标签label1,程序运行后，
在标签内显示经过的秒数,并响铃,补充程序: 1.)需把计时器的Interval属性设置为1000 2.)Private Sub Timer1_Timer() Static c As Integer c=
Beep
二、填空题（12道小题，共35分）
1、可视化Visual Basic语言是一种通用的程序设计语言。 2、双击某个对象时，最终引发该对象的事件。 3、结构最常用于循环次数已知的循环结构。
5、在Visual Basic6.0中，用Font.Size属性设置。 6、表示货币型数据的单一字符是。 7、Rnd函数的含义是
8、设A$=\是一种可视化编程语言\函数返回值是。 9、只在一个过程有效，其它过程无效的变量是 。
10、方法用于在窗体、图片框、调试窗中、打印机等对象上输出文本 11、本程序用辗转相除法求两自然数m、n的最大公约数和最小公倍数。 求最大公约数的算法如下：
（1） 对于已知两数m、n，使得m>n； （2） m除以n得余数r；