题库 高中信息

题干

数学帝忘记了自己的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

条形码是按照一定编码规则排列的图形标识符。如右图所示,条形码下方数字左边12位代表信息,最右边一位是校验码。校验码产生方法如下:

①把条形码下方数字从右往左依次编序号为“1,2,3,4……”;
②从序号2开始把所有偶数序号位上的数相加求和,并乘以3;
③从序号3开始把所有奇数序号上的数相加求和;
④把第②和第③步结果相加求和;
⑤10减去第④步结果的个位数,得出校验码(如果差值为10,则校验码为0);
如条形码的数字为:977167121601X(X为校验码),则校验码主要产生步骤如下:
1) (1+6+2+7+1+7)×3=72
2) 0+1+1+6+7+9=24
3) 72+24=96
4) 10-6=4
所以最后校验码X=4,此条形码数字为9771671216014。
小何为此编写了VB程序,用以验证条形码输入正确与否。程序运行时,从文本框Text1获取条形码数字部分,单击按钮Command1后,在列表框List1中输出结果。实现上述功能的VB代码如下,但加框处代码有错,请改正。
Private Sub Command1_Click()
Dim i As Integer, b As String, Lb As Integer
Dim s1 As Integer, s2 As Integer, tmp As Integer
Dim c As String
Dim d(1 To 13) As Integer '存储数据
Dim res As String '存储结果
b =" Text1.Text" '输入
Lb = Len(b)
s1 =" 0" : s2 = 0
flag = True
res = "输入错误!"
If Lb =" 13" Then
For i =" 1" To 13
c =" Mid(b," Lb - i + 1, 1)
If c >= "0" And c <= "9" Then
d(i) =" Val(c)" '输入转换
Else
flag =" False" : Exit For
End If
Next i
If flag Then
For i =" 2" To Lb Step 2
s1 =  s1 + d(i) '参数计算1
s2 =s2 + d(i) '参数计算2    ①
Next i
tmp =" s1" * 3 + s2
If tmp Mod 10    Then res = "输入正确!"  ②
End If
End If
List1.AddItem res
End Sub