原创力文档- 1、本文档共97页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
1.下列程序段运行后的输出结果是：
For i = 1 To 3
For j = 1 To i
For k = j To 3
m = m + 1
Next k
Next j
Next i
Print m
答案：14
2.在窗体上有一个名称为Drive1的驱动器列表框(当前驱动器为C:)，一个名称为Dir1的目录列表框(当前目录如图)，一个名称为Text1的文本框和一个标题为“显示”，名称为Command1的命令按钮，设计阶段如图所示。然后编写如下的两个事件过程：
Private Sub Command1_Click()
Dir1.Path = e:\图片
End Sub
Private Sub Dir1_Change()
Text1.Text = Drive1.Drive
End Sub
则程序运行后，单击命令按钮，文本框中显示的内容为：
答案：c:
3.在名称为Form1的窗体上有一个框架，名称为Frame1，标题为“三大火炉”，在框架中有一个名称为Opt1的单选按钮控件数组，其包含3个单选按钮，Index值从0到2，标题分别为“南京”，“重庆”，“武汉”，还有一个名称为Text1的文本框(内容为空)和一个名称为Cmd1，标题为“确定”的命令按钮，如图所示。本窗体有如下的两个事件过程：
Private Sub Cmd1_Click()
Opt1(1).Value = 1
End Sub
Private Sub Opt1_Click(Index As Integer)
Text1.Text = 三大火炉之一 Opt1(Index).Caption
End Sub
程序运行后，单击命令按钮，则文本框中显示的结果是：
答案：三大火炉之一重庆
4.在名称为Form1的窗体上有一个名称为Text1的文本框和3个命令按钮，名称分别为Cmd1、Cmd2、Cmd3，标题分别为“文字1”、“文字2”、“文字
Private Sub Cmd1_Click()
Text1.Text = 计算机
End Sub
Private Sub Cmd2_Click()
Text1.Text = 电脑
End Sub
Private Sub Cmd3_Click()
Cmd2_Click
End Sub
则程序运行后，单击Cmd3命令按钮，文本框中显示的内容是：
答案：电脑
5.在名称为Form1的窗体上有一个名称为List1的列表框和1个名称为Cmd1，标题为“添加”的命令按钮。且本窗体有如下的两个事件过程：
Private Sub Form_Load()
List1.AddItem AAA
List1.AddItem BBB
End Sub
Private Sub Cmd1_Click()
List1.AddItem DDD, 1
List1.AddItem EEE, 1
End Sub
运行后的界面如下图所示，当单击命令按钮后，列表框中显示的内容是：
答案：
AAA
EEE
DDD
BBB
6.在窗体上有一个命令按钮，然后编写以下事件过程：
Private Sub Command1_Click()
Dim n As Integer, m As Integer
m = 15
If m \ 2 = m / 2 Then
n = m / 3
Else
n = m / 5
End If
If m Mod 3 = 0 Then
n = m / 2
End If
Print n
End Sub
程序运行后，单击命令按钮，输出结果是：
答案：8
7.以下程序段运行后，输出的结果为：
Dim i, k, a(5), p(2)
k = 5
i = 0 To 5
a(i) = i
Next i
For i = 0 To 1
p(i) = a(i * (i + 1))
Next i
for i = 0 To 1
k = k + p(i) * 2
Next i
Print k
答案：9
8.在窗体上有一个名称为Command1，标题为“确定”的命令按钮和一个名称为Text1的文本框(内容为空)，
如图所示。然后编写如下事件过程：
Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 5 To n
For j = 2 To i-1
If i Mod j = 0 Then Exit For
Next j
If j=i Then Print i;
Next i
End Sub
程序运行后，在文本框中输入10，然后单击命令按钮，窗体上显示
文档评论（0）