下列说法正确的是( )
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
k = (Val(ch) - 1) Mod (Len(s) - 4) + 1
s1 = Mid(s, k, 1) + s1
End If
Next i
Text1.Text = s1
程序执行完后,Text1 中显示的内容是( )
Private Sub Command1_Click()
Dim getStr As String
Dim a As String
Dim i As Integer,s As Integer
Dim q As Integer,l As Integer
s=0:q=0:l=0
getStr=Text1.Text
For i = 1 To ① ’对字符串中所有字符逐一判断
a = ②
If a >= "a" And a <= "z" Then s = s + 1
If a >= "A" And a <= "Z" Then q = q + 1
If a >= "0" And a <= "9" Then l = l + 1
Next i
Text2.Text = Str(s)
Text3.Text = Str(q)
Text4.Text = Str(l)
End Sub
划线②处应填入的语句为:
则 (选填 会/不会)影响输出结果。
下列说法正确的是( )
图1
(提示:合格数=实考数*(1-不及格率))
图2
Function lsc(x,y) As Integer
If x>y Then
lsc=x-y
Else
lsc=y-x
End If
End Function
Private Sub Command1_Click( )
Dim a1 As Integer,a2 As Integer
a1=Val(Text1.Text)
a2=Val(Text2.Text)
Label1.Caption=
End Sub
要实现上述功能,程序画线处应填入的语句为( )