编写一个删除数字字符串s中的最大和次大数字字符的程序。具体功能如下：在文本框Text1中输入一个数字字符串，单击“删数”按钮Command1，将删除后的结果显示在文本框Text2中。程序运行界面如图所示。

1. 编写一个删除数字字符串s中的最大和次大数字字符的程序。具体功能如下：在文本框Text1中输入一个数字字符串，单击“删数”按钮Command1，将删除后的结果显示在文本框Text2中。程序运行界面如图所示。

(1) 要使程序运行时，按钮Command1上显示的标题为“删数”,可在Form_Load事件处理过程中添加语句（单选,填字母:A .Caption.Commandl="删数"/ B .Command1.Caption ="删数"/C .Caption="删数"）。

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

Private Sub Command 1_Click（）

Dim s As String，ch As String

Dim i As Integer，n As Integer

Dim max1 As Integer，max2 As Integer

s=Text1.Text：n=Len（Text1.Text）

If Mid（s，1，1）>Mid（s，2，1）Then

max 1=1：max2=2

Else

max1=2：max2=1

End If

For i=3 To n

ch=Mid（s，i，1）

If ch>Mid（s，max1，1）Then

①

max1=i

ElseIf ch>=Mid（s，max2，1）Then

max2=i

End If

Next i

For i=1To n

If ② Then Text2.Text=Text2.Text&Mid（s，i，1）

Next i

End Sub

① ②

(3) 若在文本框Text1中输入的内容为“82176736”，单击按钮Command1，文本框Text2中显示的内容是。

【考点】

运算符、基本运算与表达式; 常量、变量及变量的赋值;

【答案】

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

综合题困难

1. 分析完善程序。
考拉兹猜想又称为3n+1猜想，是指对于每一个正整数，如果它是奇数，则对它乘3再加1；如果它是偶数，则对它除以2；........；如此循环，最终都能够得到1。
如n=6，根据上述规则，得出6→3→10→5→16→8→4→2→1。（共有8个步骤）
以下是验证考拉兹猜想的主要VB程序片段，请你补全代码：
n = Val(InputBox("n="))
Cnt = 0
Do While n > 1
Cnt = Cnt + 1
If n Mod 2 = 0 Then

n =
Else

n =
End If

Loop

Print Cnt ‘输出步骤数

综合题普通

2. 编写VB程序，实现如下功能：单击“生成密文”按钮Command2，在文本框Text3中产生与每个小写字母对应的密文（每个明文字母对应1个不重复的密文字母）。在文本框Text1中输入单词字符串，单击“加密”按钮Command1后，进行逐个字符加密，加密方法：在“明文”中找到相应字符，再得到明文对应位置的密文,并在文本框Text2中显示对应密文（运行效果如图所示）。实现上述功能的VB代码如下：

Dim m2 As String

Private Sub Command1_Click()

Dim flag(1 To 26) As Boolean

Dim num As Integer,t As Integer

Randomize

num = 1

Text3.Text = " "

For i =1 To 26

flag(i) = False

Next i

Do While num <= 26

x = Int(Rnd * 26) + 97

①

If flag(t) =False Then

m2 = m2 + Chr(x)

num =num + 1

②

End If

Loop

Text3.Text = m2

End Sub

Private Sub Command2_Click()

Dim s As String， m As String， result As String

Dim k As String， c As Integer

s = Text1.Text

m = "abcdefghijklmnopqrstuvwxyz"

For i = 1 To Len(s)

k = Mid(s, i, 1)

If k >= "A" And k <= "Z" Then

k = Chr(Asc(k) + 32)

End If

c =1: continue = True

Do While ③

If k = Mid(m, c, 1) Then

continue = False

End If

c =c + 1

Loop

④

Next i

Text2.Text = result

End Sub

①②③④

综合题普通

3. 编写一个VB抽奖程序，功能如下：从数据库读取相关数据并显示在列表框List1中，在文本框Text1中输入中奖人数，单击“抽奖”按钮Command1，在列表框List2中输出结果。

抽奖规则：中奖人数为1人，男女不限：

中奖人数超1人，男女对半(奇数时女性多1人)。

程序运行界面如图所示。

实现上述功能的VB程序如下：

Dim xm(1 To 500) As String, xh(1 To 500) As String, xb(1 To 500) As String

Dim n As Integer '学生总人数

Dim a(1 To 100) As Integer '抽中序号

Private Sub Form_ LoadO

'本过程读取n位同学的序号、姓名和性别，

'分别存储在数组xh、xm、xb中

并在列表框List1中显示，代码略

End Sub

Private Sub Command1_ ClickO

Dim rs As Integer, m As Integer, x As Integer, girl As Integer, I As Integer

Dim xbs(1 To 500) As Integer

Randomize

List2.Clear

List2.AddItem "姓名" & " " & "性别"

rs= ①

For i=1 To n

If xb(i)="女" Then xbs<(i)=1 Else xbs(i)=0

Next i

m=0

girl=0

If rs= 1 Then

x= Int(Rnd* n)+ 1

List2.AddItem xm(x) &" "&xb(x)

Else

Do While m<rs

x = Int(Rnd* n)+ 1

If checkf(x) Then

m=m+1: a(m)=x

girl = girl + xbs(a(m))

If ② Then

a(m)=0: m=m-1

ElseIf girl> (rs+1)\2 Then

a(m)=0: m=m-1

③

End If

Loop

For i=1 To m

List2.AddItem

Next i

End If

End Sub

Function checkf(p As Integer) As Boolean

'核对重复中奖，未中过奖返回True

'代码略

End Function

(1) 请在划线处①②③中填入合适的代码。

① ② ③

(2) 程序中加框代码有错，请改正。

综合题普通