实验八 常用控件实验八 常用控件.docVIP

实验八 常用控件（一） 【实验目的】 【实验内容】 1、界面设计如下：（不能编写任何代码）包含有四个复选框分别设置选中或不选中状态。窗体标题为“选择”。 【提示】【提示】Private Sub Form_Load() List1.AddItem 计算机 List1.AddItem 英语 List1.AddItem 数学 List1.AddItem 语文 End Sub Private Sub List1_DblClick() Label1.Caption = List1.Text End Sub 3、窗体上包含有两个名称分别为Op1和Op2的单选按钮，标题分别为“100-200的素数和” 和“200-400的素数和”。还有一个文本框和一个命令按钮，标题分别为“求和”。程序运行后，选中某个单选按钮，并单击“求和”按钮，则计算指明范围内的素数之和，并显示在文本框中。 Private Sub Command1_Click() Dim a%, b% If Option1.Value = True Then For a = 100 To 200 For b = 2 To a - 1 If a Mod b = 0 Then Exit For End If Next b If a = b Then Sum = Sum + a End If Next a Else For a = 200 To 400 For b = 2 To a - 1 If a Mod b = 0 Then Exit For End If Next b If a = b Then Sum = Sum + a End If Next a End If Text1.Text = Sum End Sub 4、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，命令按钮。1）程序运行后，将把1～100之间能够被7整除的数添加到列表框中。单击“”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果 单击“”按钮，则对List1中的进行累加求和，并在文本框中显示计算结果 单击“”按钮，则List1中的以下实现功能的程序，请。Private Sub Form_Load() For i = 1 To 100 If i Mod 7 = 0 Then List1.AddItem i End If Next i End Sub Private Sub Command1_Click() Sum = 0 For i = 1 To List1.ListCount - 1 Sum = Sum + i Next i Text1.Text = Sum End Sub Private Sub Command2_Click() For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then Sum1 = Sum1 + Val(List1.List(i)) Next Text1.Text = Sum1 End Sub Private Sub Command3_Click() For i = List1.ListCount - 1 To 0 Step -1 If List1.Selected(i) = True Then List1.RemoveItem i Next End Sub 5、设计一个运行界面如下图所示的程序，要求单击单选按钮、复选框、列表框或组合框时立即在文本框中显示相应的文字格式。Private Sub Check1_Click() Text1.FontBold = Not Text1.FontBold End Sub Private Sub Check2_Click() Text1.FontItalic = Not Text1.FontItalic End Sub Private Sub Check3_Click() Text1.FontUnderline = Not Text1.FontUnderline End Sub Private Sub List1_Click() Text1.FontName = List1.Text End Sub Private Sub Option1_Click() Text1.ForeColor = vbBlack End Sub Private Sub Option2_Click() Text1.ForeColor = vbRed End Sub Private Sub Option3_Click() Text1.ForeColor = vbB