更多"运行下列程序,显示的结果是()。 s=0 For I=1 To 5"的相关试题:
[填空题]根据下面的汇编语言源程序,其运行结果是在屏幕上显示【 】。
DSEG SEGMENT
DAT DB 0FFH
N EQU 3
BUF DB 3 DUP(‘’)
DB ‘$’
DSEG ENDS
SSEG SEGMENT STACK
DB 256 DUP(0)
SSEG ENDS
CSEG SEGMENT
ASSUME DS:DSEG,SS:SSEG,CS:CSEG
START: MOV AX,DSEG
MOV DS,AX
MOV BX,OFFSET BUF
MOV SI,N
MOV AL,DAT
MOV AH,0
MOV CX,10
NEXT: XOR DX,DX
DIV CX
ADD DL,30H ;形成ASCII码
DEC SI ;保存余数
MOV [BX+SI],DL
OR SI,SI
JNE NEXT
LEA DX,BUF
MOV AH,9
INT 21H 显示字符串
MOV AH,4CH
INT 21H
CSEG ENDS
END START
[填空题]根据下面的汇编语言源程序,其运行结果是在屏幕上显示 【15】 。
DSEG SEGMENT
DAT DB 0FFH
N EQU 3
BUF DB 3 DUP(’’)
DB ’$’
DSEG ENDS
SSEG SEGMENT STACK
DB 256 DUP(0)
SSEG ENDS
CSEG SEGMENT
ASSUME DS:DSEG,SS:SSEG,CS:CSEG
START: MOV AX,DSEG
MOV DS,AX
MOV BX,OFFSET BUF
MOV SI,N
MOV AL,DAT
MOV AH,0
MOV CX,10
NEXT: XOR DX,DX
DIV CX
ADD DL,30H ;形成ASCII码
DEC SI
MOV [BX+SI],DL ;保存余数
OR SI,SI
JNE NEXT
JEA DX,BUF
MOV AH,9
INT 21H ;显示字符串
MOV AH,4CH
INT 21H
CSEG ENDS
END START
[填空题]下述程序段在运行时的显示结果是【 】。
Cls
x=1.34 + 8
Print Len(x)
[单项选择]程序运行后,单击窗体,屏幕显示的结果是( )。 Private Sub Form_Click( ) num1="乙" num2=76 Select Case numl Case"甲" If num2>=80 Then Print"德艺优秀" Else If num2>=60 Then Print"德优秀,艺普通" End If Case"乙" If num2>=80 Then Print"德艺双佳" Elselfnum2>=60 Then Print"德艺普通" End If End Select End Sub
A. 德艺双佳
B. 德艺普通
C. 德优秀,艺普通
D. 德艺优秀
[单项选择]下面程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form Click( )
Dim i As Integer
Dim sum As Long
Dim t As Long
t=1:sum=0
For i=1 To 3
t=t*i
sam=sum+t
Next i
Print sum
End Sub
A. 3
B. 9
C. 5
D. 6