题库 高中信息

题干

数学帝忘记了自己的E-Mail邮箱密码,但她需要接收一封很重要的来信,于是她求助科技达人帮她尽可能找出密码。她零星记得自己密码的相关信息:密码是六位数字,前面两位为31;最后两位数字相同;能被16和46整除。
科技达人轻松地用VB写了个小程序,帮数学帝找到了所有可能的密码。
科技达人的程序运行界面如下图所示。

科技达人的程序段如下:
Private Sub Command1_Click()
Dim a As Integer, s As  long, b As Integer, i As Integer
For i =" 0" To 9999    
s =" 310000" + i
If s Mod 46 =" 0" Then

b =" (s" Mod 100) \ 10
If a =" b" Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
请分析任务,完成下列题目。
(1)在程序运行界面中出现了三种控件,它们分别属于列表框、命令按钮、标签,请你在序号后写出其对应的控件类型:

(2)在程序运行界面中控件 ①上显示了“帮助找回密码”字样,这是通过改变    属性的值实现的。
(3)解决问题常用的算法有枚举算法、解析算法、排序算法、查找算法等,那么从上述程序段看,解决此问题的算法是  
(4)程序段中出现了“Command1_Click”字样,表示这是一个面向对象的事件,这里的对象是___________________,事件是_______________。
(5)从程序段看,这段程序结构属于三种基本程序结构中的
(6)在程序段的变量定义语句中,先后出现了integer和long两种数据类型,他们分别是 型和     型。
(7)请在程序段中④和⑤处填充合适的内容,使程序完整。
程序中④处应填入______________
程序中⑤处应填入______________
(8)程序段中的语句 b =" (s" Mod 100) \ 10,目的在于计算s的十位数字,这里“\”实现了____________计算。
上一题 下一题 0.99难度 填空题 更新时间:2017-02-17 10:07:40

答案(点此获取答案解析)

同类题2

小杨同学编写了一个VB程序用于学校里7选3选课情况统计。该程序主要功能有:1.点击“生成选课组合”按钮 Commandl,生成35种选课组合;2.点击“统计选课情况”按钮 Command2,统计出各种组合的选课人数;运行界面如下图。实现上述功能的VB程序如下,请回答下列问题:

(1)分析程序代码,如图里“选课组合”序号为30的组合名称为:___________________。
(2)请在划线处填入合适的代码。请回答下列问题:
Dim zh(1 To 16) As String, zrs As Integer
Dim xk(1 To1000) As String'存放同学的选课科目组合,已知学生人数少于1000人
Dim zh2(1 To 35) As String'存放35种选课科目组合
Dim rstj(1 To 35) As Integer'存放各种选课组合选课人数
Private Sub Form_ Load()
‘本过程从数据库中读取学生的选课情况数据,存放在数组xk中,学生的总人数存放在变量zrs。’代码略
End Sub
Private Sub Command l_ Click( )
Dim i As Integer,j As Integer, m As Integer, n As Integer, k As Integer
Dim km(1 To 7)As String
Listl.Clear
List1. AddIton“序号”+“” +“组合名称”
km(1)= “物”:km(2)= “化”:km(3)= “生”km(4)= “政”
km(5)= “史”km(6)= “地”:km(7)= “技”
m= 1
For i= 1 To 5
For k= i+1 To 6

zh(m)=km(i)+ km(k)

m= m+ 1

Next k
Next i
j= 3:n= 1:y= j
For i= 1 To m

For k= y To 7

zh2(n)=___________________________________
If n< = 9 Then
Listl. AddItem n &""&" "& zh2(n)
Else
Listl. AddItem n &"  "& zh2(n)
End If
n= n+ 1

Next k

y= y+ 1

If y=8 Then

j= ___________________________  :y= j

    End If
Next i
End sub
Private Sub Command2_ Click( )
Dim i As Integer

List2. Clear

List2. Additon"组合名称"+""+"选课人数”

For i= 1 To 35

rstj(i)=_____________________________

List2 AddItem zh2(i)+" "+ Str (rstj (i))
Next i
End Sub
Function tj (zhmc As String) As Integer'统计某种选课组合的选课人数
Dim i As Integer, rs As Integer
rs= 0
For i= I To zrs

If zhmc = xk(i) Then

rs= rs+ 1

End If

Next i
tj= rs
End Function