程序的调试及运行 知识点题库

Private Sub   ①   

   ②   a, b, s As Integer

For a = 2 To 1000

  S = 0

  For b = 1 To a - 1

    If a Mod b = 0 Then s = s + b

  Next

  If a = s Then List1.Additem str(a)        '输出满足条件的完全数a

Next

End Sub

图2

① ②

  Private Sub Command1_Click()

    Dim x As String，xq As String，num As Integer

    Dim i As Integer，h As Integer，f As Boolean

    x=”一二三四五六日”

    xq=Text1．Text

    num=    ①   

    f=False：i=1

    Do While i<=7 And f=False

      If xq=Mid(x，i，1)Then

         h=i：f=True

      End If

      i=i+1

    Loop

    r=(h+num) Mod 7

    If r=0 Then

       Label1．Caption=“星期日”

    Else

       Label1．Caption=“星期”+    ②  

    End If

  End Sub

① ②

Private Sub Command1_Click()

Dim i As Integer, a As Integer, b As Integer, sum As Integer, pos As Integer

Dim idCode As String, result As String

Const xs = "0709100508040201060307091005080402"    '存储前17位每位系数

Const checkCodeStr = "10X98765432"    '存储余数对应的检验值

sum = 0

For i = 1 To 17 Step 1

    a = Val(Mid(idCode, i, 1))

    b =

    sum = sum + a * b

Next i

    pos =

checkCode = Mid(checkCodeStr, pos, 1)

    If checkCode = Mid(idCode, 18, 1) Then

        result = "有效"

    Else

        result = "无效"

    End if

List1.AddItem (idCode & "    " & result)

End Sub

Private Sub Command1_Click()

  Dim result As String, s As String, c As String, cmax as string

  Dim i As Integer, j As Integer

  s = Text1.Text

  Text2.Text = ""

  For i = 1 To Len(s)

    If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then

      result =

    End If

  Next i

  Text2.Text = result

  j = 2

  cmax = Mid(result, 1, 1)

  Do While j <= Len(result)

  If Mid(result, j, 1) > cmax Then cmax = Mid(result, j, 1)

  Loop

  Text3.Text = cmax

End Sub

Private SubCommand1_Click()

Dim a( 1 To 100) As Integer， b( 1 To 100) As Integer， c( 1 To 1000) As Integer

Dim t As Integer， k As Integer， i As Integer， jAs Integer

Dims1As String， s2As String， output As String

s 1=Text 1.Text：s2=Text2.Text：Text3.Text=“”

For i=1 To Len(s1)

    a(i)=  ①     ‘将文本框Text 1中的自然数按从低位到高位的顺序依次存放在数组a(1)，a(2) ……a(len(s1))中

Next i

‘将文本框Text2中的自然数按从低位到高位的顺序依次存放在数组b(1)，b(2) …… b(len(s2))中，代码略

    len c=Len(s1) +Len(s2) -1

    For i=1 To Len(s1)

        For j=1 To Len(s2)

          c(i+j-1)=c(i+j-1)+a(i)*b(j)

       c(i+j)=  ② 

       c(i+j-1) =c(i+j-1) Mod 10

    Next j

  Next i

  If c(len c+1) > 0 Then   ③ 

  Do While c(len c) =0Andlenc> 1 (2)

       len c=len c-1

  Loop

  output=“”

  For i=len c To 1 Step-1

      output=output+Mid(Str(c(i))，2，1)

  Next i

  Text 3.Text=output

End Sub
①②③

Private Sub Command1_Click()

Dim a As Integer, s As String

Dim n As Integer, t As Integer, v As Integer

n = Val(Text1.Text)

t = 0

s = ""

Do While n > 0

  a = n Mod 2

  n = n \ 2

  t =

  s = Str(a) + s

Loop

v = t Mod 2

Text2.Text = s

Label3.Caption = "校验位值：" +

End Sub

图b

Const n = 8           '程序以8*8的矩阵为例

Dim x(1 To n*n) As Integer, y(1 To n*n) As Integer           '存储所有金矿的位置

Dim px As Integer, py As Integer          '存储小人所在的位置

Dim i As Integer, j As Integer, m As Integer, tmp As Integer

Private Sub Command1_Click()

m = Val(Text1.Text)

Randomize

'随机产生m个金矿并通过图形控件显示在界面上，代码略

For i = 1 To m - 1

    For j = 1 To m - i

    '将所有金矿按照从上到下、从左到右的顺序排序，以符合题目描述的规则

        If x(j) > x(j + 1) Or Then

            tmp = x(j): x(j) = x(j + 1): x(j + 1) = tmp

            tmp = y(j): y(j) = y(j + 1): y(j + 1) = tmp

        End If

    Next j

Next i

px = 1: py = 1

i = 1: j = 1

Do While j <= m

    Do While x(j) = x(j + 1) And j <= m

        j = j + 1

    Loop

    If y(i) < py Then

        List1.AddItem "左" + Str(py - y(i))

    ElseIf y(i) > py Then

        List1.AddItem "右" + Str(y(i) - py)

    End If

    List1.AddItem "下" + Str)

    List1.AddItem "挖矿"

    For k = i + 1 To j

        List1.AddItem "右" + Str(y(k) - y(k - 1))

        List1.AddItem "挖矿"

    Next k

    px = x(j)

    j = j + 1

    i = j

Loop

End Sub