(12分) 组合框类型改为下拉列表,添加文本框(垂直滚动条且多行显示)程序功能:选择 “大写字母”单击“产生”按钮,在文本框中显示 30 个随机的大写字母,选择“小写字母”则产生 30 个小写字母。单击“处理”按钮,将 30 个字母中最大的字母显示在列表框中,如有重复字符,则都显示在列表框中。每次单击“处理”按钮,列表框内容都清空。如图 2 所示。 图 2 打开工程文件 “ test2.vbp ”,完成下列操作: (1)根据题意完成 代码填空, 以让程序正确执行。调试并运行程序。 保存窗体文件和工程文件,生成可执行程序 “ test2.exe ”并保存到“试题二“文件夹下。 Dim a%(1 To 30) Private Sub Command1_Click() Dim dx% Randomize Text1.Text = "" If Combo1.Text = "大写字母" Then dx = Asc("A") ElseIf Combo1.Text = "小写字母" Then dx = '(1) End If If dx <> 0 Then For i = 1 To 30 a(i) = Int(Rnd * 26) + '(2) 'Text1.Text = Text1.Text + " " + '(3) Next i End If End Sub Private Sub Command2_Click() Dim sz% sz = '(4) For i = 2 To 30 If a(i) >= sz Then '(5) Next i List1.Clear For i = 1 To 30 If a(i) = sz Then '(6) Next i End Sub