第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上的输出结果。
第3题
执行下面的程序时,从键盘上输入A的值为10,写出程序输出结果。 INPUT TO A IF A=10 S=0 ENDIF S=1 S
第4题
阅读下列程序并写出程序运行结果。
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的结果。
第5题
阅读下列程序并写出程序运行结果。
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上的结果。
第6题
阅读下列程序,写出程序执行后数据段BUF开始的10个内存单元中的内容。
DATASEGMENT
BUF DB08H,12H,34H,56H,78H,9AH,0BCH,0DEH,0F0H,0FFH
KEY DB78H
DATAENDS
CODESEGMENT
ASSUME CS:CODE,DS:DATA,ES:DATA
START: MOVAX,DATA
MOVDS,AX
MOVES,AX
CLD
LEA DI,BUF
MOVCL,[DI]
XORCH,CH
INC DI
MOV AL,KEY
REPNESCASB
JNE DONE
DECBUF
MOVSI,DI
DECDI
REP MOVSB
DONE: MOVAH,4CH
INT 21H
CODE ENDS
ENDSTART
执行结果:BUFDB _______ 、 _______、 _______ 、 _______、 _______、 _______、 _______、 _______、 _______ 、 _______。
第8题
写出下列程序的运行结果。
#include
void Fun()
{
int num=20;
cout<<"the fun's num is"<
}
void main()
{
int num=10;
cout<<"the main's num is "<
Fun();
{
int num=30;
cout<<"the field's num is "<
}
cout<<"the main's num is "<
}
第9题
阅读下列程序并写出程序运行结果。
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上的输出结果。
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!