第三部分
1 在窗体Form1上添加两个文本框，一个“转换”命令按钮和三个单选按钮（名称分别为Opt1、Opt2、Opt3，标题分别为“大小写转换”、“全部大写”、“全部小写”）。程序功能：在上方文本框Text1中输入一字符串，选中“大小写转换”，单击“转换”按钮后，Text2中显示大小写相反的字符串；选中“全部大写”，单击转换按钮后，Text2中显示全部大写字符串，选中“全部小写”，单击转换按钮后，Text2中显示全部小写字符串 。程序运行界面如下图。
要求：① 请按要求完成窗体界面设计 ②程序的部分代码已给出如下，但不完整。请录入下面代码，并将“？”处补充完整。 Private Sub Command1_Click()
Dim n As Integer, k As Integer, ch As String, a As String ch = \
If Opt1.Value = True Then n = Len(？) For k = 1 To n
a = Mid$(Text1, k, ？)
If a >= \ ch = ch + UCase(a)
ElseIf a >= \ ch = ch + LCase(a) Else
ch = ch + a End If Next k End If
If Opt2.Value = True Then ch = UCase(Text1) If Opt3.Value = True Then ch = ？(Text1) Text2 = ch End Sub
答案Private Sub Command1_Click()
Dim n As Integer, k As Integer, ch As String, a As String ch = \
16
If Opt1.Value = True Then n = Len(Text1) For k = 1 To n
a = Mid$(Text1, k, 1)
If a >= \ ch = ch + UCase(a)
ElseIf a >= \ ch = ch + LCase(a) Else
ch = ch + a End If Next k End If
If Opt2.Value = True Then ch = UCase(Text1) If Opt3.Value = True Then ch = LCase(Text1) Text2 = ch
End Sub
Private Sub Form_Load()
End Sub
2 编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮。程序运行后，在左边列表框中选中所需要的项目，单击“添加”按钮，则把所选中的项目移到右边列表框中。如果单击“删除”按钮，则删除左边列表框中选中的项目。程序运行时的窗体界面如图。
Private Sub Command1_Click() List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex End Sub
Private Sub Command2_Click() List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex End Sub
17
Private Sub Form_Load() List1.AddItem \美的\List1.AddItem \海尔\List1.AddItem \奥克斯\List1.AddItem \春兰\List1.AddItem \长虹\End Sub
3 编程实现：单击“输出最大值”按钮，随机产生8个大于或等于10小于100的整数，显示在窗体的第一行，然后在窗体第二行显示其中的最大值。程序运行时的效果如图。
Private Sub Command1_Click() Dim a%(7), i%, max% For i = 0 To 7
a(i) = Int(Rnd * 90 + 10) Print a(i); Next i max = a(0) For i = 1 To 7
If a(i) > max Then max = a(i) Next i Print Print max End Sub
Private Sub Form_Load()
End Sub
4 在Form1的窗体上有一个名称为Text1的文本框和两个命令按钮，命令钮标题分别为“显示A”和“显示B”。要求程序运行后，如单击“显示A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量\构成的字符串；如单击“显示B”命令按钮，也弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量\构成的字符串。程序运行时的窗体界面如图所示。
18
Private Sub Command1_Click()
n = Val(InputBox(\请输入显示个数\Text1 = String(n, \End Sub
Private Sub Command2_Click()
n = Val(InputBox(\请输入显示个数\Text1 = String(n, \End Sub
Private Sub Form_Load()
End Sub
5 已知十个数为：67, 45, 34, 28, 49, 37, 87, 76, 27, 83。编程实现：按“开始”按钮，则在窗体的第一行显示这十个数，在窗体的第二行按从大到小的顺序显示这十个数。
Private Sub Command1_Click() Dim a(), i%
a = Array(67, 45, 34, 28, 49, 37, 87, 76, 27, 83) n = UBound(a) For i = 0 To n Print a(i); Next i
19
For i = 0 To n - 1
For j = 0 To n - 1 - i
If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t Next j Next i Print
For i = 0 To n Print a(i); Next i End Sub
Private Sub Form_Load()
End Sub
6 界面设计如下图所示，单击“确定”按钮，在文本框中显示一句话，说明用户选择的综合情况。
Private Sub Command1_Click()
If Option1.Value = True Then xb = Option1.Caption Else xb = Option2.Caption If Option3.Value = True Then sf = Option3.Caption Else sf = Option4.Caption If Check1.Value = 1 Then ah = ah + Check1.Caption + \、\If Check2.Value = 1 Then ah = ah + Check2.Caption + \、\If Check3.Value = 1 Then ah = ah + Check3.Caption + \。\Text1 = \我是\爱好:\End Sub
Private Sub Form_Load()
End Sub
7 编程实现：在窗体上的4个文本框中各输入一个整数作为各数组元素的值，然后单击命令按钮，在窗体上显示出数组元素中的最大值。
20
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB练习题（上机）含答案(4)在线全文阅读。
相关推荐：