0quot amp quot-quot amp FormatSqrAbsde / t quot0.00quot amp quotiquotEnd IfEnd SubPrivate Sub Command2_ClickText1 quotquotText2 quotquotText3 quotquotText4 quotquotText5 quotquotEnd SubC．7Private Sub Text3_LostFocus Select Case TrimText3 Case quotquot Text4 ValText1 ValText2 Case quot-quot Text4 ValText1 - ValText2 Case quotquot Text4 ValText1 ValText2 Case quot/quot If ValText2 0 Then MsgBox quot分母为零，重新输入quot Text2 quotquot Text2.SetFocus Else Text4 ValText1 / ValText2 End If End SelectEnd SubC．8Private Sub Text1_LostFocus Select Case TrimText1 Case 1 Text2 quotMondayquot Case 2 Text2 quotTuesdayquot Case 3 Text2 quotWednesdayquot Case 4 Text2 quotThursdayquot Case 5 Text2 quotFridayquot Case 6 Text2 quotSaturdayquot Case 7 Text2 quotSundayquot Case Is gt 7 Is lt 1 MsgBox quot数字为 17，重新输入quot Text1 quotquot Text1.SetFocus End SelectEnd Sub或者Private Sub Text1_LostFocusIf Text1 gt 7 Or Text1 lt 1 Then MsgBox quot数字为 17，重新输入quot Text1 quotquot Text1.SetFocusElse Text2 ChooseText1 quotMondayquot quotTuesdayquot quotWednesdayquot quotThursdayquot quotFridayquot quotSaturdayquotquotSundayquotEnd IfEnd SubD．1Private Sub Form_Click For i 1 To 9 Print Tab10 - i String2 i - 1 TrimStri Next iEnd SubD．2Private Sub Form_Click For i 1 To 10 Step 1 Print Tabi String20 - 2 i Chr64 i Next iEnd SubD．3Private Sub Command1_ClickDim s t iamps1t1For i 1 To 100000ttiss1/tIf 1 / t lt 0.00001 Then Exit ForNext iPrint quotFor 结构quot s i quot项quotEnd SubD．4Private Sub Command1_ClickDim namp pi iampn InputBoxquot输入 n 值quotpi 2For i 1 To n pi pi 2 i / 2 i - 1 2 i / 2 i 1Next iPrint quot当 nquot amp n amp quot时，piquot piEnd SubD．5Private Sub Form_Click Dim s t i a n a IntRnd 9 1 n IntRnd 6 5 t 0: s 0 Print quotaquot a quotnquot n For i 1 To n t t 10 a sst Print t Next i Print Print quotsquot sEnd SubD．6Private Sub Command1_ClickDim s As Integers0For i 1 To 9 For j 0 To 9 For k 0 To 9 s i 100 j 10 k If s i 3 j 3 k 3 Then Print s End If Next k Next jNext iEnd SubPrivate Sub Command3_Clickformd6.Hidemain.ShowEnd SubD．7Private Sub Command1_Click Dim a x0 x1 a 27 x0 2 i0 Do ii1 x1 2 x0 / 3 a / 3 x0 x0 If Absx1 - x0 lt 0.00001 Then Exit Do x0 x1 Loop Print x1 iEnd SubD．8Private Sub Command1_Click s0 x0 0.01 For i 1 To 30 s s x0 x0 x0 2 Next i Print sEnd SubD．9Private Sub Command4_ClickPicture1.ClsPicture1.Print quotx 课安排在 quot quoty 课安排在 quot quotz 课安排在 quotPicture1.Print quotquotFor z 5 To 6For x 1 To z - 2For Y x 1 To z - 1X1 ChooseWeekdayx quot周一quot quot周二quot quot周三quot quot周四quot quot周五quot quot周六quot quot周日quotY1 ChooseWeekdayY quot周一quot quot周二quot quot周三quot quot周四quot quot周五quot quot周六quot quot周日quotz1 ChooseWeekdayz quot周一quot quot周二quot quot周三quot quot周四quot quot周五quot quot周六quot quot周日quotPicture1.Print quot quot X1 quot quot Y1 quot quot z1Next YNext xNext zEnd SubE．1Private Sub Form_Click Dim a1 To 10 As Integer For i 1 To 10 ai IntRnd 71 30 Print ai quot quot Next i Max a1 Min a1 Avg a1 For i 2 To 10 If ai gt Max Then Max ai If ai lt Min Then Min ai Avg Avg ai Next i Avg Avg / 10 Print Print quotMaxquot Max quot Minquot Min quot Avgquot AvgEnd SubE．2Private Sub Form_Click Dim a a Array56 78 98 88 76 78 For i 0 To 5 Print Stringai 5 quot◆quot ai Print Next iEnd SubE．3Dim a19Private Sub Command1_ClickPicture1.Cls For i 0 To 19 ai IntRnd 101 Picture1.Print ai quot quot If i 1 Mod 4 0 Then Picture1.Print Next iEnd SubPrivate Sub Command2_ClickPicture2.ClsDim s5 To 9 For i 0 To 19 k ai 10 Select Case k Case 0 To 5 s5 s5 1 Case 9 To 10 90~100 分的人数 s9 s9 1 Case 6 To 8 存放其他三个分数段的下标有规律，根据 K 获得 sk sk 1 End SelectNext i For i 5 To 9 If si ltgt 0 Then Picture2.Print quotsquot i quot的人数有 quot Formatsi quot0quot quot个quot Next iEnd SubE．4Private Sub Command1_ClickPicture1.ClsDim d1 To 10For i3 1 To 10Randomizedi3 IntRnd 91 10Next i3For i 1 To 10For j 1 To 10 - iIf dj lt dj 1 Thent dj: dj dj 1: dj 1 tEnd IfNext jNext iFor i 1 To 10: Picture1.Print diIf i Mod 5 0 Then Picture1.PrintNext iEnd SubE．5Dim a3 3 b3 3Private Sub Form_Load For i 0 To 3 For j 0 To 3 ai j IntRnd 36 35 bi j IntRnd 41 100 Next j Next iEnd SubPrivate Sub Command1_Click Picture1.Cls For i 0 To 3 For j 0 To i Picture1.Print ai j quot quot Next j Picture1.Print Next iEnd SubPrivate Sub Command2_Click Picture2.Cls For i 0 To 3 For j i To 3 Picture2.Print Tabj 6 bi j Next j Picture2.Print Next iEnd SubPrivate Sub Command3_Click Picture3.Cls sa 0 For i 0 To 3 sa sa ai i Next i sb 0 For i 0 To 3 sb sb bi 3 - i Next i Picture3.Print quotA 数组主对角线元素和为:quot sa Picture3.Print quotB 数组副对角线元素和为:quot sbEnd SubE．6Private Sub Form_Clickn InputBoxquot输入 n 值quotReDim a6n 1 n 1 a60 0 1: a61 1 1: a61 0 1 For i 2 To n 1 For j 2 To i a6i j a6i - 1 j - 1 a6i - 1 j Picture1.Print a6i j quotquot Next j Picture1.Print NextEnd SubE．7Private Sub Form_Load List1.Clear List1.AddItem quot大学计算机基础quot List1.AddItem quotC/C程序设计quot List1.AddItem quotVB 程序设计quot List1.AddItem quotWeb 程序设计quot List1.AddItem quot多媒体技术与应用quot List1.AddItem quot数据库技术与应用quot List1.AddItem quot网络技术与应用quot List1.AddItem quot硬件技术基础quot List1.AddItem quot软件技术技术基础quotEnd SubPrivate Sub List1_Click If List2.ListCount gt 5 Then MsgBox quot超过 5 门课程，不能再选quot Exit Sub Else List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End IfEnd SubE．8Sub Combo1_KeyPressKeyAscii As Integer Select Case KeyAscii Case 48 To 57 13 Case Else KeyAscii 0 End Select If KeyAscii 13 Then Combo1.AddItem Combo1.Text Combo1.Text quotquot End IfEnd SubPrivate Sub Command1_Click Dim min max min ValCombo1.List0 max ValCombo1.List0 imin 0 im

上一篇：倡导绿色，低碳有我！
下一篇：秋天是疼痛的