[加试题]王五为学生们设计了学校食堂学生校园卡查询系统，在终端机上输入学生的校园卡卡号，可以查出该卡对应的学生姓名及相应的余额。校园卡信息存储在一个综合的数据库“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

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

①

②

③

举一反三

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

图1

2016年10月学考成绩揭晓后，信息技术老师要统计各班学考技术A等级人数，但教务处为了保护学生成绩隐私，只给他提供了各班学生本次学考的等级信息，其中技术学科等级排在每位学生的第一科。若某班学生大部分参加技术、地理、历史三门学考，小部分参加其中的两门，则教务处提供的等级信息为每位学生连续三个字符（如：ABAB-B，表示第一个学生的成绩技术为A，地理为B ，历史为A，第二个学生技术为B，地理没考，历史为B，其他依此类推）。于是他编写了一个VB程序，很快统计出各班技术学科的A等级人数。程序设计界面如图所示，其中各班学考等级信息来自文本框Text1，科目数来自文本框Text2，统计结果输出到文本框Text3中。实现上述功能的VB程序代码如下：

Private Sub Commandl_Click( )

Dim s, p As String

Dim a, n As Integer

Dim kms As Integer

s= ①

n = Len ( s )：a = 0 ：kms = Val(Text2.Text)

If n Mod kms = 0 Then

For i= ②_______

p = Mid(s，i，1)

If p= "A" or p= "a" Then a = a+l

Next i

Text3.Text = Str(a)

Else

Text3.Text="学生等级信息不正确"

End If

End Sub

请回答下列问题：

下列VB程序中，f是一个递归函数：( )

Private Sub Command1_Click()

Dim y As Integer

y = Val(Text1.Text)

Label1.Caption = Str(f(y))

End Sub

Function f(n As Integer) As Integer

If (n = 1) Or (n = 2) Then

f = 1

Else

f = f(n - 1) + f(n - 2)

End If

End Function

程序运行时，在文本框中输入8，单击命令按钮Command1后，Label1中显示的内容是：

下列VB程序段：

Function s(n As Integer) As Integer

If n=1 Then

s=1

Else

s=s(n-1)+n

End If

End Function

Private Sub Form_Click()

Dim x As Integer

x=s(4)

Print x

End Sub

程序运行时,单击窗体后,变量x的值为（）

下面代码的输出结果是（）

x=10

y=3

print(x%y，x**y)

如下程序在调试时出现了如图所示的出错信息，该程序段出错的原因是缺少了（）

m=0:n=0

For i=1 to 100

If i mod 3="0" then

m=m+1

Else

n=n+1

next i

print m,n

相关试卷

公司介绍

服务介绍

帮助中心