2017年技术选考VB算法加试题周练字母数字分类.docxVIP

命题：杜宗飞 算法加试题一周一练 ——宁吃百日苦，不留终身憾！ 行政班： 教学班： 姓名： 学号： 算法题解题步骤：①阅读题目 ②理解题意 ③阅读程序④分析算法⑤分析 程序和解题 【加试题】小明编写了一个字母数字分类程序，功能如下：在文本框 个由字母和数字组成的字符串。单击按钮 Command1 后，在列表框 数字，在列表框 List2 中显示所有字母。程序运行界面如下图所示： Text1 中输入一 List1 中显示所有 E 图 a 1 A B C D 图 b 图 c （ 1） 如图 b 所示要在窗体上添加按钮对象，应该选择 （填字母） 。 （2）如图 a 所示，要修改按钮上“分类”的字体大小，应该修改按钮的 （填 对应的属性名）属性。 （3）如图 c 所示， 其中 CommandButton是 （填： 对象名 / 类名 /事件名 / 属性名） 。 （4）代码“ List1.AddItem a(i) ”中的 AddItem 是 （填：对象名 / 方法名 / 事 件名/ 属性名） 。 命题：杜宗飞 （5）代码 Command1_Click( ) ”中的 Click 是 （填：对象名 / 方法名 / 事件名 / 属性名） 。 （6）实现上述功能的 VB程序如下。请在划线处填入合适代码。 Const max = 100 Dim a(1 To max) As String Dim b(1 To max) As String Private Sub Command1_Click() 存储字符串中的数字字符 存储字符串中的字母 Dim s As String, ch As String Dim pa As Integer, pb As Integer s = pa = 1: pb = 1 For i = 1 To Len(s) If mytest(ch) Then a(pa) = ch pa = pa + 1 Else b(pb) = ch End If Next i For i = 1 To pa – 1 在列表框 1 中输出 List1.AddItem a(i) Next i Do While i pb 在列表框 2 中输出 List2.AddItem b(i) i = i + 1 Loop End Sub Function mytest(x As String) As Boolean 函数功能 : 判断是否数字字符 If x = 0 And x = 9 Then Else mytest = False End If End Function 命题：杜宗飞 参考答案 Text1.Text ch = Mid(s, i, 1) pb = pb + 1 i = 1 mytest = True