Visual_Basic_实验指导书程序代码

1、9-1Option ExplicitOption Base 1Private Sub Command1_Click(Dim x(10 As Integer, maxv As Integer, minv As IntegerDim i As IntegerFor i = 1 To 10x(i = Int(90 * Rnd + 10Text1.Text = Text1 & Str(x(iNext iCall maxmin(x, maxv, minvText2.Text = maxvText3.Text = minvEnd SubPrivate Sub Command2_Click(Text

2、1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command3_Click(EndEnd SubPrivate Sub maxmin(a( As Integer, max As Integer, min As Integer Dim i As Integermax = a(1: min = a(1For i = LBound(a + 1 To UBound(aIf a(i > max Thenmax = a(iElseIf a(i < min The

3、nmin = a(iEnd IfNext iEnd Sub9-2Private Sub Command1_Click(Dim x As LongIf verify(x ThenList1.AddItem xElseMsgBox Str(x & "不是自守数。", vbInformation End IfEnd SubPrivate Sub Command2_Click(Text1.Text = ""End SubPrivate Sub Command3_Click(EndEnd SubPrivate Function verify(x As Lo

4、ng As BooleanDim y As Long, s As Integerverify = Falses = Len(CStr(xy = x * xIf x = Val(Right(CStr(y, s Thenverify = TrueEnd IfEnd Function9-3Option ExplicitOption Base 1Private Sub Command1_Click(Dim a As Integer, b As Integer, i As Integera = Val(Text1.Text:For i = a To bIf sx(i = True ThenList1.A

5、ddItem i8 End IfNext iIf List1.ListCount = 0 Then List1.AddItem "无升序数" End SubPrivate Sub Command2_Click(Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command3_Click(EndEnd SubPrivate Function sx(ByVal n As Integer As Boolean Dim a( As Integer, k As Integer, i As Int

6、egerDok = k + 1ReDim Preserve a(ka(k = n Mod 10n = n 10Loop Until n <= 0For i = 1 To UBound(a - 1If a(i + 1 >= a(i Then Exit FunctionNext isx = TrueEnd Function9-4Option ExplicitPrivate Sub Command1_Click(Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate

7、 Sub Command2_Click(EndEnd SubPrivate Function common(ByVal a As Integer, ByVal b As Integer As Integer Dim r As IntegerDor = a Mod ba = bb = rLoop While r <> 0common = aEnd FunctionPrivate Sub Option1_Click(Index As IntegerDim a As Integer, b As IntegerDim m As Integer, d As Integera = Text1b

8、 = Text2m = common(a, bIf Index = 0 ThenText3 = mElsed = a * b / mText3 = dEnd IfEnd Sub9-5Option ExplicitPrivate Function Judge(n As Integer As BooleanDim i As IntegerFor i = 2 To Sqr(nIf n Mod i = 0 Then Exit FunctionNext iJudge = TrueEnd FunctionPrivate Sub Command1_Click(Dim x As Integer, i As I

9、ntegerIf x = 4 ThenText2 = "2+2"Elsei = 3Do While Text2 = ""If Judge(i And Judge(x - i ThenText2 = i & "+" & x - iElsei = i + 2End IfLoopEnd IfEnd SubPrivate Sub Command2_Click(Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command3_Click(E

10、ndEnd Sub9-6Private Function change(s As String, n As Integer As String Dim i As Integer, k As Integer, sum As IntegerDim p As String * 1, q As Integerk = 0For i = Len(CStr(Text2.Text To 1 Step -1p = Mid(CStr(Text2.Text, i, 1If p >= "0" And p <= "9" Thenq = Val(pElseq = Asc

11、(p - 55End Ifsum = sum + q * n kk = k + 1Next ichange = sumEnd FunctionPrivate Sub Command1_Click(Dim s As String, n As IntegerLabel2.Caption = Text1.Text & "进制数:"Select Case sCase "二"n = 2Case "八"n = 8Case "十六"n = 16End SelectText3.Text = change(s, nEnd S

12、ubPrivate Sub Command2_Click(Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command3_Click(EndEnd Sub9-7Option ExplicitPrivate Sub Command1_Click(Dim n As LongIf Right(CStr(n, 1 = "0" ThenText2 = "尾数为0,无反序数"ElseText2.Text = nx(nEnd I

13、fEnd SubPrivate Sub Command2_Click(Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command3_Click(EndEnd SubPrivate Function nx(n As Long As LongDim k As Integer, st As StringDok = k + 1st = Mid(CStr(n, k, 1 & stnx = Val(stEnd Function9-8Private Sub Command1_Click(Dim n As I

14、nteger, i As Integer, s As String, a( As IntegerFor n = 153 To 9999If arm(n = True ThenReDim a(Len(CStr(nFor i = 1 To Len(CStr(na(i = Mid(CStr(n, i, 1Next is = ""For i = 1 To Len(CStr(n - 1s = s & CStr(a(i & "" & CStr(Len(CStr(n & "+"Next iList1.AddItem

15、CStr(n & "=" & s & CStr(a(i & "" & CStr(Len(CStr(n End IfNext nEnd SubEndEnd SubPrivate Function arm(n As Integer As BooleanDim a( As Integer, i As Integer, st As String, sum As Integerarm = Falsest = CStr(nReDim a(Len(stFor i = 1 To Len(sta(i = Mid(st, i, 1Ne

16、xt iFor i = 1 To Len(stsum = Val(a(i (Len(st + sumNext iIf n = sum Thenarm = TrueElseExit FunctionEnd IfEnd Function9-9Dim sco(5 As SinglePrivate Sub Command1_Click(Dim i As IntegerFor i = 0 To 5sco(i = (Int(Rnd * 61 + 40 / 10Text1(i.Text = sco(iNext iEnd SubPrivate Sub Command2_Click(Dim i As Integ

17、er, sum As Integer, min As Single, max As Single Call a(min, maxFor i = 0 To 5sum = sum + sco(iNext iText7.Text = (sum - min - max / 4End SubPrivate Sub a(min As Single, max As SingleDim i As Integer, k As Integermax = sco(0: min = sco(0For i = 1 To 5If sco(i > max Thenmax = sco(iElseIf sco(i <

18、; min Thenmin = sco(iEnd IfNext iEnd SubFor i = 0 To 5Text1(i = ""Next iText7.Text = ""End SubPrivate Sub Command4_Click(EndEnd Sub9-10Private Sub Command1_Click(Dim max As Long, min As LongCall at(max, minText2.Text = maxText3.Text = minEnd SubPrivate Sub Command2_Click(Text1.Te

19、xt = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command3_Click(EndEnd SubPrivate Sub at(max As Long, min As LongReDim a(Len(sFor i = 1 To Len(sk = k + 1a(k = Val(Mid(s, i, 1Next imax = a(1: min = a(1For i = 1 To Len(sFor j = 1 To Len(sIf a(i < a(j Thentemp =

20、a(ia(i = a(ja(j = tempEnd IfNext jNext iIf a(1 = 0 ThenFor i = 2 To Len(sIf a(i <> 0 Then Exit ForNext itemp = a(ia(i = a(1a(1 = tempEnd IfFor i = 1 To Len(sst = st & a(iNext imin = Val(stFor i = 1 To Len(sFor j = 1 To Len(sIf a(i > a(j Thentemp = a(ia(i = a(ja(j = tempEnd IfNext jNext

21、iFor i = 1 To Len(sst1 = st1 & a(iNext imax = Val(st1End Sub7-2Option ExplicitOption Base 1Private Sub Command1_Click(Dim a(20 As Integer, i As Integer, st As StringDim max As Integer, min As Integer, maxp As Integer, minp As Integer For i = 1 To 20a(i = Int(Rnd * (100 - 1 + 1 + 1st = st & S

22、tr(a(iIf i Mod 10 = 0 Then st = st & vbCrLfNext iText1.Text = stmax = a(1: min = a(1maxp = 1: minp = 1For i = 2 To 20If a(i > max Thenmax = a(imaxp = iElseIf a(i < min Thenmin = a(iminp = iEnd IfNext iText2.Text = max & "位置是" & maxpText3.Text = min & "位置是" &

23、amp; minpEnd SubPrivate Sub Command2_Click(Text1.Text = ""Text2.Text = "": Text3.Text = ""End SubPrivate Sub Command3_Click(EndEnd Sub7-5Private Sub cmdExit_Click(Unload MeEnd SubPrivate Sub cmdJudge_Click(Dim m As Integer, i As Integer, j As Integer, sum As Integer Dim

24、 a(For i = 1 To m / 2If m Mod i = 0 Thensum = sum + ij = j + 1ReDim Preserve a(ja(j = iEnd IfNext iIf m = sum ThenPicture1.Print m & "是完数,因为"Picture1.Print m; "="For i = 1 To UBound(a - 1Picture1.Print a(i; "+"Next iPicture1.Print a(iElsePicture1.Print m & "

25、;不是完数"End IfEnd SubPrivate Sub cmdNext_Click(Text1.Text = ""End Sub7-6Option ExplicitOption Base 1Private Sub Command1_Click(Dim fn( As Integer, i As Integer, k As IntegerDim j As Integer, st As StringFor i = 10 To 50k = 0For j = 1 To i - 1If i Mod j = 0 Thenk = k + 1ReDim Preserve fn

26、(kfn(k = jEnd IfNext jIf UBound(fn = 3 Thenst = i & ":"For j = 1 To UBound(fn - 1st = st & fn(j & ","Next jList1.AddItem st & fn(jEnd IfNext iEnd SubPrivate Sub Command2_Click(End Sub7-7Private Sub Command1_Click(Dim word( As String, S As StringDon = InStr(S, " "If n <> 0 Thenk = k + 1ReDim Preserve word(kword(k = Left(S, n - 1List1.AddItem word(kS = Right(S, Len(S - nEnd IfLoop Until n = 0ReDim Preserve word(k + 1word(k + 1 = Left(S, Le