编“字符串生成”程序，实现如下功能：在文本框Text1中（字符位置)输入多个正整数 (以“，”为分割符和结束符），单击“生成”按钮Command1，程序以这些整数为位置信息，依次从文本框Text2中（字典内容）提取字符并连接成字符串，最后将字符串显示在标签Label1中（生成内容）。程序运行界面如下图所示。

0 返回首页

1. 编“字符串生成”程序，实现如下功能：在文本框Text1中（字符位置)输入多个正整数 (以“，”为分割符和结束符），单击“生成”按钮Command1，程序以这些整数为位置信息，依次从文本框Text2中（字典内容）提取字符并连接成字符串，最后将字符串显示在标签Label1中（生成内容）。程序运行界面如下图所示。

(1) 要使程序运行时，窗体Form1标题显示“字符串生成”，可在Form_Load事

件过程中添加语句(单选，填字母:A .Form1 = "字符串生成" / B .Forml.Text="字符串生成"/ C .Form1.Caption="字符串生成"）。

(2) 实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim s As String, t As String, c As String

Dim i As Integer, p As Integer

s = "": t = ""

For i = 1 To Len(Text1.Text)

c = Mid(Text1.Text, i, 1)

If c = "," Then

p = Val(t)

s = s + Mid(Text2.Text, p, 1)

t = ""

Else

t =

End If

Next i

Label1.Caption =

End Sub

(3) 若文本框Text1中输人内容的结束符缺失（即输人内容为1,18,9,9)，单击“生成”按钮后，标签Label1中显示的内容是

【考点】

运算符、基本运算与表达式;

【答案】

您现在未登录，无法查看试题答案与解析。登录

综合题普通

1. 某日期加密授权码生成方法描述如下：

⑴授权码由10位字符组成，前8位为日期的密文，后2位为验证码；

⑵取日期的第1位字符，若该字符第一次出现，则直接取其对应加密字符，否则取下一个不重复的加密字符。按此操作，依次取出该日期余下各位对应的加密字符；

⑶求出所有日期字符数值的和，将和除16取余加1得到一位验证码字符；若和不小于16，则将和除16取整加1得到另一位验证码字符，否则另一位验证码字符为“X”。取出验证码重复时，处理规则与(2)相同。加密(验证码)字符对应表如下:

值

(十进制)

加密

(验证码)

字符

小明设计了一个生成8位日期(YYYYMMDD格式)授权码的VB程序。程序功能如下:在文本框Text1中输入一个8位有效日期，单击“生成授权码”按钮Command1，在标签Label2中显示出该日期的授权码。运行效果如图所示。实现上述功能的VB程序段如下：

(1) 请在划线处填入合适代码：

Dim f(0 To 15) As Integer

Const Code = “KnGjLtWbOaPHZqYc”

Private Sub Command1_Click()

Dim rq As String, sq As String

Dim c As Integer, i As Integer, d As Integer

For i = 0 To 15

f(i) = 0

Next i

rq = Text1.Text

sq=“”:d = 0

If Len(rq) <> 8 Then

Label2.Caption =“请输入8位日期!”

Else

For i = 1 To 8

c = Val(Mid(rq, i, 1))

d = d + c

sq =+sq

Next i

If d >= 16 Then

yz = GetChar(d Mod 16 + 1) + GetChar(d\16 + 1)

Else

yz = GetChar(d Mod 16 + 1) + “X”

End If

Label2.Caption = sq + yz

End If

End Sub

‘获取不重复的加密字符

Function GetChar(x As Integer) As String

Dim flag As Boolean

flag = False

Do While flag = False

f(x) = f(x) + 1

If f(x) = 1 Then

f(x) = f(x) + 1

flag = True

Else

x = (x + 1) Mod 10

End If

Loop

End Function

(2) 若输入的日期是“20170818”,则该授权码的验证码字符是。

综合题普通