王敏的QQ密码忘记了，试了很多次都没有成功，请你帮她尽可能找出密码。她零星记得自己的密码信息：①密码是六位数字，前面两位为31；②最后两位数字相同；③能被16和_刷题宝

题干

王敏的 QQ 密码忘记了，试了很多次都没有成功，请你帮她尽可能找出密码。她零星记得自己的密码信息：①密码是六位数字，前面两位为 31；②最后两位数字相同；③能被 16 和 46 整除。程序界面如图所示，单击“帮助找回密码”按钮，可能的密码显示在列表框 List1 中。解决此问题的相应程序如下，完成相应的填充。

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
a = s mod 10
b=(s\10)mod 10
If ___________Then
___________
End If
End If
Next i
End Sub

上一题下一题 0.99难度填空题更新时间:2019-11-27 12:16:24

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

同类题1

以下语句中错误的是（）

A．Const var1=123

B．Dim var2 As String

D．Dim d(1 to 500) As Double

同类题2

有如下 VB 程序，它的输出结果是（  ）。
S=0
For i=1 To 10
If i mod 2=0 Then S=S+i
Next i
Print    “S=”;S

同类题3

纪念品分组问题。某教师节晚会的纪念品分组规则如下：按纪念品价值进行分组，每组总价值不超过限定值w且最多包含两件，要求分组数最少。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输入每件纪念品的价格(不超过w)，以逗号分隔，在文本框Text2中输入限定位w，单击“分组”按钮，在标签Labe12上输出最少的分组数。程序运行界面如图所示。

(1)要使程序启动后，窗体的标题栏显示“纪念品分组”文字，可在Form_Load事件过程中添加语句__________(单选，填字母：

A．Forml="纪念品分组"/

B．Forml.Name="纪念品分组"/

C．Forml.Caption="纪念品分组"/

D．Forml.Text="纪念品分组")。

(2)实现上述功能的VB程序如下，请在划线处填入合适的代码；并且加框处代码有错，请改正。
①___________________________________
②__________________________________
③__________________________________

(3)若在文本框Text1中输A“50，30，100，70，80，40，50，20，"，文本框Tcxt2中输“110”，单击“分组”按钮，标签Labe12中显示的内容是______________

同类题4

有如下程序段：
i = 1
Do While i <= 4 And flag(i) = False
For j = 5 To i + 1 Step -1

If a(j) < a(j -1) Then

k = a(j):a(j) = a(j-1):a(j-1) = k
flag(i) = True

End If

Next j
i = i + 1
Loop
数组元素a(1)到a(5)的值依次为“56,23,78,11,8”，数组flag的初值均为False，经过该程序段“加工”后，数组元素放flag(1)到flag(5)中值为True的个数是( )

相关知识点