0 返回首页
1. 编写一个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

    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) 程序中加框代码有错，请改正。
【考点】
运算符、基本运算与表达式; 常量、变量及变量的赋值;
【答案】

您现在未登录，无法查看试题答案与解析。 登录
综合题 普通
能力提升
换一批
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. 编写一个删除数字字符串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中显示的内容是。
综合题 困难