2010年浙江省高中信息技术会考试卷(5)
发布:2024/10/28 13:0:2
一、非选择题
-
1.有如下Visual Basic程序段:
a=“1100101“
b=Mid(a,2,4)+“101“
该程序段运行后,变量b的值为组卷:8引用:2难度:0.5
一、非选择题
-
3.有如下Visual Basic程序段:
该程序段运行后,变量 x 的值为( )组卷:0引用:2难度:0.5 -
4.普源为晚上的班级联欢会设计了一个抽奖程序,将所有同学的编号和对应的姓名分别保存在数组a(全班共50个同学,编号为1到50)和数组b中,程序会随机产生一个1到50的正整数(同时包括1和50),作为中奖编号.
程序界面如图所示,左边列表框List1中显示同学的编号和姓名,单击“抽奖“按钮(Command1),在标签Label3中显示抽中的编号,同时在标签Label4中显示“恭喜***同学“,其中具体同学的姓名从数组b中获取.
解决此问题的程序段如下:
Dim a(1To 50)As Integer
Dim b(1To 50)As String
Function search(m As Integer) As Integer
search=0
For i=1To 50
If m=a(i) Then
search=a(i)
End If
Next i
End Function
Private Sub Command1_Click ( )
Dim c As Integer,t as integer
Randomize
①
Label3.Caption=Str(c)
t=search(c)
If t<>0Then
Label4.Caption=“恭喜“+②
End If
End Sub
Private Sub Form_Load ( )
'此过程用于对数组a和数组b进行初始赋值,代码略
End Sub
(1)函数search中所用的算法是
(2)程序中①横线处应填入
(3)程序中②横线处应填入组卷:16引用:1难度:0.1