Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As integer)
If chr(KeyAscii)<> ”” Then ss=ss+chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Dim m As String,i As Integer
For i=Len(ss) To 1 step -1
m=m+Mid(ss,i,1)
Next
Text1.Text=Ucase(m)
End Sub
程序运行后,在文本框中输入 “ Number100 ” ,并单击命令按钮,则文本框中显示的是
A ) NUMBER 100
B ) REBMUN
C ) REBMUN 100
D ) 001 REBMUN
某人设计了如下程序用于计算并输出7!(7的阶乘): Private Sub Command1_Click t = 0 For k = 7 To 2 Step -1 t = t * k Next Print t End Sub 执行程序时,发现结果是错误的。下面的修改方案中能够得到正确结果的是。 A.把t=0改为t=1 B.把For k=7 TO 2 Step -1改为For k=7 TO 1 Step -1 C.把For k=7 TO 2 Step -1改为For k=1 TO 7 D.把Next改为Next k
(20 )某人设计了如下程序用来计算并输出 7! (7 的阶乘)
Private Sub Command1_Click()
t=0
For k=7 To 2 Step -1
t=t*k
Next
Print t
End Sub
执行程序时,发现结果是错误的,下面的修改方案中能够得到正确结构的是
A )把 t=0 改为 t=1
B )把 For k = 7 To 2 Step -1 改为 For k =7 To 1 Step -1
C )把 For k = 7 To 2 Stip-1 改为 Fork=1 To 7
D )把 Next 改为 Nexi k
窗体的左右两端各有1直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Linel直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停止移动。为实现上述功能,某人把计时器的Interva1属性设置为1000,并编写了如下程序:
Private Sub Timer1 Timer()
For k=Line1.X1 To Line2.X1 Step 100
If Shape1.Left+Shape1.width<Line2.X1 Then
Shape1.Left=Shape1.Left+100
End If
Next k
End Sub
运行程序时发现圆立即移动到了右边的直线处,与题目要求的移动方式不符。为得到与题目要求相符的结果,下面修改方案中正确的是()。
A.把计时器的Interval属性设置为1
B.把For k=line1.X1 To Line2.X1 Step 100和Next k两行删除
C.把For k=Line1.X1 To Line2.X1Step 100改为For k=Line2.X1 To Line1.X1 Step 100
D.把If Shape1.Left+Shepe1.Width<Line2.X1 Then改为If Shape1.Left<Line2.X1 Then
计算的近似值的一个公式是π/4=1-(1/3)+(1/5)-(1/7)+…+(-1)n-1(1/2n -1)。 某人编写下面的程序用此公式计算并输出的近似值: Private Sub Cornmand1 Click() P1=1 Sign=1 n=20000 For k=3 To r Sign=-Sign PI=PI+SiRn/k Next k Print PI*4 End Sub 运行后发现结果勾3.22751,显然,程序需要修改。下面修改方案中正确的是()。
A.把For k=3 To n改为For k=1 To n
B.把n=20000改为n=20000000
C.把For k=3 To n改为For k=3 To n Step 2
D.把PI=1改为P1=0
若有以下窗体单击事件过程:Private SubForm_Click()
result=1
For i=1To 6 Step 3
result=result*i
Next i
MsgBoxresult
End Sub打开窗体运行后,单击窗体,则消息框的输出内容是()。
A.1
B.4
C.15
D.120
【程序说明】 统计2~M中有多少个素数(只能被1或自身整除的整数称为素数)。
【程序】
SET TALK OFF
CLEAR
INPUT “M=” TO M
S=0
(10)
IF SS(I)
S=S+1
?? STR (1,5)
ENDIF
ENDFOR
? STR(5,5)
SET TALK ON
FUNC SS
(11)
FOR J=2 TO X-1
(12)
EXIT
ENDIF
ENDFOR
IF J=X
RETU .T.
ELSE
(13)
ENDIF
ENDFUNC
(10)
A.DO WHILE I<M
B.FOR I=2 TO M/2
C.FOR I=M TO 1 STEP -1
D.FOR M=I TO 0 STEP-1
A.1# 2# 3#
B. ### ## #
C. # ## ###
D. 3# 2# 1#
假定有以下程序段: n=0 for i=1 to 4 for j=3 to -1 step -1 n=n+l next j next i运行完毕后n的值是()。
A.12
B.15
C.16
D.20