- 二一组卷

题型：综合题题类：模拟题难易度：困难

浙江省普通高校招生信息技术选考模拟卷（三）

编写VB趣味程序“计算厚道指数”，实现如下功能：在文本框Text1中输入姓名，单击“试一试”按钮Command1，在列表框List1依次求解并显示姓名中的每一个字符的ASCII码，并按程序中给定方式进行运算，得出厚道指数。运行界面如图所示，程序代码如下。

（1）、为实现上述功能，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim s As String，c As String

Dim n As Integer，k As Integer

s = Text1.Text

List1.Clear

List1.AddItem ("开始分解姓名" + s + " ,计算内码：")

For i = 1 To

c = mid(s , i , 1 )

k = Asc(c)

List1.AddItem (c + " 十进制ASCII值：" + Str(k))

n = (n + k) Mod 50

n = n + 50 -i

Label2.Caption = Str(n)

End Sub

（2）、程序中的代码“List1.AddItem ”的“AddItem”是。（单选，填字母：A .对象名/B .属性名/C .事件名/ D .方法名）

（3）、若在文本框中输入姓名是“jam”这3个字符，点击“试一试”按钮，在label2上显示的“厚道指数”值为。

举一反三

有如下VB程序段：

Private Sub Label1_Click()

Dim a As Double, b As Single, c As Single

a = Val(Text1．Text)

b = Val(Text2．Text)

c = ( a – b ) / Log(a)

Label1．Caption = Str(c)

End Sub

能运行该段程序的事件过程名是（）

在VB中，可用来实现选择结构的语句是（）

有如下VB 程序段:

m = Val(Text1.Text)

Do While m <> 0

x = m Mod 8

m = m \ 8

a(x) = a(x) + 1

If a(x) = 1 Then n = n + 1

Loop

数组a各元素的初始值都为0，在文本框Text1中输入“529”，执行程序后，变量n的值为（）

某Visual Basic程序的一个事件过程如下：

Private Sub Form_Load()

Command1.Caption=“计算”

End Sub

在程序运行时，能触发该事件的是（）

设有数组定义语句：Dim a(5) As Integer, List1为列表框控件。下列给数组元素赋值的语句，错误的是（）。

小王基于选择排序算法编写了一个 VB 程序，功能如下：数组 a 有 n * n 个元素，按 n 行 n 列进行排列，按列进行升序排序。例如 6 * 6 的数组，第一列将 a(1)，a(7),a(13),a(19),a(25) ,a(31)进行排序。运行程序，在列表框 List1 中显示 n * n 个数列单击“排序”按钮 Command1，在列表框List2 中显示排序后的结果，程序运行界面如图所示。

请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心