更多"下列程序实现的功能是：当在窗体上单击时，将输出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
Ch = Input(1, #10)
if then
n=n+1
End if
Loop
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 【13】 As #10
Open "d：/a2．txt" For Output As #r20
Do While 【14】
Line Input #10,Ch
【15】
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
[单项选择]窗体上没有任何控件，编写下列程序： 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
Dim t1 As Long
t1=1:sum=0
For 1=1 To 3
t1=t1*I
sum=sum+t1
Next I
Print sum
End Sub
A. 3
B. 9
C. 5
D. 6
[单项选择]窗体上没有任何控件，有下列程序：
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
[填空题]在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Cliek（ ）
Dim arr（ ）As Integer
Re Dim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox("请输入一个数字：")
IfVal(x)＞4 Then
Rc Dim arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
[填空题]在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim arr（ ）As Integer
ReDim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox("请输入一个数字：")
If Val(x)＞4 Then
ReDim arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
