充值活动已开启,快来参与吧 关闭充值活动
当前位置: 高中信息技术 / 算法与程序设计 / 算法及程序语言基础 / 运算符、基本运算与表达式
  • 1. 普源为晚上的班级联欢会设计了一个抽奖程序,将所有同学的编号和对应的姓名分别保存在数组a(全班共50个同学,编号为1到50)和数组b中,程序会随机产生一个1到50的正整数(同时包括1和50),作为中奖编号。

    程序界面如图所示,左边列表框List1中显示同学的编号和姓名,单击"抽奖"按钮(Command1),在标签Label3中显示抽中的编号,同时在标签Label4中显示"恭喜***同学",其中具体同学的姓名从数组b中获取。

    解决此问题的程序段如下,请在程序①和②划线处,填入适当的语句或表达式,把程序补充完整:

    Dim a(1 To 50) As Integer

    Dim b(1 To 50) As String

    Function search(m As Integer) As Integer

    search = 0

    For i = 1 To 50

        If m = a(i) Then

           search = a(i)

        End If

    Next i

    End Function

    Private Sub Command1_Click()

    Dim c As Integer,t as integer

    Randomize

    Label3.Caption = Str(c)

    t = search(c)

      If t <> 0 Then

        Label4.Caption = "恭喜" +  + "同学"

       End If

    End Sub

    Private Sub Form_Load()

        ' 此过程用于对数组a和数组b进行初始赋值,代码略

    End Sub

基础巩固 换一批