题目内容
（请给出正确答案）
阅读下面的程序： 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 Command1_C…”相关的问题
●试题四
阅读下面的要求，在填入适当的语句。
要求执行该段程序后能弹出一个对话框，对话框中有"确定"和"取消"按钮，以及一个带问号的图标，并要求第一个按钮为默认按钮。
Private Sub Form_Load()
MsgBox"要重新输入吗？"，"询问"
End Sub
在窗体下画两个文本框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)实现了对这张表中记录的增加、删除和修改操作。其运行界面如下：
![阅读以下说明及Visual Basic程序代码，高尔夫球应填入（n)处的字句写在对应栏内。[说明]](https://img2.soutiyun.com/shangxueba/ask/11259001-11262000/11260092/ct_crppxm_crppxprogxvb_00047(20093).jpg)
在开发过程中，数据控件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
执行下面的程序，输出的结果是 ______ 。 Private Sub Command1_Click() ch $ = "Welcome to China!" n = Len(ch $ ) For i =1 To n-1 s$ =Mid(ch$ ,i,1) If s$ ="o" Then m=m + 1 Next i Print m End Sub
A．1
B．2
C．8
D．0
阅读下列说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。
[说明]
某小型家电超市开发了下面的程序，用以实现商品提货信息的汇总和输出功能。程序的运行界面如下图所示：
![阅读下列说明和Visual Basic代码，将应填入（n)处的字句写在对应栏内。[说明] 某小型家电](https://img2.soutiyun.com/shangxueba/ask/11142001-11145000/11144560/ct_crppxm_crppxprogxvb_00021(20093).jpg)
程序界面包含两个控件数组，分别是提货商品复选框控件数组Check1以及提货数量文本框控件数组Text1(相同下标的复选框和文本框相对应)，提货清单的显示由List控件实现，按钮“打印清单”和“清除”分别名为Command1和Command2。
[Visual Basic代码]
’提货商品复选框的单击事件响应代码
Private Sub Check1_Click(Index As Integer)
If Check1 (Index). Value = 1 Then (1). SetFocus
End Sub
’按钮“打印清单”的单击事件响应代码
Private Sub Command1_Click()
Dim i, n, price As Integer, sum As Long, title As String
sum = 0
For i = O To 4
Select Case i
Case 0: title ="电视机": price = 3580
Case 1: title ="微波炉": price = 660
Case 2: title ="电冰箱": price = 1850
Case 3: title ="DVD": price = 2880
Case 4: title ="空调": price = 2500
End Select
If (2)= 1 And Textl(i). Text ＜ ＞ " " Then
(3) title & Text1(i).Text & "台"
n = n + Val(Textl(i))
sum =(4)
End If
Next i
If sum ＜ ＞ 0 Then
(3) "共:" & n &"台," &"合计金额:"& sum &"元。"
End If
End Sub
’按钮“清除”的单击事件响应代码
Private Sub Command2_Click()
(5)
End Sub
运行下面的程序，单击窗体后在窗体上显示的内容是（）。
Private Sub Form_Click()
For i = 1 To 10 Step 2
Print I;
Next I
End Sub
执行下面的程序，消息框里显示的结果是 【 】 。
Private Sub Form_Click()
Dim Str As String， K As Integer
Str="ab"
For k=Len(Str) TO 1 Step-1
Str=Str & Chr(Asc(Mid(Str，k，1))+k)
Next k
MsgBox Str
End Sub
阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。
[说明]
某公司的服务器上为每位员工提供了一定大小的存储空间，用于数据的备份。下面的程序面向公司员工，提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下：
(1)连接服务器：员工需要输入用户名和口令才能连接到服务器端，checkUser函数用于检查用户名和口令是否合法，返回真假值。
(2)上传文件：从本地计算机上传文件到服务器。员工可以在本地文件列表中选择一个或多个文件，这些文件通过上传操作被复制到服务器端指定的某个文件夹中；
(3)下载文件：从服务器端下载文件到本地。
![阅读以下说明及Visual Basic程序代码，将应填入（n)处的字句写在对应栏内。[说明] 某公司](https://img2.soutiyun.com/shangxueba/ask/11259001-11262000/11260009/ct_crppxm_crppxprogxvb_00015(20093).jpg)
在开发过程中，本地驱动器列表框名为Drive1，本地和服务器端目录列表框分别名为Dir1和 Dir2，本地和服务器端文件列表框分别名为File1和File2，界面上有上至下四个按钮分别名为Command1至Command4。
[Visual Basic代码]
Private Sub Drive1_Change()
(1) ’更新目录列表框的路径
End Sub
Private Sub Dir1_Change()
File1.Path=Dir1.Path ’更新文件列表框file1的路径
End Sub
Private Sub Dir2_Change()
File2.Path=Dir2.Path ’更新文件列表框file2的路径
End Sub
’连接服务器
Private Sub Command1_Click()
Dim user,password As String
user=(2) (“请输入用户名：”)
password=(2) (“请输入口令：”)
If check User(user,password)Then ’若用户名和口令正确
Dir2.Path=…… ’打开服务器上某一指定目录
Else: MsgBox“口令错误，请重试!”
End If
End Sub
’上传文件
Private Sub Command2_Click()
Dim fso As new FileSystemObject,f As File,i As Integer
If File1.FileName=""Then ’判断是否已经选中文件
MsgBox“请选择本地的文件!”
Exit Sub
End If
’创建文件系统对象
Set fso=CreateObject(“Scripting.FileSystemObject”)
’上传文件
For i=0 To (3) ’遍历文件列表框File1中的全体文件
If (4) Then’若该文件被选中
Set f=fso. (5) (Dir1.Path & “\” & File1.List(i))
f.Copy Dir2.Path & “\” & File1.List(i),True ’复制文件至服务器端
End If
Next
File2.Refresh
End Sub
’下载文件
Private Sub Command3_Click()
……
End Sub
’退出程序
Private Sub Command4_Click()
End
End Sub
完成下面的程序，使显示结果如下图所示。
Private Sub Form_Click（）
FontSize=18
Sample＄=" 【8】 "
x=（ScaleWidth-TextWidth（Sample＄） ） /2
y=（ScaleHeight-TextHeight（Sample＄） ） /2
CurrentX=x
CurrentY=y
【9】 Sample＄
End Sub
为丫从当前文件夹中读入文件File1．txt，某人编写了下面的程序：
Private Sub Command1_Click（）
Open"File1．txt"For Output As#20
Do While Not EOF(20)
Line Input#20，ch$
Print ch
Loop
Close#20
End Sub
程序调试时，发现有错误，下面的修改方案中正确的是（）。
A.在Open语句中的文件名前添加路径
B.把程序中各处的“20”改为“1”
C.把Print ch语句改为Print#20，ch
D.把Open语句中的0utput改为Input
