下列VB程序运行时，单击命令按钮Command1后，若在文本框中输入10，则标签Label1显示的内容是 Private Sub Command1_Click() Dim sjzs As Integer Dim rjzs As String sjzs = Val(Text1.Text) rjzs = &quot;&quot; Do While Int...

题型：填空题题类：模拟题难易度：普通

浙江省杭州市2015年高考信息技术模拟卷9

下列VB程序运行时，单击命令按钮Command1后，若在文本框中输入10，则标签Label1显示的内容是

Private Sub Command1_Click()

Dim sjzs As Integer

Dim rjzs As String

sjzs = Val(Text1.Text)

rjzs = ""

Do While Int(sjzs / 2) > 0

rjzs = Str(sjzs Mod 2) + rjzs

sjzs = Int(sjzs / 2)

Loop

Label1.Caption = rjzs

End Sub

举一反三

用雨量计或雨量器测定，以mm为单位。目前，我国电视和广播节目中发布的日雨量为08~08时，代表前一天的雨量。从键盘输入前一天雨量（用来模拟传感器），点击判断雨量，然后从label3输出雨量

小雨:1d(或24h)降雨量小于10mm者。

中雨:1d(或24h)降雨量10~25mm者。

大雨:1d(或24h)降雨量25~50mm者。

暴雨:1d(或24h)降雨量50~100mm者。

大暴雨:1d(或24h)降雨量100~250mm者。

特大暴雨:1d(或24h)降雨量在250mm以上者。

Private Sub Command1_Click()

Dim a As Single

Dim s as ①

a = ②

If a > 250 Then

s = "特大暴雨"

ElseIf a > 100 Then

s = "大暴雨"

ElseIf a > 50 Then

s = "暴雨"

ElseIf a > 25 Then

s = "大雨"

ElseIf a > 10 Then

s= "中雨"

ElseIf ③ Then

s = "小雨"

Else

s = "无雨"

End If

Label3.caption= ④

End Sub

有如下程序段，该程序段运行后，e的值为({#blank#}1{#/blank#}) i的值为({#blank#}2{#/blank#}) j的值为({#blank#}3{#/blank#})

e=0

For i=2 to 10 step 2

For j=1 to 6

If (i+j) mod 3=0 then e=e+1

Next j

Next i

某算法的部分流程图如图所示，执行这部分流程后，变量sum 的值为（）

下列是关于某数字的加密解密算法。其加密规则如下：计算某位数字与其位置相加得到的结果除以 11 的余数即为编号（其中若余数为 0，编号为 11），编号与字符对照表如下：

编号	1	2	3	4	5	6	7	8	9	10	11
字符	V	i	s	u	a	l	B	A	S	I	C

从对照表中找出与编号对应的字符完成加密，如下表显示了数字“2018”的加密过程：

数字	2	0	1	8
位置	1	2	3	4
编号	3	2	4	1
加密字符	s	i	u	V

小张按照上述原理，设计了一个解密的VB程序，功能如下:单击“解密”按钮Command1,将文本框Text1中的密文(字符数不超过11个)进行解密，并将解密后的明文在文本框Text2中输出。程序运行效果如图a所示。

在一次晚会上，一位魔术师掏出一叠扑克牌，取出其中13张黑桃，预先洗好牌，把牌面朝下，对观众说：“我不看牌，只数一数就能知道每张牌是什么？”魔术师口中念1，将第一张牌翻过来看正好是A；魔术师将黑桃A放到桌子上，继续数手里的余牌，第二次数1，2将第一张牌放到这叠牌的下面，将第二张牌翻开，正好是黑桃2，也把它放在桌子上。第三次数1，2，3，前面两张牌放到这叠牌的下面，取出第三张牌，正好是黑桃3，这样依次将13张牌翻出，准确无误。现在的问题是，魔术师手里牌的原始顺序是怎么样的呢？运行结果如下图所示。

代码如下：

Private Sub Command1_Click()

Dim a(1 To 13) As Integer, i As Integer, j As Integer, n As Integer

For i=1 To 13

a(i)=0

Next i

i=1:n=0:j=1

Do While i<=13

Do While True

If j>13 Then {#blank#}1{#/blank#}

If a(j)=0 Then n=n+1

If n=i Then

{#blank#}2{#/blank#}

n=0

Exit Do

End If

j=j+1

Loop

{#blank#}3{#/blank#}

Loop

Label1.Caption="原来牌的顺序是："

For k=1 To 13

Label2.Caption ={#blank#}4{#/blank#}

End Sub

关于下列Python程序段的说法正确的是（）

k=1

while 1:

k+=1

相关试卷

公司介绍

服务介绍

帮助中心