浙江省2019年信息技术选考模拟试卷三
年级: 学科:信息技术(信息科技) 类型: 来源:91题库
一、选择题 (共12小题)
学生基本信息表
学号 | 姓名 | 性别 | 出生年月 | 入学成绩 | 班级 |
0160101 | 王天行 | 男 | 2000-06-03 | 523 | 高一(1)班 |
0160102 | 张利明 | 男 | 1999-12-03 | 478 | 高一(1)班 |
0160103 | 孙云华 | 女 | 2000-03-01 | 495 | 高一(1)班 |
...... | ...... | ...... | ...... | ...... | ...... |
若使用Access数据表来存储会员信息,下列部分字段设计中合理的是( )
字段名称 | 字段类型 | 说明 |
ID | 自动编号 | 学号 |
Username | 文本 | 姓名 |
字段名称 | 字段类型 | 说明 |
Score | 数字 | 入学成绩 |
Sex | 文本 | 性别 |
字段名称 | 字段类型 | 说明 |
ID | 文本 | 学号 |
Sex | 是/否 | 性别 |
字段名称 | 字段类型 | 说明 |
Birthday | 数字 | 出生年月 |
UserType | 文本 | 班级 |
若流程执行时,输入x的值为13,那么输出的依次是( )
下列说法错误的是( )
下列说法正确的是( )
Dim a(1 To 10) As Integer
a(1) = 1: a(2) = 2
For i = 3 To 10
a(i) = a(i - 1) + a(i - 2)
Next i
i = 1: j = 10: f = False
Do While i <= j And f = False
num = num + 1
m = (i + j) \ 2
If num = a(m) Then
f = True
ElseIf num < a(m) Then
j = m - 1
Else
i = m + 1
End If
Text1.Text = Text1.Text + Str(m)
Loop
该程序段执行结束后,文本框Text1中显示的内容是( )
二、非选择题 (共5小题)
图1
图2
Private Sub Command1_Click()
Dim n As Single, i As Integer, c As Integer
List1.Clear
n = Val(Text1.Text)
If n - Int(n) > 0.5 Then
n = Int(n)+1 ‘n 小数部分大于 0.5 的加 1,0.5 及以下的加 0.5
Else
End If
c = n * 2 - 10
Label1.Caption = "适合你的鞋码为:" + Str(c)
For i = 22.5 To n+2 step 0.5
If Int(i) = i Then
List1.AddItem Str(i) + " " + Str(c)
Else
List1.AddItem Str(i) + " " + Str(c)
End If
Next i
End Sub
图1
图2
例如:n = 5,a(1)= 4,a(2)= 7 ,a(3)= 8,a(4)= 6,a(5)= 4。
最佳方案为初始时所有人聚集在2号房间花费的最小能量为7*0+8*1+6*2+4*3+4*4=48。
实现上述功能的 VB 代码如下,但加框处代码有错,请改正。
Dim a( 1 To 100) As Integer '依次存储编号为 1 到 100 的房间的最多居住人数
Private Sub Form_Load()
'产生N的值
'本过程从数据库中依次读取编号为1到 N的房间的最多居住人数,并存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, w As Integer
Dim t As Long, ans As Long
ans = 32767
For i=1 To n
t = 0
For j=0 To n-1
‘(1)
If w=0 Then w=n
‘(2)
Next j
If t < ans Then ans = t
Next i
Text2.Text = Str(ans)
End Sub
以上程序段运行时,为了实现上述功能,加框处代码应改正为:
⑴ ;⑵ 。
Private Sub Command1_Click()
Dim s As String
Dim n As Integer , i As Integer
s = Text1.Text
n=Len(s) : i=1 : result=""
Do While i<=n
s1=Mid(s, i, 1)
numbers=0
‘扫描到的字符都和s1相同
Do While
i=i+1
numbers = numbers+ 1
Loop
If numbers>0 Then
result= result & &s1
i = i+1
End If
start =1
s1 = Mid(s,i,1)
numbers =0
'扫描到的字符都和s1不同
Do While s1<>Mid(s,i+1,1)
i=i+1
numbers = numbers+ 1
s1=Mid(s,i,1)
Loop
If Mid ( s , i + 1 , 1 ) = s1 Then
numbers = numbers-1
End If
If numbers >= 0 Then
result = result&"1" & &"1"
End If
Loop
Text2.Text=result
End Sub