无
*注意事项:
PRIVATE SUB FORM_CLICK( )
X=3 : Y=12
IF X>2 THEN Y=3
Y=5
PRINT Y
END SUB
IF A=B THEN B=A
下列说法正确的是( )
X=val(inputbox(“shuru”))
IF X>=0 THEN
PRINT SQR(X)
ELSE
PRINT X
END IF
运行时键盘输入-4
DIM X AS INTEGER, Y AS INTEGER
X=VAL(TEXT1.TEXT): Y=VAL(TEXT2.TEXT)
IF X<Y THEN A=X ELSE A=Y
PRINT A
a=a+b:b=b+a
print a,b
这段程序的执行结果是( )
A=4
IF A<=3 THEN
B=A
IF A<=4 THEN
B=A+1
IF A<=5 THEN
B=A+2
PRINT A,B
X=INT(RND)+3
IF X^2>8 THEN Y=X^2+1
IF X^2=9 THEN Y=X^2-2
IF X^2<8 THEN Y=X^3
X=100 : Y=30
IF X>Y THEN X=X-Y ELSE X=Y+X
A=3:B=2
C=A=B
PRINT C
X=INT(RND)
IF X THEN PRINT X
ELSE PRINT X+1
x = 5: y = -20
If Not x > 0 Then x = y - 3 Else y = x + 3
Print x - y; y – x
这段代码的执行结果是( )
x=1
For i=1 to 20 step 2
x=x+i\5
Next i
PrivateSubCommand1_Click()
n=VAL(Text1.Text)
SelectCasen
Case1To20
x=10
Case2,4,6
x=20
CaseIs<10
x=30
Case10
x=40
EndSelect
Text2.Text=x
EndSub
程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是( )
A=VAL(INPUTBOX(“请输入第一个数”))
B=VAL(INPUTBOX(“请输入第二个数”))
C=VAL(INPUTBOX(“请输入第三个数”))
M=A
IF M>B THEN M=B
IF M>C THEN M=C
PRINT M
X=INT(RND)+6
SELECT CASE X
CASE IS>5
PRINT 5
CASE IS >4
PRINT 4
CASE IS>3
PRINT 3
CASE ELSE
PRINT 2
END SELECT
T=A
PRIVATESUB FORM_CLICK( )
DIM X AS SINGLE
X=VAL(INPUTBOX(“请输入一个成绩”))
SELECT CASE
CASE
PRINT “优”
PRINT “良”
PRINT “一般”
PRINT “及格”
PRINT “不及格”
DIM I AS INTEGER,S AS INTEGER
FOR I= 2 TO 100
S=S+
NEXT I
PRINT S
Private Sub Command1_Click( )
X=Val(Text1.Text)
Select Case X
Case
Print “出错”
Case Is<0
Y=100-X
Case 0 To 100
Y=100+X
Y=400
End Select
Text2.Text=X
End Sub
DIM X AS SINGLE, Y AS INTEGER
X=VAL(TEXT1.TEXT)
IF X>=1000 THEN
Y=4
Y=3
Y=2
Y=1
Y=0
PRINT “Y=”;Y
DIM A AS INTEGER, B AS INTEGER
DIM C AS INTEGER
A= VAL(INPUTBOX(“请输入第一个数”))
B= VAL(INPUTBOX(“请输入第二个数”))
C= VAL(INPUTBOX(“请输入第三个数”))
IF A>B THEN
A=B
B=T
IF A>C THEN
A=C
C=T
IF THEN
PRINT A,B,C
PRINT A,C,B
微信扫码预览、分享更方便
详情