vb 程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
教程(机械工业)习
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
答案 实验8
实验8
自测练习1
程序
Private Sub Command1_Click()
If Check1.Value = 1 And Check2.Value = 0 Then
Text1.Text = "报名参加羽毛球比赛"
ElseIf Check1.Value = 0 And Check2.Value = 1 Then
Text1.Text = "报名参加乒乓球比赛"
ElseIf Check1.Value = 1 And Check2.Value = 1 Then
Text1.Text = "报名参加羽毛球.乒乓球比赛"
End If
End Sub
自测练习4
程序
Private Sub Option1_Click(Index As Integer) Dim a As String
Label1.FontSize = 24
Label1.FontName = "黑体"
Label1.ForeColor = vbRed
For i = 1 To 4
Select Case i
Case 1
a= "我是学生"
Case 2
a = "我是教师"
Case 3
a = "我是工人"
Case 4
a = "我是农民"
End Select
If Option1(i).Value = True Then
Label1.Caption = a End If
Next i
End Sub
自测练习6
程序
For i = 1 To Combo1.ListCount If Combo1.List(i - 1) = Combo1.Text Then Exit Sub
End If
Next i
Combo1.AddItem Combo1.Text
End Sub
Private Sub Command2_Click() Dim i As Integer, index as integer If Combo1.ListIndex = -1 Then For i = 1 To List1.ListCount
If Combo1.List(i - 1) = Combo1.Text Then
Index = i - 1
End If
Combo1.RemoveItem Index Next i
Else
Combo1.RemoveItem Combo1.ListIndex
End If
End Sub
Private Sub Command3_Click() Combo1.Clear
End Sub
自测练习7
程序
Private Sub Command1_Click()
VScroll1.Max = 100: VScroll1.Min = 0
Label5.Alignment = 2
Label5.FontSize = 20
Label5.FontBold = True
Label5.ForeColor = vbRed Timer1.Interval = 100
Timer1.Enabled = True
VScroll1.Value = 100
Label5.Caption = ""
End Sub
Private Sub Timer1_Timer() VScroll1.Value = VScroll1.Value - 1 Label4.Caption = 100 - VScroll1.Value
If VScroll1.Value = 0 Then
Label5.Caption = "水开了~"
Timer1.Enabled = False End If
End Sub