[加试题]王五为学生们设计了学校食堂学生校园卡查询系统，在终端机上输入学生的校园卡卡号，可以查出该卡对应的学生姓名及相应的余额。校园卡信息存储在一个综合的数据库“school.mdb”,其中的“Yue”数据表用来存储学生的校园卡基本信息，包括学号（num）、姓名（name）、余额（money）,括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生姓名及余额，运行界面如下图所示：...

题型：填空题题类：模拟题难易度：普通

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

[加试题]王五为学生们设计了学校食堂学生校园卡查询系统，在终端机上输入学生的校园卡卡号，可以查出该卡对应的学生姓名及相应的余额。

校园卡信息存储在一个综合的数据库“school.mdb”,其中的“Yue”数据表用来存储学生的校园卡基本信息，包括学号（num）、姓名（name）、余额（money）,括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生姓名及余额，运行界面如下图所示：

数据库文件与应用程序在同一文件夹中，在文本框Text1中输入学生的学号，单击“查询”按钮，在标签Label4、Label5中分别显示学生姓名和余额。

Private Sub Command1Click()

Dim adocn As new connection

Dim adors As new recordeset

Dim str1 As string,str2 as string

Str1=”driver=microsoft access driver(*.mdb);dbq=”&app.path&”\ ① .mdb”

Adon.open str1

Str2=”select * from Yue where ② =’”+text1.text+”’”

Adors.open str2,adocn,adOpenDynamic,adLockOptimistic

If adors.eof then

Msgbox”你输入的学号不存在!”

Else

Label4. caption =adors.Fields(“name”).value

③ =adors.Fields(“money”).value

Endif

Adors.close

Adocn.close

End Sub

为了实现上述目标，在画线处填入合适的语句或表达式：

①

②

③

举一反三

小王喜中新股，为了能预估自己的收益情况，编写“新股收益预期”程序，实现如下功能：在文本框Text1中输入该股票的发行价，在文本框Text2中输入预期涨停个数，在文本框Text3中输入股数，单击“计算”按钮Command1，在列表框List1中依次显示各个交易日的结果信息，并在标签Label4中显示总收益信息。

新股首个交易日的涨停上限为44%，其余的交易日涨停上限为10%，并将相应股票价格四舍五入到分。公式提示：日收益=（本交易日股价-前一交易日股价)×股数

程序运行界面如图所示：

下列VB程序的功能是：程序运行时，单击按钮Command1随机产生20个范围在1－1000（包括1和100）的整数，并在列表框List1中显示，然后单击按钮Command2，计算随机产生的20个整数中的最大值、最小值和平均值，并分别在Text1、Text2和Text3中显示，程序的运行界面如图所示。请在划线上填入合适的代码:

Const n = 20

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer

Randomize

For i = 1 To n

a(i) = Int(Rnd * 1000) + 1

List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, max As Integer

Dim min As Integer, sum As Single

max = a(1): min = a(1)

sum = 0

For i = 2 To n

If {#blank#}1{#/blank#} Then max = a(i)

If a(i) < min Then min = a(i)

sum = sum + a(i)

Next i

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

Text1.Text = Str(max)

Text2.Text = Str(min)

Text3.Text = Str(sum)

End Sub

素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面如图1所示。

图1

图2

某VB程序的一个事件处理过程如下：

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1.Text)

Text1.Text = Str(Sqr(a))

End Sub

程序运行时，单击命令按钮Command1后弹出如图所示的错误信息提示。出现错误的原因可能是（）

编写VB程序，功能为：单击“发牌”按钮“Command1”后，从一副扑克牌（不包括大王、小王、J、Q、K、A）中随机抽取5张牌，牌的花色（♠♥♣♦）忽略，显示在列表框“List1”中。如果这5张牌由一个对子和一个顺子（3张牌连续）组成，则在标签“Label1”中显示“运气不错:)”，否则显示“运气一般:|”。程序运行界面如图所示。

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

Private Sub Command1_Click()

List1.Clear

Dim five(1 To 5) As Integer

Dim i As Integer, j As Integer, k As Integer

Dim p As Integer, find_pair As Boolean

'随机抽取5张牌，将牌的点数存储在数组five中，并在List1中显示。代码略

i = 5: p = 1: find_pair = False

Do While i>= 2

j=p

Do While j <= i - 1

If five(j) > five(j + 1) Then

t = five(j): five(j) = five(j + 1): five(j + 1) = t

ElseIf five(j) = five(j + 1) And Not find_pair Then

t = five(1): five(1) = five(j): five(j) = t

t = five(2): five(2) = five(j + 1): five(j + 1) = t

find_pair = True

i = i + 1

p = _____________

Exit Do

End If

j = j + 1

Loop

i = i - 1

Loop

k = 0

For i = 3 To 4

If Then k = k + 1

Next i

If five(1) = five(2) And k = 2 Then

Label1.Caption = "运气不错:)"

Else

Label1.Caption = "运气一般:|"

End If

End Sub

请回答下列问题：

程序执行到有语法错误的语句时( )

相关试卷

公司介绍

服务介绍

帮助中心