2018届浙江信息技术选考14题专题复习

夏令营周练之VB基础强化二

命题：杜宗飞

班级： 姓名： 学号：

1、已知整数型数组a(1)、a(2)??a(n)已经存储了数据。变量k、i已经定义。 编写循环语句实现将数组中最大元素值存储在变量k中 k = a(1) Text1.Text = Str(k)

2、编写VB程序，实现如下功能：在文本框Text1中输入包含数字、字母的字符串，单击“统计”按钮Commandl，统计该字符串中字母字符的个数，并在标签Label1中输出结果。界面如第图所示。

编写循环语句实现将数组中最大元素的下标存储在变量k中 k = 1 Text1.Text = Str(k)

（1）在设计应用程序界面时, 应使用第右图所示“控件工具箱”中的 （填写相应编号) 添加“统计” 按钮。

（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 >= \ End If i = i + 1

Label1.Caption = Str(num) End Sub

3.编写“去除前置0”程序，实现如下功能：在文本框Text1中输入一个数据，单击“去除”按钮Command1，在标签Label1上显示结果。程序运行界面如图a所示。

第 1 页 共 4 页

图a 图b

(1)在设计程序界面时，使应使用图b所示“控件工具箱”中的 （填写相应编号）添加“Text1”文本框。

（2）要修改文本框上显示的内容，应该修改该对象的 （填属性名）属性。 （3）实现上述功能的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 = \ i = i + 1 Else

Exit Do '退出循环 End If Loop

Label1.Caption = \结果为：\End Sub

（3）运行该程序，在文本框中输入0012，单击“去除”按钮后，语句ch = Mid(s, i, 1)被执行的次数是 次

4.小明编写了一个简单算式计算器程序，功能如下：在文本框Text1中输入一个加法的算式，形式为：a+b，a和b都为正整数。单击按钮Command1后，在标签Labe1上显示算式的计算的结果。程序运行界面如下图所示：

图a 图b

(1)在设计程序界面时，使应使用图b所示“控件工具箱”中的 （填写相应编号）添加文本框对象。

（2）代码中的Caption是 （填：A.对象名/B.方法名/C.属性名。

第 2 页 共 4 页