现有如下VisualBasic程序段：PrivateSubCommand1_Click（） Dima,b,c asIntegera=27:b=9:c_刷题宝

题干

现有如下Visual Basic程序段：

Private Sub Command1_Click（）

Dim a , b , c as Integer
a = 27: b = 9: c = -6
If a > b And b > 0 Then
If c < 0 Then a = a - c Else a = a - b

Else

a = b + c

End If

Print a

End Sub

该程序段运行之后，变量a的值为__________。

上一题下一题 0.99难度填空题更新时间:2019-06-04 05:14:16

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

同类题1

某电信部门规定：拨打市话时，如果通话时间不超过3分钟（含3分钟），则收取通话费0.2元，如果通话时间超过3分钟，则超过部分以每分钟0.1元收取通话费（通话时间为整数）。下面是计算通话费用的流程图和程序，请分析并回答问题。

（1）用计算机解决问题时，首先应该确定程序“做什么？”，然后再确定程序“如何做？”请问“如何做？”是属于用计算机解决问题的___________步骤
（2）上图中的流程图中菱形表示的是________________
（3）在下列选项中，不属于VB的对象的是（_____）
A.窗体的背景颜色 B.命令按钮 C.文本框 D.标签
（4）根据题意，完善流程图作图，填写空白处①______________________
（5）下图是计算通话费用程序窗体界面布局示意图。

Command1_Clik事件过程如下。请填写程序空白处。
Private Sub Command1_Click()
Dim ________as __________
x = Val(Text1.Text)
____________________ Then
’条件语句
_________________________
’显出时间不超过3分钟的电话费
Else
Text2.Text = Str(0.2 + 0.1 * (x - 3)) ’显出通话时间超过3分钟时的电话费
End If
End Sub
（6）这段程序属于__________结构程序设计。
（7）要使一个命令按钮显示文字“确定”，正确的设置是把该命令按钮的（_________）。
A.属性Font设置为“确定” B.属性.ForeColor设置为“确定”
C.属性Caption设置为“确定” D.属性BorderStyle设置为“确定”
（8）“’条件语句”它对程序的运行（____________）
A.起一定作用 B.有时候起作用
C.不起任何作用，但是必须的 D.不起任何作用，但能增加程序的可阅读性
（9）在调试程序的时候，经常要设置断点，设置断点的快捷键是______________
（10）在程序调试程序过程中，___________（填：“编译错误”或“逻辑错误”或“执行错误”）是计算机检查不出来的

同类题2

下列选项中，与语句“

”功能相同的是（）

同类题3

写出下面流程图所表述的算法的功能▁▁▁▁

A．降序排序

B．求最大值

C．交换输出

D．判断是否是偶数

同类题4

有如下 VB 程序段：
Private Sub Command1_Click()
Dim i As Integer,s As string
s = ""
For i = 1 To 3 Step 2
s = str(f(i)) + s
Next i
Text1. Text = s
End Sub
Function f(n As Integer) As Integer
If n = 1 Then
f = 2
Else
f = f(n - 1) + n
End If
End Function
则执行该程序段后，s 的值为（）

同类题5

有如下Visual Basic程序段：
a＝2
b＝4
c＝3
m＝a
If b>a Then m＝b
If c>m Then m＝c
该程序段运行后，变量m的值是

相关知识点