VisualBasic试验参考指导书程序代码VIP专享

VisualBasic 试验参考指导书程序代码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 + 10 = Text1 & Str(x(iNext iCall maxmin(x, maxv, minv = maxv = minvEnd SubPrivate Sub Command2_Click( = "" = "" = ""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 Thenmin = a(iEnd IfNext iEnd Sub9-2Private Sub Command1_Click(Dim x As Longx = Val(If verify(x Then xElseMsgBox Str(x & "不是自守数。", vbInformation End IfEnd SubPrivate Sub Command2_Click( = ""End SubPrivate Sub Command3_Click(EndEnd SubPrivate Function verify(x As Long 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(:b = Val(For i = a To bIf sx(i = True Then i8 End IfNext iIf = 0 Then "无升序数" End SubPrivate Sub Command2_Click( = "" = ""End SubPrivate Sub Command3_Click(EndEnd SubPrivate Function sx(ByVal n As Integer As Boolean Dim a( As Integer, k As Integer, i As IntegerDok = 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( = "" = "" = ""End SubPrivate 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 <> 0c...