阅读下列程序并写出程序运行结果。
Private Sub Command1_Click()
x = 0
Do While x ＜ 60
x = (x + 3) * (x + 4)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
写出程序运行后，文件框Text3的结果。
如搜索结果不匹配，请 联系老师 获取答案
更多“阅读下列程序并写出程序运行结果。Private Sub Co…”相关的问题
第1题
阅读下列程序并写出程序运行结果。
Private Sub Form_Click()
Dim x As Integer
Static y As Integer
x = x + 2
y = y + 3
Form1.Print "x="; x, "y="; y
End Sub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
第2题
阅读下列程序并写出程序运行结果。
Private Sub Form_Click()
Dim A(1 To 3) As String
Dim c As Integer
Dim j As Integer
A(1) = "4"
A(2) = "8"
A(3) = "12"
c = 1
For j = 1 To 3
c = c + Val(A(j))
Next j
Print c
End Sub
写出程序运行时单击窗体后，窗体Form1上的结果。
第3题
阅读下列程序并写出程序运行结果。
Public Sub change1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Public Sub change2(x As Integer, y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 22: b = 33
change1 a, b
Form1.Print "A1="; a, "B1="; b
a = 22: b = 33
change2 a, b
Form1.Print "A2="; a, "B2="; b
End Sub
写出程序运行时，单击窗体Form1上的输出结果。
第9题
阅读下列程序，写出程序的运行结果【 】。
include＜iostream. h＞
void main() { char str1[ ]: "Hello, World？;
char str2[100];
int i=0;
do{
if (str1[i]＞= 'a'&& str1[i]＜= 'z' )
str2[i]=str1[i]-32;
else
str2[i]=strl [i];
i++;
}while(strl[i]!='\0');
str2[i]='\0';
cout＜＜str1＜＜end1；
cout＜＜str2＜＜end1；
}
为了保护您的账号安全，请在“赏学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
赏学吧
微信搜一搜
赏学吧
