阅读下面的程序：Private Sub Form_Click（) Dim Check As Boolean，Counter As Integer Check=Tree

阅读下面的程序：

PriVate Sub Form_C1ick()

Dim Check As Booleau，Counter As Integer

Check=True

Counter=5

Do

Do While Counter＜20

Counter=Counter+1

If Counter=10 Then

Check=FalSe

EXit Do

下面的程序是找出50以内所有能构成直角三角形的整数组。阅读下面程序，并完成程序。

Private Sub Command1_Click()

For a = 1 to 50

For b = a to 50

c = Sqr(a^ 2 + b^ 2)

If【 】then print a; b; c

next b

next a

end Sub

阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是

A．3

B．9

C．14

D．21

阅读下面的程序：

Private Sub Form_Click（）

Dim Check As Boolean, Counter As Integer

Check = True

Counter = 5

Do

Do While Counter ＜ 20

Counter = Counter + 1

If Counter = 10 Then

Check = False

Exit Do

End If

Loop

Loop Until Check = False

Print Counter

End Sub

程序运行后，单击窗体，输出结果为______。

阅读下面的程序： Private Sub Form_Click() Dim Check， Counter Check=True Counter=0 Do Do While Counter ＜ 20 Counter=Counter + 1 If Counter=10 Then Check = False Exit Do End If Loop Loop Until Check = False Print Counter， Check End Sub 程序运行后，单击窗体，输出的结果为

A．15 0

B．20 -1

C．10 True

D．10 False

●试题四

阅读下面的要求，在填入适当的语句。

要求执行该段程序后能弹出一个对话框，对话框中有"确定"和"取消"按钮，以及一个带问号的图标，并要求第一个按钮为默认按钮。

Private Sub Form_Load()

MsgBox"要重新输入吗？"，"询问"

End Sub

阅读下面的程序： Private Sub Form_Click() Dim m，n As Integer m=InputBox("请输入M的值") m=Val(m) m1=m n=InputBox("请输入N的值") n=Val(n) n1=n Do While n＜＞0 remin=m Mod n m=n n=remin Loop Print m1，n1，m End Sub 程序运行后，单击窗体，在对话框中分别输入16和24，则程序在窗体上的输出结果为

A．16 24 4

B．16 24 8

C．24 16 6

D．24 16 8

阅读下面的程序； Function Func(x As Integer，y As Integer)As Integer Dim n As Integer Do While n ＜ = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click() Dim x As Integet, y As Integer Dim n As Integer，z As Integer x=1 y=1 For n = 1 To 6 z=Func(x，y) Next n Print z End Sub 程序运行后，单击命令按钮，输出的结果为．

A．16

B．21

C．26

D．31

在窗体下画两个文本框Text1和Text2，一个命令按钮Command1，请阅读下列程序段：

Private Sub Command1_Click()

x=0

Do Until x＞=50

x=(x+4)*(x+3)

n=n+1

Loop

Text1.Text=Str(n)

Text2.Text=Str(x)

End Sub

运行程序后，单击命令按钮，在两个文本框中显示的值分别为()。

A．1和0

B．2和240

C．3和50

D．4和168

阅读以下说明及Visual Basic程序代码，高尔夫球应填入(n)处的字句写在对应栏内。

[说明]

设某单位Acess数据库中有一张员工信息表，其中记录了员工编号、姓名、性别等基本信息。下面的应用程序利用数据控件(Data)实现了对这张表中记录的增加、删除和修改操作。其运行界面如下：

在开发过程中，数据控件Data1与员工数据表相连接，各文本框、“性别”组合列表框Combo1、“政治面貌”组合列表框Combo2都分别与数据表的相应字段绑定，界面上从左到右各操作按钮分别取名为CmdAdd、CmdDel、CmdUpdate和CmdExit。

[Visual Basic代码]

Private Sub Form_Load() ' 加载窗体

Combo1. (1) "男"

Combo1. (1) "女"

Combo2. (1) "党员"

Combo2. (1) "团员"

Combo2. (1) "群众"

End Sub

Private Sub CmdAdd_Cliek() '增加记录

Datal. Recordset. AddNew

End Sub

Private Sub CmdDel_Click() '删除记录

Datal. Recordset. (2)

Datal. Recordset. MoveNext

End Sub

Private Sub CmdUpdate_Click() '修改记录

If Datal. ReadOnly = (3) And Datal. Recordset. Updatable Then

Datal. Recordset. Edit

Datal. Recordset. (4)

Else

MsgBox "数据表不允许修改!"

End If

End Sub

Private Sub CmdExit_Click () '退出程序

Dim ret As Long

ret : MsgBox("真的要退出吗？", vbQuestion + vbYesNo, "退出" )

If (5) Then

Datal. Reeordset. Close

End

End ff

End Sub