更多"运行下列程序,显示的结果是______。 s=0 For I=1 "的相关试题:
[填空题]根据下面的汇编语言源程序,其运行结果是在屏幕上显示【 】。
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. 德艺优秀
[单项选择]运行下列程序,显示的结果是()。
s=0
For I=1 To 5
For j=1 To I
For k=j To 4
s=s+1
Next k
Next j
Next I
MsgBox s
A. 4
B. 5
C. 38
D. 40
[单项选择]下面程序运行时,单击窗体后,窗体上显示的结果是( )。
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
[填空题]根据下面的汇编语言源程序,其运行结果是在屏幕上显示______。
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 AI.DAT
MOV AH,0
MOV CX,10
NEXT: XOR DX, DX
DIV CX
ADD DL, 30H ; 形成ASCII码
DEC SI
DR SI,SI
JNE NEXT
JEA DX,BUF
MOV AH,9
INT 21H ; 显示字符串
MOV AH,4CH
INT 21H
CSEG ENDS
END START