①从左往右依次获取各字符的ASCII码值;
②对奇数位字符的ASCII码值做加法处理,对偶数位字符的ASCII码值做减法处理;
③将上述结果取绝对值后除以26求余数,余数为0~25,分别对应大写字母A~Z,则该大写字母即为验证字符。
小李编写字符串验证程序,功能如下:在文本框Text1中输入待检验字符串(最后一位为验证字符),点击按钮Command1,在标签Label1中显示输入字符串是否验证成功。程序运行界面如图所示。
Private Sub Command1_Click()
Dim s As String, t As String
Dim cha As Integer, ans As Integer
Dim a As Integer, b As Integer, i As Integer
s =
t = Mid(s, Len(s), 1)
ans = 0
For i = 1 To Len(s) - 1
cha = Asc(Mid(s, i, 1))
If Then
ans = ans - cha
Else
ans = ans + cha
End If
Next i
ans = Abs(ans) Mod 26
If Then
Label1.Caption = "验证成功!"
Else
Label1.Caption = "验证失败!"
End If
End Sub
变量 |
表单字段类型 |
表单字段作用 |
usemame |
|
|
password |
|
|
submit |
|
class LogForm(FlaskForm):
username = StringField(用户名:)
password = PasswordField(密码:)
submit =
最佳方案为初始时所有人聚集在2号房间,此时花费的最小能量为7×0+8×1+6×2+4×3+4×4=48。
实现上述功能的VB代码如下,但加框处代码有误,请改正。
Dim a(1 To 100)As Integer ‘依次存储编号为1到100的房间的最多居住人数
Private Sub Form_Load( )
‘产生n的值
‘本过程从数据库中依次读取编号为1到n的房间的最多居住人数,并存储在数组a中
‘代码略
End Sub
Private Sub Command1_Click( )
Dim i As Integer,j As Integer,w As Integer
Dim t As Long,ans As Long
ans=32767
For i=1To n
t=0
For j=0 To n-1
‘①
If w=0 Then w=n
‘②
Next j
If t<ans Then ans=t
Next i
Text2.Text=Str(ans)
End Sub
以上程序段运行时,为了实现上述功能,加框处代码应改正为:①;②。
Dim i As Integer, j As Integer, n As Integer, s As String
i=1
Do While i<=3
k=i
j=i+1
Do While j<=8
If a(j)<a(k) Then k=j
j=j+1
Loop
If i< >k Then
t=a(i): a(i)=a(k): a(k)=t
End If
s=a(i)&.""&s
i=i+1
Loop
Label1.Caption=n&":"&s
数组元素a(1)到a(8)的数据依次为:“16,19,8,20,4,12,6,15”,经过该程序段“加工”后,标签 Label l中显示的值为( )
下列说法不正确的是( )