- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省临海市白云高级中学2018-2019学年高二上学期信息技术第一次月考试卷

某帐户名的命名规则为：①长度不得超过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"，则命名规则②应变为。

举一反三

s=0

For k =3 To 1 Step-1

If k <=1 Then x=1

If k <=2 Then x=2

If k <=3 Then x=3

s=s+x

Next k

Text1. Text= Str(s)

该程序段运行后，文本框Text1中显示的内容是（）

相关试卷