- 二一组卷

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

浙江省白云中学2018-2019学年高一下学期信息技术3月月考试卷

某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如图1所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。

图1

图2

图3

（1）、在应用程序界面设计时，为添加“计费”按钮，应使用图2所示的“控件工具箱”中的（请填写相应编号），并在如图3所示的“属性窗口”中，将属性值设置为“计费”。

（2）、请根据题意将下列程序补充完整。

Private Sub Command1_Click()

Dim zysj As Single, zyfy As Single ‘zysj:租用时间，zyfy:租用费用

zysj = Val(Text1.Text)

If zysj <= 60 Then

zyfy = 0

ElseIf zysj <= 120 Then

zyfy = 1

ElseIf zysj <= 180 Then

ElseIf zysj Mod 60 = 0 Then

zyfy = (zysj - 180) / 60 * 3 + 3

Else

zyfy = (Int((zysj - 180) / 60) + 1) * 3 + 3

End If

Label5.Caption = Str(zyfy)

End Sub

举一反三

某校学生会选举需要从学校数据库中随机抽取若干名学生作为监票人。该数据库文件名为school.mdb，其中数据表student存储有关学生学号（xuehao）、姓名（xingming）相关信息，括号内的内容为对应字段名。该程序编辑界面如图所示，相关对象名可参考标识图。

当主持人点击按钮“生成抽号”后，下方的标签会显示可抽取的学号姓名，一定时间后显示被抽取作为监票人的学号姓名。

'xxxss:学校学生数，kcq:可抽取

'xhxm:学号姓名，kcq:可抽取

Dim xxxss As Integer

Dim xhxm(3000) As String

Dim kcq(3000) As Boolean

'cq_Click:启用两个定时器

Private Sub cq_Click()

cqxhxm.Enabled = True

xskcqxhxm.Enabled = True

End Sub

Private Sub cz_Click() '初始化数组kcq，使每个元素数据都处于可显示状态

For i = 0 To xxxss - 1

kcq(i) = True '①

Next i

End Sub

Private Sub xskcqxhxm_Timer() '若数组kcq第x个元素处于可抽取状态，则显示数组xhxm第x个元素

x = Int(Rnd * xxxss)

If kcq(x) Then xhxmbq.text = kcq(x) '②

End Sub

Private Sub Form_Load() '从数据库中提取需要的学号姓名相关数据并初始化数组kcq

Randomize

xxxss = 0

Dim conn As New ADODB.Connection,rs As New ADODB.Recordset

Dim str_conn as String,str_sql As String

str_conn = "driver=Microsoft access driver(*.mdb);DBQ="&app.path&"\school.mdb";

conn.open str_conn

str_sql = "select * from students"

rs.open str_sql

Do While Not rs.eof

xxxss = xxxss + 1

xhxm(xxxss) = rs.fields("xuehao")&rs.fields("xingming")

rs.movenext

Loop

For i = 0 To xxxss - 1

kcq(i) = True

Next i

End Sub

Private Sub cqxhxm_Timer() '决定抽取的学号姓名作为监票人

xskcqxhxm.Enabled = False

For i = 0 To xxxss - 1

If xhxmbq.Caption = xhxm(i) Then kcq(i) = False

Next i

cqxhxm.Enabled = False

End Sub

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

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

在Visual Basic的代码窗口中，语句Password.Caption= "a>b"中的Password是（）

【加试题】小王同学为了研究浙江省湖州地区空气质量与天气、气温、风向等的关联性问题，通过网络获取了2016-06-01至2017-05-31这365天的有关信息，并将数据整理至数据文件data.accdb中。其中huzhou数据表视图及设计视图部分界面如图所示。

小王编写了VB程序，具体功能：点击“执行”按钮Command1，在文本框Text1中显示空气质量为优（AQI空气质量指数≤50）的最长持续天数（连续为优），并在列表List1中依次显示对应天数的各项数据。

实现上述功能的VB程序如下：

Dim rq(1 To 365)As String ‘存放日期

Dim aqi(1 To 365)As Integer ‘存放AQl空气质量指数

Dim tq(1 To 365)As String ‘存放天气

Dim qw(1 To 365)As String ‘存放气温

Dim fxfl(1 To 365)As String ‘存放风向及风力

Private Sub Form_Load( )

‘本过程从数据中按2016-06-01至2017-05-31依次读取各项数据，并分别存储在对应的数组中。代码略。

Private Sub Command1_Click( )

Dim n As Integer，m As Integer，i As Integer，k As Integer

Dim s As String

n=0：m=0：k=0

For i=1 To 365

If aqi(i)<=50 Then

n=n+1

Else

If n>m Then

m=n

k=i-1

End If

n=0

End If

Next i

If n>m Then

m=n

①

End If

For i= ② To k

s=rq(i) ‘日期长度均为10

s=s&Space(7-Len(Str(aqi(i)))) ＆ Str(aqi(i)) ‘AQI为1～3个数字

s=s&Space(4)&tq(i) ‘天气为1-4个中文字符

s=s&Space(2*(6-Len(tq(i))))＆qw(i) ‘气温长度均为9

s=s&Space(4)&fxfl(i) ‘风向及风力长度不等

List1.AddItem s

Next i

Text1．Text=Str(m)

End Sub

【加试题】有如下VB程序段：

For i=1 to 10

b(i)=0

Next i

For i=1 To 5

For j=1 To 10

If b(i)<a(j)Then

b(i)=a(j)

t=j

End If

Next j

a(t)=0

List1．AddI tem Str(b(i))

Next i

其中数组元素a(1)到a(10)的值依次为“25，42，53，66，77，83，98，14，38，99”，执行程序后，在列表框List1中依次输出的数据是（）

编写VB程序，实现如下功能:在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a₁ ， a₂ ， …， a_n ，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n。这样a₁ ， a₂ ， …，a_n称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的程序如下，请在划线处填写合适代码。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, sum As Integer

Dim n As Integer, k As Integer, tmp As String

n = Val (Text1.Text)

sum = 0:List1.Clear

For i = 1 To n-1

j=i

Do While sum < n

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

j = j + 1

Loop

If sum = n Then

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

For k=i+1 To j-1

tmp = tmp + “+” + Str(k)

Next k

List1.AddItem tmp +“=”+ Str(n)

End If

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

Next i

End Sub

杨氏矩阵数组的特征是每行从左到右是递增的，每列从上到下是递增的，如下图所示为一个4×4的杨氏矩阵。

1	5	7	9
4	6	10	15
8	11	12	19
14	16	18	21

已知数据逐行存储在数组a中，在杨氏矩阵数组中查找某数字是否存在的VB程序段如下：

cz = False : i = 1 : j = n

Do While j >= 1 And i <= n

If key < a(s) Then

⑵

ElseIf key > a(s) Then

⑶

Else

cz = True:Exit Do

End If

Loop

方框中的代码由以下三部分组成：

①j = j - 1

②s = (i - 1) * n + j

③i = i + 1

代码顺序正确的选项是（）

相关试卷

公司介绍

服务介绍

帮助中心