运算符、基本运算与表达式 知识点题库

Private Sub Command1_Click（）

  Dim a(1 To 7) As Integer

  Dim i As Integer， j As Integer， n As Integer

  Dim ascl As String， s As String， s1 As String

  i=1

  S=Text1.Text

  Text2.Text=“”

  Do While i=Len(Text1.Text)

      s1= Mid(s， i， 1)

      ascl=Asc(s1)

      n=0

      For j=7 To 1 Step-1

          If j=3 Or i=4 Or j=5 Then

              a(j)=

          Else

              a(j) = asc1 Mod 2

          End If

          ascl=asc1\2

          n=

      Next j

      Text2.Text =Text2.Text+

      i=i+1

  Loop

End Sub

Private Sub Command1_Click()

Dim s As String, s1 As String, h As String

Dim n As Integer

s = Text1.Text

n =

h = Mid(s, 1, 1)

If n > 16 Then

   Label1.Caption = "长度超过16个字符！"

ElseIf  Then

   Label1.Caption = "不是以小写字母开头！"

Else

   For i = 2 To n

      s1 =

      If s1 < "0" Or s1 > "9" Then

         Label1.Caption = "非首位不是数字字符！"

      Else

           Label1.Caption = "该帐户名可用。"

        End If

     Next i

End If

End Sub

Private Sub Command1_Click（）

  Dim zfc As String  '用于存储输入的字符串

  Dim ans As String  '用于存储处理后的字符串

  Dim i As Integer，ch As String

  Dim n As Intege  r'用于存储输入的字符串的长度

     ①   

  n=Len（zfc）

  i=1

  Do While i<=n

         ②   

      If ch>="0"And ch<="9"Then

        i=i+1

      Else

           ③   

        i=i+1

      End If

  Loop

  Label2.Caption="结果为："+   ④   

End Sub

画线处应填入的代码为：①；②；③；④。