更多"下列程序段在窗体上输出______，在立即窗口中输出______。 "的相关试题:
[填空题]下列程序段在窗体上输出______，在立即窗口上输出______。
S1="software"
S2="hardware"
S3="computer"
Print Right(S1, 3)
Picture 1. Print Mid(S2，2，4)
Debug. Prim Left(S3，2)
[填空题]下列程序段在窗体上输出______，在立即窗口中输出______。
S1="software"
S2="hardware"
S3="computer"
Print Right(S1, 3)
Picture1.Print Mid(S2, 2, 4)
Debug.Print Left(S3, 2)
[填空题]下列程序段在窗体上输出______，在立即窗口中输出______。
S1="software"
S2="hardware"
S3="computer"
Print Right(S1,3)
Picture1.Print Mid(S2,2,4)
Debug.Print Left(S3,2)
[填空题]
以下程序段在窗体上输出 [12] ，在图片框中输出name，在立即窗口中输出 [13]
。
A="your"
B="aname"
C="iscr"
PrintRight(A,3)
Picturel.PrintMid(B，2，4)
Debug.PrintLeft(C，2)
[单项选择]窗体上有一个名为List1的列表框，程序执行时在窗体上单击，输出的结果是( )。
Priate Sub Form_Click（ ）
For i=0 To List1．ListCount-1
If i Mod 2=0 Then
Print List1．List(i)；
End If
Next i
End Sub
Private Sub Form_Load（ ）
List1．AddItem"中国"
List1．AddItem"日本"
List1．AddItem"韩国"
List1．AddItem"新加坡"
List1．AddItem"香港"
End Sub
A. 中国韩国
B. 日本新加坡
C. 中国韩国香港
D. 中国日本韩国新加坡香港
[单项选择]程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。 Private Sub Command1_Click（ ） Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End Sub
A. 32
B. 28
C. 30
D. 36
[填空题]下列程序实现的功能是：在窗体上单击时，将在窗体上输出c:=a1.txt文件中的所有小写字母。
Private Sub Form Click（ ）
Dim Ch As String * 1
Open "c:/a1.txt" For Input As #10
Do While 【8】
Ch= Input(1, #10)
If 【9】 Then
Print Ch;
End If
Loop
【10】
End Sub
[单项选择]以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。
Private SubForm_Click（ ）
Dim a As Integer，b As Integer
a=10 ：b=20
Call ff(a，B)
Print a，b
End Sub
Private Sub ff(x As Integer，y As Integer)
x=x+y
y=x+y
End Sub
A. 30 50
B. 30 30
C. 20 20
D. 10 20
[填空题]下列程序实现的功能是：当在窗体上单击时，将在窗体上输出c:/a1．txt文件中的所有小写字母。
Private Sub Form_Click（ ）
Dim Ch As String*1
Open"c:/a1．txt"For Input As #10
Do While 【13】
Ch=Input(1，#10)
If 【14】 Then
Print Ch；
End If
Loop
【15】
End Sub
[单项选择]要改变窗体上文本框控件的输出内容，应设置的属性是
A. 标题
B. 查询条件
C. 控件来源
D. 记录源
[填空题]以下程序的功能是在立即窗口中输出100～200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command2_Click（ ）
Dim i%，j%，k%，t% ’t为统计素数的个数
Dim b AS Boolean
For i=100 T0 200
b=True
k=2
J=Int(Sqr(i))
Do While k＜=j And b
If i Mod k=0 Then
b= (12)
End If
k= (13)
Loop
If b=True Then
t=t+1
Debug.Print i
End If
Next i
Debug.Print"t="；t
End Sub
[填空题]
以下程序的功能是在立即窗口中输出100到200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
PrivateSubCommand2_Click（）
Dimi%，j%，k%，t%‘t为统计素数的个数
DimbAsBoolean
Fori=100To200
b=True
k=2
j=Int（Sqr（i））
DoWhilek<=jAndb
IfIModk=0Then
b=（？）
EndIf
k=（？）
Loop
Ifb=TrueThen
t=t+1
Debug.Printi
EndIf
Nexti
Debug.Print"t="；t
EndSub
