《vb第4-6章课后编程题代码》由会员分享，可在线阅读，更多相关《vb第4-6章课后编程题代码（10页珍藏版）》请在金锄头文库上搜索。
1、代码：第四章：Page。108。4（1），分段函数：Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(InputBox(assign a number to x, Number x, 0)If x 1 Theny = xElseIf x = 1 Theny = 3 * x - 2Elsey = 4 * x - 12End IfPicture1.Print when x=; x; then y=; yEnd SubPrivate Sub Command2_Click()EndEnd Sub4（2）：Private Su
2、b Command1_Click()RandomizeFor i = 1 To 100n = Int(Rnd * (99 - 10 + 1) + 10)Text1 = Text1 + CStr(n) + Select Case n Case Is 70 m3 = m3 + 1 End SelectNext iPicture1.Print 小于等于40的数有：; m1Picture1.Print 大于40小于等于70的数有：; m2Picture1.Print 大于70的数有：; m3End SubPrivate Sub Command2_Click()Text1 = Picture1.ClsE
3、nd SubPrivate Sub Form_Load()Text1 = Picture1.ClsEnd Sub4（3）：3和7的倍数：Private Sub Command1_Click()For i = 1 To 100 If i Mod 3 = 0 Then n1 = n1 + 1 End If If i Mod 7 = 0 Then n2 = n2 + 1 End IfNext iPrint 1-100中是3的倍数的有：; n1Print 1-100中是7的倍数的有：; n2End SubPrivate Sub Command2_Click()EndEnd Sub4（4）：分开奇偶数D
4、im i As Integer, j As IntegerDim n(1 To 20) As IntegerDim m As IntegerPrivate Sub Command1_Click()RandomizeFor i = 1 To 20n(i) = Int(Rnd * (999 - 100 + 1) + 100)Picture1.Print n(i); m = m + 1 If m Mod 4 = 0 Then Picture1.PrintNext iEnd SubPrivate Sub Command2_Click()For j = 1 To 20If n(j) Mod 2 = 0
5、ThenPicture2.Print n(j);k = k + 1 If k Mod 4 = 0 Then Picture2.PrintElsePicture3.Print n(j);t = t + 1 If t Mod 4 = 0 Then Picture3.PrintEnd IfNext jEnd SubPrivate Sub Command3_Click()EndEnd Sub课程成绩一览表：Dim i As Integer, n As IntegerDim Cmrk As String, sum As IntegerPrivate Sub Command1_Click()Print 课
6、程名称; Spc(3); 分数n = Val(InputBox(请输入课程总数)For i = 1 To nCmrk = InputBox(输入课程名称及分数, 课目及分数, 数学 86)m = InStr(Cmrk, )k = Len(Cmrk)C = Left(Cmrk, m - 1)mrk = Right(Cmrk, k - m)Print C; Tab(12); mrksum = sum + mrkNext iPrintPrint 总分; sumPrint 平均分 ; Format(sum / n, 0.0)End Sub4（5）：输出素数Private Sub Command1_Cl
7、ick()For i = 100 To 300 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j If j = i Then Print i; n = n + 1 If n Mod 5 = 0 Then Print End IfNext iEnd SubPrivate Sub Command2_Click()EndEnd Sub4（6）：水仙花数Private Sub Command1_Click()PrintPrintFor i = 100 To 999t = Int(i / 100)m = Int(i - t * 100) / 1
8、0)f = Int(i - t * 100 - m * 10) If i = t 3 + m 3 + f 3 Then Print i; End IfNext iEnd SubPrivate Sub Command2_Click()EndEnd Sub4（7）：判别回文数Private Sub Command1_Click()m = Text1.Textn = Len(m)For i = 1 To n 2 If Mid(m, i, 1) Mid(m, n - i + 1, 1) Then Exit For End IfNext iIf i = n 2 + 1 Then Text2 = 此数为回
9、文数 Else Text2 = 此数不是回文数 End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Text1 = Text2 = End Sub4（8）：Private Sub Command1_Click()Dim x As String, y As StringDim y1 As Integer, y2 As Integer, y3 As Integer, y4 As Integerx = Text1.TextFor i = 1 To Len(x)y = Asc(Mid(x, i, 1)If
10、(y = 65) Or (y = 65) Theny1 = y1 + 1ElseIf y = 48 And y = 57 Theny2 = y2 + 1ElseIf y = 32 Theny3 = y3 + 1Elsey4 = y4 + 1End IfNext iPicture1.Print 字母的个数为：; y1Picture1.Print 数字的个数为：; y2Picture1.Print 空格的个数为：; y3Picture1.Print 其他字符的个数为：; y4End Sub4（10）：Private Sub Form_Click()Dim i As Integer, j As In
11、tegerDim x As Integer, sum As Integer, aver As Integeri = InputBox(请输入所修学科数)For j = 1 To ix = InputBox(请输入成绩)sum = sum + Val(x)Next javer = sum / iPrint 所修课程的总成绩为：; sumPrint 所修课程的平均成绩为：; averEnd Sub第五章：page：1474（1）：Option Base 1Private a(15) As IntegerPrivate Sub Command1_Click()RandomizePrint creat
12、e 15 numbers in random and stock in array aFor i = 1 To 15a(i) = Int(Rnd * 100)Text1.Text = Text1 + Str(a(i)Next iEnd SubPrivate Sub Command2_Click()For i = 15 To 1 Step -1Text2.Text = Text2 + Str(a(i)Next iEnd Sub4（5）：Option Base 1Private a(5, 5)Private Sub Command1_Click()RandomizeFor i = 1 To 5 F
13、or j = 1 To 5 a(i, j) = Int(Rnd * 10) Picture1.Print a(i, j); Next j Picture1.Print Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 5 For j = 1 To 5 Sum = Sum + a(i, j) Next jNext iText1.Text = Sum of all elements= & CStr(Sum)End SubPrivate Sub Command3_Click()For j = 1 To 5Sum = Sum + a(1, j) + a(5, j)Next jFor i = 2 To 4 Sum = Sum + a(i, 1) + a(i, 5)Next iText2 = Sum of elements is edge= & CStr(Sum)End SubPrivate Sub Command4_Click()For i = 1 To 5 Sum = Sum + a(i, i) + a(i, 6 - i) If a(i, i) = a(i, 6 - i) Then
