VB程序设计第三版实验G答案

VB程序设计第三版实验G答案 VB程序设计第三版实验G答案全 1 Private Sub Command1_Click List1.Clear List1.AddItem Combo1 If Option1 Then List1.AddItem Pentium II If Option2 Then List1.AddItem Pentium I If Option3 Then List1.AddItem Celeron List1.AddItem Text1 If Check1 Then List1.AddItem 声卡 If Check2 Then List1.AddItem Modem If Check3 Then List1.AddItem 网络适配器 End Sub Private Sub Text1_LostFocus st UCaseTrimText1 le Lenst If Not IsNumericLeftst le - 2 Or Rightst 2 MB Then MsgBox 有不合法字符 Text1 Text1.SetFocus End If End Sub 2 Private Sub Check1_Click Picture1.Font.Bold Not Picture1.Font.Bold End Sub Private Sub Check2_Click Picture1.Font.Italic Not Picture1.Font.Bold End Sub Private Sub Command1_Click Picture1.Cls If Option1 Then Picture1.Print SinValText1 ElseIf Option2 Then Picture1.Print ExpValText1 ElseIf Option3 Then Picture1.Print SqrValText1 End If End Sub Private Sub return_ClickIndex As Integer Form6.Show Unload Form2 End Sub 3 Private Sub HScroll1_Change Text1 VScroll1.Value Text2 HScroll1.Value Text3 HScroll2.Value Text4 FormatValText1 Text3 / 100 Text2 / 12 0.00 Text5 FormatValText4 ValText1 0.00 End Sub Private Sub HScroll2_Change Text1 VScroll1.Value Text2 HScroll1.Value Text3 HScroll2.Value Text4 FormatValText1 Text3 / 100 Text2 / 12 0.00 Text5 FormatValText4 ValText1 0.00 End Sub Private Sub VScroll1_Change Text1 VScroll1.Value Text2 HScroll1.Value Text3 HScroll2.Value Text4 FormatValText1 Text3 / 100 Text2 / 12 0.00 Text5 FormatValText4 ValText1 0.00 End Sub 4 Dim t As Single Private Sub Command1_Click t InputBox输入倒计时分钟数 t t 60 ProgressBar1.Min 0 ProgressBar1.Max t ProgressBar1.Value t End Sub Private Sub Command2_Click Timer1.Interval 1000 ProgressBar1.Visible True End Sub Private Sub Timer1_Timer Dim m s t t - 1 ProgressBar1.Value t m t 60 s t Mod 60 Label1 m 分 s 秒 If t 0 Then MsgBox 时间到 Timer1.Interval 0 ProgressBar1.Visible False End If End Sub 5 Private Sub Command1_Click CommonDialog1.ShowColor Label1.ForeColor CommonDialog1.Color End Sub Private Sub Command2_Click CommonDialog1.ShowOpen i ShellC:WINDOWSNOTEPAD.exe CommonDialog1.FileName vbNormalFocus End Sub 6 rivate Sub bold_Click Text1.FontBold Not Text1.FontBold bold.Checked Not bold.Checked End Sub Private Sub del_Click Text1 End Sub Private Sub end_Click End End Sub Private Sub font12_Click Text1.FontSize 12 End Sub Private Sub font16_Click Text1.FontSize 16 End Sub Private Sub Form_Load bold.Checked False italic.Checked False End Sub Private Sub italic_Click Text1.FontItalic Not Text1.FontItalic italic.Checked Not italic.Checked End Sub Private Sub Text1_MouseDownButton As Integer Shift As Integer X As Single Y As Single If Button 2 Then PopupMenu menu2 End Sub 7 Private Sub Command1_Click CommonDialog1.ShowColor Label1.ForeColor CommonDialog1.Color End Sub Private Sub Command2_Click CommonDialog1.ShowOpen i ShellC:WINDOWSNOTEPAD.exe CommonDialog1.FileName vbNormalFocus End Sub Private Sub return_ClickIndex As Integer Form6.Show Unload Form5 End Sub 8 9 Private Sub 结束_Click End End Sub Private Sub 删除最大值_Click max List1.List0 For i 1 To List1.ListCount - 1 If max List1.Listi Then max List1.Listi: j i Next i List1.RemoveItem j End Sub Private Sub 删除最小值_Click min List1.List0 For i 1 To List1.ListCount - 1 If min List1.Listi Then min List1.Listi: j i Next i List1.RemoveItem j End Sub Private Sub 随机产生 _Click Randomize For i 0 To 9 List1.Listi IntRnd 30 70 Next i End Sub Private Sub 添加数据_Click List1.AddItem IntRnd 30 70 End Sub Private Sub 统计_Click Dim max min ave m n max List1.List0 min List1.List0 ave List1.List0 m 0 n 0 For i 1 To List1.ListCount - 1 If max List1.Listi Then max List1.Listi: m i If min List1.Listi Then min List1.Listi: n i ave ave List1.Listi Next i Form2.Text1 List1.Listn Form2.Text2 List1.Listm Form2.Text3 Formatave / List1.ListCount 0.00 Form2.Show End Sub 10 Private Sub experimentG2_Click Form2.Show End Sub Private Sub experimentG3_Click Form3.Show End Sub Private Sub experimentG4_Click Form4.Show End Sub Private Sub experimentG5_Click Form5.Show End Sub Private Sub font_12_Click Text1.FontSize 12 End Sub Private Sub font_16_Click Text1.FontSize 16 End Sub Private Sub rnd10_Click Randomize For i 0 To 9 List1.Listi IntRnd 30 70 Next i End Sub Private Sub stat_Click Dim max min ave m n max List1.List0 min List1.List0 ave List1.List0 m 0 n 0 For i 1 To List1.ListCount - 1 If max List1.Listi Then max List1.Listi: m i If min List1.Listi Then min List1.Listi: n i ave ave List1.Listi Next i stat2.Text1 List1.Listn stat2.Text2 List1.Listm stat2.Text3 Formatave / List1.ListCount 0.00 stat2.Show End Sub Private Sub Text1_MouseDownButton As Integer Shift As Integer X As Single Y As Single If Button 2 Then PopupMenu caidan2 vbPopupMenuCenterAlign End Sub Private Sub xie_Click Text1.Font.Italic Not Text1.Font.Bold End Sub