更多"运行下列程序,显示的结果是______。 a=instr(5,'He"的相关试题:
[单项选择]运行下列程序,显示的结果是()。
a=instr(5,"Hello!Beijing.","e")
b=sgn(3>2)
c=a+b
MsgBox C
A. 1
B. 3
C. 7
D. 9
[填空题]根据下面的汇编语言源程序,其运行结果是在屏幕上显示 【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
[单项选择]运行下列程序,显示的结果是()。
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
[填空题]下述程序段在运行时的显示结果是【 】。
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
[填空题]根据下面的汇编语言源程序,其运行结果是在屏幕上显示______。
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
[填空题]根据下面的汇编语言源程序,其运行结果是在屏幕上显示______。
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
[单项选择]下面程序运行时,单击窗体后,窗体上显示的结果是( )。
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
[填空题]下述程序段在运行时的显示结果是 【6】 。
Cls
x=1.34 + 8
Print Len(x)
[单项选择]以下程序运行后,单击命令按钮,窗体显示的结果是 ______。 Private Function p1(x As Integer,y As Integel,z As Integer) p1=2*x+y+3*z End Function Private Function p2(x As Integer,y As Integer,z As Integer) p2=p1(2,y,x)+x End Function Private SubCommandl_Click( ) Dim a As Integer Dim b As Integer Dim c As Integer a=2:b=3:c=4 Print p2(c,b,A) End Sub
A. 19
B. 21
C. 22
D. 23