18届浙江信息技术选考14题专题复习.docxVIP

夏令营周练之VB基础强化二 命题：杜宗飞 班级：姓名：学号： 1、已知整数型数组 a(1)、a(2),, a(n)已经存储了数据。变量 k、i已经定义。该文档为文档投稿赚钱网作品，版权所有，违责必纠 编写循环语句实现将数组中最大兀素值存储 在变量k中 编写循环语句实现将数组中 最大兀素的下标 存储在变量k中 k = a(1) Text1.Text = Str(k) k = 1 Text1.Text = Str(k) 2、编写VB程序，实现如下功能：在文本框Textl中输入包含数字、字母的字符串，单击“统该文档为文档投稿赚钱网作品，版权所有，违责必纠 计按钮Command］统计该字符串中字母字符的个数，并在标签 Labell中输出结果。界面该文档为文档投稿赚钱网作品，版权所有，违责必纠 (2)为实现上述功能，请在划线处填入合适代码。 Private Sub Command1_Click() Dim s As String, c As String Dim i As Integer, n As Integer, num As Integer该文档为文档投稿赚钱网作品，版权所有，违责必纠 s = Text1.Text num = 0 n = i = 1 Do While i = n If c = a And c = z Or c = A And c = Z Then该文档为文档投稿赚钱网作品，版权所有，违责必纠 End If i = i + 1 Label1.Caption = Str(num) End Sub 3.编写“去除前置 0”程序，实现如下功能：在文本框 Text1中输入一个数据，单击该文档为文档投稿赚钱网作品，版权所有，违责必纠 去除按钮 Command 1在标签 Label1上显示结果。程序运行界面如图 a所示。该文档为文档投稿赚钱网作品，版权所有，违责必纠 图a (1)在设计程序界面时，使应使用图 号)添加“ Text1 ”文本框。 要修改文本框上显示的内容，应该修改该对象的 实现上述功能的 VB程序如下，请在划线处填入合适的代码。 Private Sub Command1_Click() Dim s As String, i As Integer Dim n As String s = Text1.Text 中的 (填写相应编 (填属性名)属性。 n = i = 1 Do While i = n ch = Mid(s, i, 1) If ch = 0 Then i = i + 1 Else Exit Do End If Loop Label1.Caption = 结果为：+ End Sub (3)运行该程序，在文本框中输入 0012,单击“去除”按钮后，语句 ch = Mid(s, i, 1)该文档为文档投稿赚钱网作品，版权所有，违责必纠 被执行的次数是 次 4.小明编写了一个简单算式计算器程序，功能如下：在文本框 法的算式，形式为： a+b , a和b都为正整数。单击按钮该文档为文档投稿赚钱网作品，版权所有，违责必纠 上显示算式的计算的结果。程序运行界面如下图所示： 退出循环 Textl中输入一个加 Command 1 后，在标签 Label Gencr ?!. Eg (填写相应编 (填：A.对象名/B.方法名/C.属性名。