某帐户名的命名规则为:①长度不得超过16个字符;②必须以小写字母开头;③除首字符外,其余均为数字字符。编写一个程序,实现功能如下:在文本框Text1中输入待检测的帐户名,单击“检测”按钮Command1,在标签Label1中显示检测结果。程序运行界面如图所示。
(1)
程序运行时,文本框Text1要先被清空,可在Form_Load事件过程中添加语句(单选,填字母:A .Text =”” / B .Text1.Text=””/ C .Text1.Caption=””)。
(2)
实现上述功能的VB程序如下,请在划线处填入合适的代码。
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
(3)
若将加框处的语句改为h
< "A" Or h > "Z",则命名规则②应变为。
答案: 【1】B
【1】Len(s)【2】Mid(s,i,1)
【1】必须以大写字母开头