编写VB程序，实现如下功能：在文本框Text1中输入某天空气质量指数值，单击“查询”按钮（Command1），在文本框Text2中显示对应的空气质量级别。界面如1图所示。

题型：综合题题类：常考题难易度：困难

浙江省杭州市2016年信息技术高考模拟卷十三

（1）、在设计应用程序界面时，应使用2图所示“控件工具箱”中的（填写相应编号）添加控件“查询”按钮。

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

Private Sub Command1_Click()

Dim I As Integer

If I >= 0 And I <= 50 Then

Text2.Text = "空气质量一级优"

ElseIf I >= 51 And I <= 100 Then

Text2.Text = "空气质量二级良"

ElseIf I >= 101 And I <= 150 Then

Text2.Text = "空气质量三级轻度污染"

ElseIf I >= 151 And I <= 200 Then

Text2.Text = "空气质量四级中度污染"

ElseIf I >= 201 And I <= 300 Then

Text2.Text = "空气质量五级重度污染"

ElseIf Then

Text2.Text = "空气质量六级严重污染"

Else

Text2.Text = "输入错误，请重新输入！"

End Sub

举一反三

小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图1所示。阅读程序并完成后面的问题。

图1

编写VB程序，界面设计如图所示，使其具有下列功能：在文本框Text1中输入一个小于20的正整数ｎ，单击“计算”按钮Command1，计算斐波那契数列中第ｎ项的值，并在标签Label2中输出结果；若输入错误，则在标签Label2中显示相应的提示信息。（斐波那契数列是指这样的数列：1，1，2，3，5，8，13…。即：第1项和第2项的值均为1，从第3项开始，每一项的值是它前面两项之和）

小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如图所示的错误信息：

n = 0 : m = 0

For i = 1 To 100

If Rnd > 0.5 Then

n = n + 1

Else

m = m + 1

Next i

……

小金仔细分析该程序段后，发现其中缺少了（）

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是：{#blank#}1{#/blank#} 。

Private Sub Command1_Click()

Dim x As Integer, m As Integer

m = 3

For x = 1 To 5

If m > 3 Then m = m + 2 Else m = m - 1

Next x

Text1.Text = Str(m)

End Sub

现要求编写VB程序实现如下功能：在文本框Text1中输入正整数n（n为奇数），单击“生成”按钮后，在文本框Text2中会显示一个有规律的对称数字串，形成为“1 3 ... n-2 n n-2 ...3 1”。例如n=9时，显示的数字串为“1 3 5 7 9 7 5 3 1”。

某字符串s是由一个原始字符串反复重叠形成的。例如字符串"abcababcababcab"的是由原始字符串"abcab"重叠而成。为查找字符串s的原始字符串，有如下VB程序段:

s = "abcababcababcab": L = Len(s)

For t = 1 To L \ 2 '枚举可能的原始长度

If L Mod t = 0 Then

For i = t + 1 To L Step t

If ① <> Mid(s， 1， t) Then Exit For

Next i

If i = L + 1 Then ans = ② : Exit For

End If

Next t

Text1.Text = ans

上述程序段划线处①②语句依次可为（）

相关试卷

公司介绍

服务介绍

帮助中心