08微机升学班第三次段考试题(2)

Text1.Text=”” End If End sub

14．在窗体上有一个文本框控件，名称为Txttime;一个计时器控件，名称为Timer1,要求每一秒钟在文本框中显示一次当前的时间。将下面程序补充完整。 Private Sub Timer_Timer( )

TxtTime.text= End Sub

15．阅读程序：

Private Sub Form_Click( ) num=0

Do While num<=2 num=num+1 print num Loop End Sub

程序运行后，单击窗体，输出结果是 三、判断题（每小题1分，共10分）

（ ）1．VB6.0中&H12是8进制的数值常数。

（ ）2．Print Tab(3);\和 Print Space(3);\的效果相同。 （ ）3．一个窗体一定对应一个窗体文件,所以一个应用程序只能包含一个窗体。 （ ）4．在Visual Basic中，For-Next循环遵循“先检查，后执行”的原则。 （ ）5. VB6.0中若表示一个日期和时间常量必须也只能用\号将其括起来。 （ ）6. 语句a%=3.567:print a%的输出结果是4。

（ ）7. If x>y Then Max=x Else Max=y 程序段是求两个数中的最大数。 （ ）8. 一个符号常量可以赋同一类型的不同值。

（ ）9. X=28,则表达式(X Mod 10)*10+X/10 的结果为82。

（ ）10. 鼠标左键单击“工具”菜单中的“菜单编辑器”菜单项就可打开“菜单编辑器”窗口。

四、程序改错（共5分）

为求解S=1！+2！+3！+…+10！的值，某同学编程如下： Private Sub Form_Click() Function jc(n) As Long Dim s As Long Dim t as Long

S=0 T=1 For k=1 to 10 For j=1 to n S=s+jc(k) T=t*j Next k Next j Print s Jc=n End Sub

在调试时发现运行结果有错误，需要修改，请从下面修改方法中选择一个正确选

6

项： 。

A）循环体中语句S=S+JC(k)错误，应改为S=JC(k)

B）函数定义语句错误，应改为Function JC(n ) As Integer C）语句t=1错误，应改为t=0 D）语句jc=n错误，应改为Jc=t

五、写出下列程序的运行结果（每小题5分，共20分） 1．Private Sub Form_Click( )

num=0

Do while num<=2

num=num+1 Print num

Loop End Sub

程序运行后，单击窗体， 输出结果是：

2．在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

Dim arr(5) As Integer, n As Integer For i = 1 To 5 arr(i) = i + i Next fun arr, n Text1.Text = Str(n) End Sub

程序运行后,单击命令按钮,则在文本框中显示的内容是 3． 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_click() Dim m(10)As Integer For k=1 To 10

7

M(k)=12-k Next k X=6

Print m(2+m(x)) End Sub

程序运行后，单击命令按钮，输出结果为

4．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_click( ) Dim a(5) For I=0 To 4 A(i)=I+1 T=I+1 If t=3 Then Print a(i); A(t-1)=a(I-2) Else

程序运行后，单击命令按钮，输出结果是 六、程序填空题（每空5分，共10分）

以下程序的功能是：在当前文件夹下建立一个顺序文件Myfile3.txt，然后写入3名学生的学号及手机号码。

Private Sub Form_Load()

AS#1 For k=1 to 3

StNo=InputBox(“学号:”)

StMb=InputBox(“手机号码：”)

Next k Close #1 End Sub

A(t)=a(i) End If

If I=3 Then a(I+1)=a(t-4) A(4)=1 Print a(i); Next I End Sub

8

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库08微机升学班第三次段考试题(2)在线全文阅读。