[单项选择]运行下列程序，显示的结果是______。
a=instr(5，"Hello!Beijing."，"e")
b=sgn(3＞2)
c=a+b
MsgBox c
A. 1
B. 3
C. 7
D. 9

[单项选择]运行下列程序，显示的结果是（）。
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