2.3 周而复始的循环 知识点题库

（1） 若要将按钮上的文本修改为“转换”，则应修改Command1对象的 属性

（2） 为了实现以上程序功能，使程序正常运行，请完善以下两处代码。

Private Sub Command1_Click()

Dim dx As String, dw As String

Dim st As String, ch As Integer

Dim i ,n As Integer

dx = "零壹贰叁肆伍陆柒捌玖" 

dw = "亿仟佰拾萬仟佰拾圆" 

st = Text1.Text : n = Len(st)

If  n > 9 Then

    Text2.Text = "输入的数据超出所能转换的范围"

Else

    For i = 1 To n          

       ch =    ①   

       s = s + Mid(dx, ch + 1, 1) + Mid(dw,  ②   , 1)

    Next i

    Text2.Text = s + "整"

End If

End Sub

以上程序段运行时，为了实现上述功能，划线处应填入的代码分别为：

①； ②；

（3） 由上述算法可知，若在文本框Text1中输入“12”，则文本框Text3显示的结果为。

（1） 请在划线处填入合适的代码。

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
①②③

（2） 若将方框内代码“And len c>1”删除，在文本框Text 1中输入122134，在文本框Text 2中输入0，单击命令按钮Command 1，则程序提示。

（1） 要使程序运行时，标签框Labell的ForeColor属性值为vbRed，可在Form_Load事件处理过程中添加语句（单选，填字母： A . Label1. ForeColor= vbRed/ B . Label1. vbRed= ForeColor/C . Fore Color. Label1=vbRed）。

（2） 实现上述功能的VB程序如下，请在画线处填入合适的代码。

Private Sub Command 1_ Click()

    Dim n As Long, sum As Long, ans As Long

    n= Val(Text1. Text)

    sum=1

    Do While sum <n

        

    Loop

    If n =sum Then

        ans=sum

    ElseIf Then

        ans=sum/2

    Else

        ans =sum

    End If

    Label 1. Caption = Str(ans)

End Sub

（3） 若文本框Text1中输入的内容为“24”，单击“查找”按钮，标签框 Label1中显示的内容是。

（1） 若要修改按钮Command1上显示的文字，应修改的属性名是（单选，填字母：A .Text/B .Caption /C . List ）

（2） 实现上述功能的VB程序代码如下，请在划线处填入合适的代码

Private Sub command1_Click()

    Dim s As String, ch As String, rv As String, rv1 As String

    Dim i As Integer, j As Integer, k As Integer

    s = Text1.Text

    rv = ""

    i = 1

    Do While True

        ch = Mid(s, i, 1)

        Do While  And i <= Len(s)

            rv = rv + ch

            i = i + 1

            ch = Mid(s, i, 1)

        Loop

        j = i

        ch =

        Do While sz(ch) And j <= Len(s)

            j = j + 1

            If j > Len(s) Then Exit Do

            ch = Mid(s, j, 1)

        Loop

        rv1 = ""

        rv1 = Mid(s, j - 1, 1) + Mid(s, i, j - i - 1)

        rv = rv + rv1

        i =

        If i > Len(s) Then Exit Do

        Do While zf(ch) And j <= Len(s)

            j = j + 1

            If j > Len(s) Then Exit Do

            ch = Mid(s, j, 1)

        Loop

        rv1 = ""

        For k = i - 1 To j - 1

            rv1 = Mid(s, k, 1) + rv1

        Next k

        rv = rv + rv1

        If j <= Len(s) Then rv = rv + Mid(s, j, 1)

        i = j + 1

        If i > Len(s) Then Exit Do

    Loop

    Text2.Text = rv

End Sub

Function zf(s As String) As Boolean

    zf = False

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

        zf = True

    End If

End Function

Function sz(s As String) As Boolean

    sz = False

    If Then

        sz = True

    End If

End Function

（3） 程序中加框处代码有错，请改正