若输入28，以上代码输出结果是_______________。Dimxaslongx=inputbox(“输入x的值”)y="x"mod7if y="4"ory_刷题宝

题干

若输入28，以上代码输出结果是_______________。
Dim x as long
x=inputbox(“输入x的值”)
y="x" mod 7
if y="4" or y="5" or y=" 6" then
xq=y-3
else
xq=y+4
end if
print xq

上一题下一题 0.99难度填空题更新时间:2016-03-16 10:31:47

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

同类题1

若执行时输入18，以下流程图描述的算法执行结果是（）

同类题2

陈红设计了一个程序：当输入身高S后，如果身高小于170厘米显示“不合格”，如果大于等于170厘米则显示“合格”，则流程图中①处填写正确的条件是( )。

同类题3

输入x为4，流程图运行结果为：（）

同类题4

某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序,将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在文本框Text1中输入连续多组编码，单击“翻译”按钮Commandl，结果显示在列表框List1中。
程序运行界面如右图所示。

（1）要使程序运行时，文本框Text1的Width属性值为2018，可在Form_Load事件过程中添加语句________（单选，填字母：

A．Width=2018 /

B．Textl. Width = 2018 /

C．Width. Textl=2018）。

（2）实现上述功能的VB程序如下，请在划线处填人合适的代码。
Private Sub Command1_Click()
Dim s As String, c As String, d As String
Dim n As Integer, bl As Integer, b2 As Integer, v As Integer, i As Integer
s = Textl.Text: n = Len(s): i = 1
Do While i <= n
c = Mid(s, i, 2)
If c = "00" Then
d = "东"
ElseIf c = "01" Then
d = "南"
ElseIf c = "10" Then
d = "西"
Else
d = "北"
End If
b1 = Val(Mid(s, i + 2, 1))
b2 = Val(Mid(s, i + 3, 1))
v=_______________①
List1.AddItem d + " " + Str(v)
_____________②
Loop
End Sub
（3）若文本框Textl中输入的内容为“1111”，单击“翻译”按钮，列表框List1中显示的内容是_________。

同类题5

如下图所示的流程图片段：

假设A、b的值分别是12、21，该流程图片段执行后，A、b、c的值分别为（）。

A．A=30，b=21，c=9

B．A=12，b=3，c=-9

C．A=3，b=21，c=9

D．A=21，b=12，c=9

相关知识点