重庆vb上机题及其答案上机答案

一（1） Private Sub Cmd1_Click() Dim i%, a%(20), sum&, ave# For i = 1 To 20 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i ave = sum / 20 Print ave End Sub （2） Private Sub C1_Click() Dim st1$, ch$, i%, L% st1 = Text1.Text L = Len(st1) st2 = "" For i = 1 To L ch = Mid(st1, i, 1) Select Case ch Case "a" To "z" ch = UCase(ch) Case "A" To "Z" ch = LCase(ch) End Select st2 = st2 & ch Next i Text1.Text = st2 End Sub （3） Private Sub MyCmd1_Click() Dim i%, a%(30), Max% For i = 1 To 30 a(i) = Int(Rnd * 1001) If Max < a(i) Then Max = a(i) Next i Print Max End Sub （4） Private Sub Command1_Click() If Option1.Value = True Then Text1.FontName = "宋体" If Option2.Value = True Then Text1.FontName = "楷体_GB2312" Text1.FontUnderline = IIf(Check1.Value = 1, True, False) Text1.FontItalic = IIf(Check2.Value = 1, True, False) End Sub （5） Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Opt1_Click() If Opt1.Value = True Then Text1.Alignment = 0 End Sub Private Sub Opt2_Click() If Opt2.Value = True Then Text1.Alignment = 2 End Sub Private Sub Opt3_Click() If Opt3.Value = True Then Text1.Alignment = 1 End Sub Private Sub Opt4_Click() If Opt4.Value = True Then Text1.FontName = "宋体" End Sub Private Sub Opt5_Click() If Opt5.Value = True Then Text1.FontName = "黑体" End Sub （6） Private Sub Option1_Click() Dim N%, P#, i% N = Val(Text1.Text) P = 1 For i = 1 To N P = P * i Next i Text2.Text = Str(P) End Sub Private Sub Option2_Click() Dim N%, P#, i% N = Val(Text1.Text) + 2 P = 1 For i = 1 To N P = P * i Next i Text2.Text = Str(P) End Sub Private Sub Text2_Change() End Sub （7） Private Sub Command1_Click() Dim St$, Ch$, I%, N%, L% St = (Text1.Text) Ch = (Text2.Text) L = Len(St) For I = 1 To L If Mid(St, I, 1) = Ch Then N = N + 1 Next I Label3.Caption = Str(N) End Sub （8） Private Sub Command1_Click() Dim i%, sum& For i = 1 To 200 If i Mod 3 = 0 Or i Mod 7 = 0 Then sum = sum + i End If Next i Text1.Text = Str(sum) End Sub （9） Private Sub Command1_Click() Dim St$, T As Boolean, I%, L% St = (Text1.Text) L = Len(St): T = True For I = 1 To L / 2 If Mid(St, I, 1) <> Mid(St, L + 1 - I, 1) Then T = False: Exit For End If Next I If T = True Then Print St & "是回文" Else Print St & "不是回文" End If End Sub （10） Private Sub Command1_Click() Dim N%, Sum#, i%, P# Sum = 0: P = 1 N = Val(Text1.Text) For i = 1 To N P = P * i Sum = Sum + 1 / P Next i Label2.Caption = "Sum=" & Sum End Sub 二(1) Private Sub Command1_Click() Dim M%, N% M = Val(Text1) N = Val(Text2) Label5 = Str((4 * M - N) / 2) Label6 = Str((N - 2 * M) / 2) End Sub (2) Private Sub Command1_Click() Dim N%, a%, b%, c% Print "水仙花数:"; For N = 100 To 999 a = N \ 100 '（分离出百位数字） b = (N Mod 100) \ 10 '（分离出十位数字） c = N Mod 10 '（分离出个位数字） If a * a * a + b * b * b + c * c * c = N Then Print N; Next N Print End Sub (3) Private Sub Command1_Click() Picture1.Cls: Picture2.Cls Dim X%, Sum%, N%, I% For I = 1 To 20 X = Rnd * 101 If X > 60 Then N = N + 1 Sum = Sum + X Picture1.Print X; If I Mod 5 = 0 Then Picture1.Print Next I Picture2.Print "平 均 分："; Sum / 20 Picture2.Print "及格人数："; N End Sub (4) Private Sub Form_Click() Dim i% For i = 1 To 5 Print Tab(8 - i); String(2 * i - 1, "*") Next i For i = 4 To 1 Step -1 Print Tab(8 - i); String(2 * i - 1, "*") Next i End Sub (5) Private Sub Command1_Click() Text1.Text = "" Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Static n% n = n + 1 Text1.Text = Str(n) End Sub (6) Private Sub Command1_Click() Dim n As Integer For n = 1 To 100 a(n) = Int(Rnd * 900 + 100) Next n End Sub Private Sub Command2_Click() Dim x&, y&, z&, i%, j%, k% For i = 1 To 100 If a(i) Mod 2 = 0 Then x = x + a(i): j = j + 1 Else y = y + a(i) k = k + 1 End If Next i z = Int((x + y) / (j + k) + 0.5) x = Int(x / j + 0.5): y = Int(y / k + 0.5) Select Case Combo1.Text Case "所有偶数" Text1 = x Case "所有奇数" Text1 = y Case "所有数" Text1 = z End Select End Sub (7) Private Sub Command1_Click() Dim a%(20), iMin%, n%, i%, j%, t% Print "排序前数据排列：" For i = 1 To 20 a(i) = Int(Rnd * 90 + 10) Print a(i); If i Mod 10 = 0 Then Print Next: Print For i = 1 To 19 ' 进行19轮比较 iMin = i ' 对第i轮比较时，初始假定第i个元素最小 For j = i + 1 To 20 ' 在数组 i+1～20个元素中选最小元素的下标 If a(j) < a(iMin) Then iMin = j Next j t = a(i) ' i+1～20个元素中选出的最小元素与第i个元素交换 a(i) = a(iMin) a(iMin) = t Next i Print "排序后数据排列：" For i = 1 To 20 Print a(i); If i Mod 10 = 0 Then Print Next: Print End Sub (8) Private Sub Command1_Click() Dim St$, Ch$, I%, A%, B%, C% St = (Text1.Text) L = Len(St) For I = 1 To L Ch = Mid(St, I, 1) Select Case Ch Case "A" To "Z" A = A + 1 Case "a" To "z" B = B + 1 Case Else C = C + 1 End Select Next I Label2.Caption = Str(A) Label4.Caption = Str(B) Label6.Caption = Str(C) End Sub (9) Private Sub Command1_Click() Dim N&, I%, T As Boolean N = Val(Text1.Text) T = True For I = 2 To Sqr(N) If N Mod I = 0 Then T = False: Exit For Next I If T = True Then Label1.Caption = Str(N) & "是一个素数" Else Label1.Caption = Str(N) & "不是一个素数" End If End Sub (10) Private Sub Command1_Click() Dim i% For i = 1 To 10 a(i) = Int(Rnd * 99 + 1) Print a(i); Next i Print End Sub Private Sub Command2_Click() Dim i%, Max%, n% Max = a(1): n = 1 For i = 2 To 10 If Max < a(i) Then Max = a(i): n = i End If Next i Print "最大数是："; Max Print "位置号是："; n End Sub 三（1） Private Sub Command1_Click() Dim n As Integer, k As Integer, ch As String, a As String ch = "" If Opt1.Value = True Then n = Len(Text1) For k = 1 To n a = Mid$(Text1, k, 1) If a >= "a" And a <= "z" Then ch = ch + UCase(a) ElseIf a >= "A" And a <= "Z" Then ch = ch + LCase(a) Else ch = ch + a End If Next k End If If Opt2.Value = True Then ch = UCase(Text1) If Opt3.Value = True Then ch = LCase(Text1) Text2 = ch End Sub （2） Private Sub Command1_Click() List2.AddItem List1.Text End Sub Private Sub Command2_Click() List1.RemoveItem List1.ListIndex End Sub Private Sub Form_Load() List1.AddItem "美的" List1.AddItem "海尔" List1.AddItem "奥克斯" List1.AddItem "春兰" List1.AddItem "长虹" End Sub （3） Private Sub Command1_Click() Dim i%, x%, Max% For i = 1 To 8 x = Int(Rnd * 90 + 10) If Max < x Then Max = x Print x; Next i Print Print Max End Sub （4） Private Sub Command1_Click() Dim ch$, n% n = InputBox("请输入显示个数") Text1.Text = String(n, "A") End Sub Private Sub Command2_Click() Dim ch$, n% n = InputBox("请输入显示个数") Text1.Text = String(n, "B") End Sub （5） Private Sub Command1_Click() Dim a(), i%, j%, t% a = Array(67, 45, 34, 28, 49, 37, 87, 76, 27, 83) For i = 1 To 10 Print a(i); Next i Print For i = 1 To 9 ' 有n个数，进行n-1趟比较 For j = 1 To 10 - i ' 每一趟比较对n-i个元素中两两相邻比较，大数沉底 If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t '前一个数比后一个数大时则交换 End If Next j Next i For i = 1 To 10 Print a(i); Next i: Print End Sub （6） Private Sub Command1_Click() Dim s$ s = "我是" If Option1.Value = True Then s = s & Option1.Caption If Option2.Value = True Then s = s & Option2.Caption If Option3.Value = True Then s = s & Option3.Caption If Option4.Value = True Then s = s & Option4.Caption s = s & "，爱好：" If Check1.Value = 1 Then s = s & Check1.Caption If Check2.Value = 1 Then s = s & "、" & Check2.Caption If Check3.Value = 1 Then s = s & "、" & Check3.Caption Text1.Text = s End Sub （7） '此处４个文本框构成一个控件数组，数组名为Text1 Private Sub Command1_Click() Dim Max%, i% Max = -32768 '将Max预设为可能具有的数据中的最小值 For i = 0 To 3 '意指要找的最大值肯定比这个数大 If Max < Text1(i).Text Then Max = Text1(i).Text Next i Print "最大值是："; Max End Sub （8） Private Sub Command1_Click() Dim M%, N%, R% M = Val(Text1) N = Val(Text2) If M < N Then R = M: M = N: N = R R = M Mod N Do Until R = 0 M = N: N = R: R = M Mod N Loop Print Text1 & "和" & Text2 & "最大公约数是："; N End Sub （9） Private Sub Command1_Click() Image1.Width = Image1.Width * 1.1 Image1.Height = Image1.Height * 1.1 End Sub Private Sub Command2_Click() Image1.Width = Image1.Width * 0.9 Image1.Height = Image1.Height * 0.9 End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Image1.Stretch = True End Sub （10） Private Sub Blue_Click() Text1.BackColor = vbBlue End Sub '此 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 需要在属性窗口中将Text1的MultiLine属性设置为True Private Sub Form_Load() Text1.Text = "重庆科技学院是一所全日制公办普通本科院校，以工为主，以石油、冶金、机电为特色，涵盖理、工、经、管、文，蕴藏着勃勃生机与较大发展潜力的高等学校。" End Sub Private Sub Green_Click() Text1.BackColor = vbGreen End Sub Private Sub Red_Click() Text1.BackColor = vbRed End Sub Private Sub Text1_Change() End Sub Private Sub White_Click() Text1.BackColor = vbWhite End Sub 四（1） Private Sub Command1_Click() Dim X#, Y#, Z# X = Val(Text1): Y = Val(Text2) If X > 0 And Y > 0 Then Z = Sqr(X + Y) ElseIf X < 0 And Y < 0 Then Z = Sqr(Abs(X - Y)) Else Z = 0 End If Label4 = Z End Sub （2） Private Sub Command1_Click() Dim x%, i%, s1$, s2$ s1 = "": s2 = "" For i = 1 To 10 x = Int(Rnd * 900 + 100) Print x; If x Mod 2 = 0 Then s1 = s1 & Str(x) Else s2 = s2 & Str(x) End If Next i Print Print s2: Print s1 End Sub （3） Private Sub Command1_Click() Dim X#, Y#, Z# X = Val(InputBox("X=")) Z = Val(InputBox("Z=")) If X >= -10 And Z < 0 Then Picture1.Print "Y ="; X * X + Z * Z ElseIf X < -30 And Z > 0 Then Picture1.Print "Y = "; X / Z ElseIf X >= -30 And X < -10 And X > Z Then Picture1.Print "Y ="; Sqr(X - Z) End If End Sub 'Ｘ，Ｚ在上述数据段之外时，没有数据输出。 （4） Private Sub Command1_Click() Dim X#, Y#, Z# X = Val(InputBox("X=")) Y = Val(InputBox("Y=")) If X > Y And Y >= 1 Then Text1.Text = "Z =" & Sqr(X * X - Y * Y) ElseIf X = 0 Then Text1.Text = "Z = " & 0 ElseIf X < -1 Then Text1.Text = "Z =" & Abs(X) End If End Sub 'Ｘ，Y在上述数据段之外时，没有数据输出。 （5） Private Sub Command1_Click() Dim N%, Sum&, S%, I% N = Val(Text1) For I = 1 To N S = S + I Sum = Sum + S Next I Label2 = "Sum=" & Sum End Sub （6） Private Sub Command1_Click() Dim n%, x#, s# Picture1.Cls n = Val(Text1): x = Val(Text2) s = x * n Picture1.Print "原 价："; s If s >= 2000 Then Picture1.Print "折扣价："; s * 0.8 ElseIf s >= 1000 Then Picture1.Print "折扣价："; s * 0.9 End If End Sub （7） Private Sub Command1_Click() Dim St1$, St2$, Ch$, C%, L%, I% St1 = Text1.Text: St2 = "" L = Len(St1) For I = 1 To L Ch = Mid(St1, I, 1) C = Asc(Ch) If Ch = "z" Or Ch = "Z" Then C = C - 26 St2 = St2 & Chr(C + 1) Next I Text2.Text = St2 End Sub （8） Private Sub Command1_Click() Dim N%, Odd%, Even%, I% N = Val(Text1.Text) For I = 1 To N If I Mod 2 = 0 Then Even = Even + I Else Odd = Odd + I End If Next I If Option1.Value Then Label2.Caption = "正偶数的和：" & Str(Even) If Option2.Value Then Label2.Caption = "正奇数的和：" & Str(Odd) End Sub （9） '此处４个文本框构成一个控件数组，数组名为Text1 Private Sub Command1_Click() Dim Min%, i% Min = 32767 '将Min预设为可能具有的数据中的最大值 For i = 0 To 3 '意指要找的最小值肯定比这个数小 If Min > Text1(i).Text Then Min = Text1(i).Text Next i Print "最小值是："; Min End Sub （10) Private Sub Command1_Click() List1.Clear List1.AddItem Text1.Text List1.AddItem Text2.Text List1.AddItem Text3.Text End Sub Private Sub Command2_Click() List1.Clear Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Form_Load() Text3.PasswordChar = "*" End Sub