- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省“七彩阳光”联盟2017-2018学年高三上学期信息技术期中联考试卷

自然常数e，约为2.71828，其值可通过泰勒公式计算获得 $\text{[math]}$

小明编写了一个VB程序来计算e的近似值，功能为在文本框Text1中输入公式n值，单击“计算”命令按钮Commong1，在标签Label2中显示计算结果，程序运行界面如图所示。

（1）、代码“Private sub commund1_Click是(单选，填字母：A，对象名／B，属性名／C，事件名)。

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

Private Sub Command1_Click()

Dim i As Double，p As Double

Dim e As Double

n= ①

e=1

i=1

p=1

Do While i<=n

p= ②

e=e+p

③

Loop

Label2.Caption=”e的值是：”+Str(e)

End Sub

① ② ③

举一反三

编写一个VB程序，实现如下功能：在文本框Text1中输入一串小写的英文字母，单击“统计”按钮Command1,在文本框Text2中输入字母升序段个数，要求每个升序段中字母数量必须超过3个（如输入abctsefefghk，则满足条件的升序段序列abct，efghk，个数为2），程序运行界面如图所示。

小王编写VB程序，实现如下功能：在Text1中输入1~9之间的任意一个数字，单击“计算”按钮Command1, 计算该数字的阶乘并显示在标签Label2中。程序运行界面如图所示：

窗体的名称属性是（）

下列是事件的是（）

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

有如下程序段：

For i = 2 To 6

For j = 1 To i - 1

If a(j) <= a(i) And d(j) >= d(i) Then

d(i) =d(j)+1 : pre(i) = j

End If

Next j

Next i

max = 0 : k = 0

For i = 1 To 6

If d(i)>max Then max = d(i) : k = i

Next i

Do While k <> 0

st = a(k) & ","& st

k=pre(k)

Loop

Text1.Text = Mid(st, 1, Len(st) - 1)

数组元素a（1）到a(6)的值依次为“2，6，5，9，8，8”，数组d各元素的值初始化为1，数组pre各元素的值初始化为0，经过该程序段“加工”后，Text1中的值是( )

相关试卷

公司介绍

服务介绍

帮助中心