编写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

举一反三

完成以下VB程序代码

①{#blank#}1{#/blank#}

②{#blank#}2{#/blank#}

国际标准书号ISBN分成四组的10位数字组成，前面9位数字分组号、出版社和书序号三组，最后一位为校验码。校验的规则为从左边开始取出每位数字(前9位)，取出的数字依次乘以10、9、8……2，把各次的乘积相加，用11减去这个和除11的余数即为校验码。在文本框Text1中输入条形码，单击“校验”按钮Cmd1，在文本框Text2输出结论。程序运行的界面如图所示：

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim s As String，i As Integer，s1 As String，sum As Integer，t As Integer

Dim jy As Integer

s＝Text1.Text

t＝0：sum＝0

For i＝1 To Len(s)

s1＝Mid(s，i，1)

If s1>＝“0” And s1<＝“9” Then

′①

If t<10 Then

sum＝sum＋Val(s1)*(11－t)

ElseIf t＝10 Then

′②

End If

Next i

sum＝11－sum Mod 11

If Then′③

Text2.Text＝“该校验码中数字不是10位数！”

Else

If jy＝“X” and sum＝10 Then

Text2.Text＝“校验通过”

ElseIf val(jy)＝sum then

Text2.Text＝“校验通过”

Else

Text2.Text＝“校验不通过”

End If

End Sub

划线处代码为①{#blank#}1{#/blank#}

②{#blank#}2{#/blank#}

③{#blank#}3{#/blank#}

对称字符串从左读到右和从右读到左完全一样，如“1221”“12321”。编写VB程序，判断输入字符串是否对称，程序运行界面如图a所示，在文本框Text1中输入字符串，单击Command1按钮，在标签Label2上显示判断结果。

图a

图b

VB的三种工作模式是{#blank#}1{#/blank#}，{#blank#}2{#/blank#}，{#blank#}3{#/blank#}。

下列程序的运结果是（）

DIM A（1991 TO 1998） AS INTEGER

FOR I=1 TO 8

A(I)=I

PRINT A(I)；

NEXT I

运行如下程序代码，出现了如图所示错误提示，则出错的语句是（）

Private Sub Command1_Click()

Dim a As Integer, b As Integer

Dim c As Integer '①

a= Val(Text1. Text) '②

b = Val(Text2. Text)

c=a + b '③

Label1. Caption ="a + b="+c '④

End Sub

相关试卷

公司介绍

服务介绍

帮助中心