现有如下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

某算法部分流程图如图所示。执行这部分流程，依次输入：22、29、38、47、16、33、37、28、55、18、28 则输出值是（）

同类题2

编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a₁，a₂，…，a_n，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n=n。这样a₁，a₂，…，a_n称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()
Dim i As Integer, j As Integer, sum As Integer
Dim n As Integer
n = Val(Text1.Text)
sum = 0
List1.Clear
For i =" 1" To n ' ①
j =" i" - 1
Do While sum <=" n" ' ②
j =" j" + 1
sum =" sum" + j
Loop
If sum =" n" Then
List1.AddItem Str(i) & " + ... +" & Str(j) & "=" & Str(n)
End If
sum = 0
Next i
End Sub

同类题3

以下两个VB程序段，其中变量m和n为正整数，下列说法不正确的是（）

程序1：
If m<n Then

t=m：m=n：n=t

End If
Do While m Mod n＜＞0
r=m Mod n
m=n
n=r
Loop
Text1.Text=Str（n）

程序：
2n2
Do Whife m
程序2
Do While m＜＞n
Do While m＞n
m=m-n
Loop
Do While n>m
n=n-m
Loop
Loop
Textl.Text=Str（n）

A．“程序1”和“程序2”中的代码实现相同的功能

B．若变量m和n的值为25，35，则“程序1”代码运行后文本框Text1显示“5”

C．“程序2”中的输出语句改为Textl.Text=Str(m)，会影响文本框Textl显示的内容

D．若变量m和n的值为11，7，则“程序2”代码运行后文本框Text1显示“1”

同类题4

有如下VB程序段：
a＝2:b＝6:c＝3
If a＜b Then
t＝a:a＝b:b＝t
End If
If b＜c Then
c＝c-b
End If
该程序段运行后，整型变量a、b、c的值分别是（）

相关知识点