更多"下列程序段在窗体上输出______，在立即窗口中输出______。 "的相关试题:
[填空题]下列程序段在窗体上输出______，在立即窗口上输出______。
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 Y As Integer，I As Integer
Dim A(7)As Integer
Y=18：I=0
Do
A(I)=Y Mod 2
I=I+1
Y=Y/2
Loop Until Y＜1
For j=I-1 To 0 Step-1
Print A(j)；
Next j
End Sub
A. 1 0 0 0
B. 1 0 0 1 0
C. 0 0 1 1 0
D. 1 0 1 0 0
[单项选择]程序代码如下，当单击窗体上的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
[填空题]设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填写。
Dim______As Integer
Private Sub Form_Load（ ）
pos=HScroIII.Value
End Sub
Private Sub HScroIII_Change（ ）
Print______-pos
pos=HScroIII.Value
End Sub
[填空题]设窗体上有一个名称为Hscroll1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。
Dim (10) As Integer
Private Sub Form_Load（ ）
pos=HScroll1.Value
End Sub
Private Sub HScroll1_Change（ ）
print (11) -pos
pos=HScroll1.Value
End Sub
[填空题]下列程序实现的功能是：当在窗体上单击时，将在窗体上输出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
[填空题]下列程序实现的功能是：在窗体上单击时，将在窗体上输出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
[填空题]以下程序的功能是在立即窗口中输出100～200之间所有的素数，并统计输出素数的个数，请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command2_Click（ ）
Dim i%，j%，k%，t% ’t为统计素数的个数
Dim b AS Boolean
For i=100 To 200
b=True
k=2
j=Int(Sqr(i))
Do while k＜=j And b
If i Mod k=0 Then
b=______
End If
k=______
Loop
If b=True Then
t=t+1
Debug．Print i
End If
Next i
Debug．Print’t=’;t
End Sub
