发布时间 : 星期一 文章VB 复习更新完毕开始阅读bf7fa604844769eae009edb0
End If Next i End If
Text3.Text = sum
实验五补充习题
1．打开工程文件Mp.vbp，在标题为“冒泡排序”的窗体Form1上，添加两个命令按钮Command1和Command2，其标题分别为“序列生成”和“冒泡排序”；再添加两个文本框Text1和Text2，其初始文本内容为空、能够显示多行文本，且有一个垂直滚动条。运行后，单击“序列生成”按钮，自动生成10个1～100之间的随机整数，并分行形式在文本框Text1中显示；单击“冒泡排序”按钮，用“冒泡法”对这10个整数按从小到大进行排序，并将排序后的结果分行形式显示在文本框Text2中。
完成上述功能后，以原文件名保存窗体（Mp.frm）和工程（Mp.vbp）。
Dim i As Integer Randomize For i = 1 To 10
a(i) = Int(Rnd * 100) + 1
Text1.Text = Text1.Text & a(i) & vbCrLf Next i
Dim i%, j%
Dim t As Integer For i = 1 To 9 For j = i To 10 If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i
For i = 1 To 10
Text2.Text = Text2.Text & a(i) & vbCrLf
Next i
2．打开工程文件Dsg0501.vbp，在标题为“筛选元素”的窗体Form1上，添加两个文本内容为空的文本框Text1 和 Text2，其中Text2不可编辑；然后再添加两个标题分别为“生成数组”和“删除元素”的命令按钮Command1和Command2。程序运行时，单击“生成数组”按钮，随机生成10个10~90之间的整数存于数组a中，并显示在Text1中，每个元素用空格隔开，如图5-1（a）所示；单击“整除元素”按钮，找出数组中所有能被3整除的元素，并按下标从小到大顺序显示在Text2中，每个元素用空格隔开，如图5-1（b）所示。
完成上述功能后，以原文件名保存窗体（Dsg0501.frm）和工程（Dsg0501.vbp）。
（a）生成数组
图5-1 筛选元素的运行界面
（b）整除元素
Dim i As Integer Randomize For i = 1 To 10
a(i) = Int(Rnd * 81) + 10
Text1.Text = Text1.Text & a(i) & \Next i End Sub
Private Sub Command2_Click() '''不得删改本行注释 For i = 1 To 9 For j = i To 10 If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i
For i = 1 To 10
If i Mod 3 = 0 Then
Text2.Text = Text2.Text & a(i) & \ End If Next i
实验6补充习题
打开工程文件Prime.vbp，在标题为“显示素数”的窗体Form1上，添加两个标题分别
为“整数m”和“整数n”的标签Label1和Label2；然后再添加三个文本内容为空的文本框Text1、Text2和Text3，其中Text3带有水平滚动条；最后添加一个标题为“显示”的命令按钮Command1；要求编写一个Function过程Isprime (n As Integer) As Boolean，用于判断整数n是否为素数，如果是素数函数返回True，否则函数返回False。程序运行时，在Text1和Text2分别输入正整数m和n（n＞m≥2），单击“显示”按钮，调用Isprime函数过程，找出m至n之间全部素数，按从小到大顺序显示在Text3中，素数之间用空格隔开，运行界面如下图所示。
完成上述功能后，以原文件名保存窗体（Prime.frm）和工程（Prime.vbp）。
Private Function Isprime(n As Integer) As Boolean
Isprime = True For i = 2 To n - 1 If n Mod i = 0 Then Isprime = False Exit For End If Next i
End Function
Text3.Text = \
Dim m As Integer, n As Integer, i As Integer m = Text1.Text n = Text2.Text
If n > m And m >= 2 Then For i = m To n
If Isprime(i) = True Then
Text3.Text = Text3.Text & i & \ End If Next i Else
MsgBox \ End If
实验7补充习题
打开工程文件Dsg0605.vbp，在标题为“球类项目”窗体Form1上，添加一个下拉列表框Combo1，并在Combo1中依次添加“篮球”、“排球”、“足球”、“乒乓球”和“网球”；然后再添加一个列表框List1；最后添加一个标题为“选定”的命令按钮Command1。程序运行时，选中Combo1中的某一项，单击“选定”按钮，将Combo1中选定项添加到List1末尾；双击List1中某一项，则将该项从List1中删除，运行界面如下图所示。
完成上述功能后，以原文件名保存窗体（Dsg0605.frm）和工程（Dsg0605.vbp）。
Private Sub from_Click()
Combo1.AddItem \篮球\Combo1.AddItem \排球\Combo1.AddItem \足球\Combo1.AddItem \乒乓球\Combo1.AddItem \网球\
Private Sub Command1_Click() '''不得删除本行注释
List1.AddItem Combo1.Text End Sub
Private Sub List1_DblClick() '''不得删除本行注释
List1.RemoveItem List1.ListIndex
End Sub
实验8补充习题
打开工程文件Pz.vbp，在标题为“展开图片”的窗体Form1上，添加一个不能自动改变大小的图片框Picture1，在其中加载当前目录下的图片“Pic.jpg”，图片框的初始高度为100；然后再添加一个垂直滚动条VScroll1，其最小值为0，最大值为1980，滚动条的初始值为其最小值。程序运行时，改变滚动条滑块位置时，图片框的高度可以随之变化。
完成上述功能后，以原文件名保存窗体（Pz.frm）和工程（Pz.vbp）。