更多"下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数"的相关试题:
[填空题]下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。
Private Sub form_ Click（ ）
Dim Ch As String * 1
Dim n As Integer
Open "c:/a1. txt" for Input As #10
do while 【7】
Ch = Input(1, #10)
if 【8】 then
n=n+1
End if
Loop 【9】
Close #10
End Sub
[填空题]下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。
Private Sub form_ Click（ ）
Dim Ch As String * 1
Dim n As Integer
Open "c:/a1. txt" for Input As #10
do while 【7】
Ch = Input(1, #10)
if 【8】 then
n=n+1
End if
Loop 【9】
Close #10
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复制到D盘，并取名为 a2.txt，请填宁。
Private Sub form_ Click（ ）
Dim Ch As String
Open "c:/a1. txt, for 【8】 As #10
Open "d:/a2.txt" for Output As #20
do while 【9】
Line Input #10, Ch
【10】
Loop
Close 10
Close 20
End Sub
[单项选择]程序代码如下，当单击窗体上的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 i As Integer,k As Integer
Dim a(9) As Integer,p(2)As Integer
k=5
For i=0 To 9
a(i)=i
Next i
For i=0 To 2
p(i)=a(i*(i+1))
Next i
For i=0 To 2
k=k+p(i)*2
Next i
Print k
End Sub
A. 20
B. 21
C. 22
D. 23
[单项选择]程序代码如下，当单击窗体上的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
[单项选择]窗体上没有任何控件，编写下列程序： Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(5, 2, 7, 6, 9) x = a(1) y = 1 If KeyAscii = 13 Then For i = 2 To 5 If a(i)＞m1 Then x = a (i) y= i End If Next i End If Print x; y End Sub 执行程序后，按下回车键后输出的结果为
A. 5 1
B. 9 5
C. 2 2
D. 7 3
[单项选择]下面程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form_Click（ ）
Dim I As Integer
Dim sum As Long
sum=0
For I=10 To 16
If I Mod 3=0 OrI Mod 5=0 Then
sum=sum+I
End If
Next I
Print sum
End Sub
A. 10
B. 12
C. 37
D. 22
[单项选择]窗体上没有任何控件，有下列程序：
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
a=Array(5，2，7，6，9)
x=a(1)
y=1
If KeyAscii=13 Then
For i=2 To 5
If a(i)＞m1 Then
x=a(i)
y=i
End If
Next i
End If
Print x；y
End Sub
执行程序后，按下回车键后输出结果为______。
A. 5 1
B. 9 5
C. 2 2
D. 7 3
[单项选择]以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。
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
[单项选择]执行下面的程序，单击窗体后在窗体上显示的结果是 ______。
Private Sub form_ Click（ ）
Dim Str1 As String, Str2 As String
Dim Str3 As String, I As Integer
Str1 = "e"
for I = t To 2
Str2 = Ucase (Str1)
Str1 = Str2 & Str1
Str3 = Str3 & Str1
str1 = Chr (Asc(Str1) + I)
Next I
Print Str3
End Sub
A. EeFF
B. eEfF
C. EEFF
D. eeFF
