[单项选择]窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
ID As Integer
Name As String * 20
End Type
Private Sub command1 _ Click(
Open "c: /file. txt" for Input As
MaxSize = LOF (1)
for NextChar =MaxSize To Step-1
Seek #1, NextChar
MyChar=Input(1，#1)
Next NextChar
Print EOF(1)
Close #1
End Sub
程序运行后，单击命令按钮，其输出结果为______。
A. True
B. False
C. 0
D. Null

更多"窗体上画一个命令按钮，然后编写如下代码：Private Type Re"的相关试题:

[单项选择]窗体上画一个命令按钮，然后编写如下代码：Private Type Record ID As Integer Name As String * 20End TypePrivate Sub command1 _ Click( Open "c: /file. txt" for Input As MaxSize = LOF (1) for NextChar =MaxSize To Step-1 Seek #1, NextChar MyChar=Input(1，#1) Next NextChar Print EOF(1) Close #1 End Sub程序运行后，单击命令按钮，其输出结果为______。
A. True
B. False
C. 0
D. Null

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
ID As Integer
Name As String *20
End Type
Private Sub Command1_Click（　）
Dim Maxsize, NextChar, MyChar
Open "d:/temp/female.txt" For Input As #1
Maxsize = LOF(1)
For NextChar = Maxsize To 1 Step -1
Seek #1, NextChar
MyChar = Input(1, #1)
Next NextChar
Print EOF(I)
Close 31
End Sub
程序运行后，单击命令按钮，其输出的结果为
A. True
B. False
C. 0
D. Null

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
ID As Integer
Name As String * 20
End Type
Private Sub Command1_Click（　）
Dim MaxSize，NextChar，MyChar
Open"D:/temp/female.txt"For Input As # 1
Max Size=LOF(1)
For Next Char=1 To MaxSize
Seek # 1，NextChar
MyChar=Input(1，# 1)
Next NextChar
Print EOF(1)
Close # 1
End Sub
程序运行后，单击命令按钮，其输出结果为 ______。
A. True
B. False
C. 0
D. Null

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
ID As Integer
Name As String*20
End Type
Private Sub Command1_Click（　）
Dim MaxSize.NextChar，MyChar
Open"D:/temp/female.txt"For Input As #1
MaxSize=LOF(1)
For NextChar=1 To MaxSize
Seek#1，NextChar
MyChar=Input(1，#1)
Next NextChar
Print EOF(1)
Close #1
End Sub
程序运行后，单击命令按钮，其输出结果为 ______。
A. True
B. False
C. 0
D. Null

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下代码:
Private Type Record
ID As Integer
Name As String * 20
End Type
Private Sub Command1_Click（　）
Dim MaxSize, NextChar, MyChar
Open “d:/temp/female. txt” For Input As #1
MaxSize = LOF(1)
For NextChar = MaxSize To 1 Step -1
Seek #1, NextChar
MyChar = Input(1, # 1)
Next NextChar
Print EOF(1)
Close #1
End Sub
程序运行后,单击命令按钮,其输出结果为______。
A. True
B. False
C. 0
D. Null

查看答案

[填空题]在窗体上画一个命令按钮，然后编写如下程序(假定变量x是—个窗体级变量) Dim x As Integer Sub inc(a AS Integer) X=K+a End Sub Private Sub Command1_Click（　） inc2 inc3 inc4 Prmt x； Ead Sub 程序执行后，单击Command1命令按钮，输出的结果是【11】。

查看答案

[单项选择]在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim Save All As String Private Sub Command1_Click（　） Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 ______。
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错

查看答案

[单项选择]在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As String
Private Sub Form_Load（　）
Show
Text1.Text=" "
Text1.SetFocus
End Sub
Private Sub Command1_Click（　）
Text1.Text = Ucase(SaveAll)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错

查看答案

[填空题]在窗体上画一个命令按钮，然后编写如下程序：(假定变量x是一个窗体级变量) Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Command1_Click（　） inc 2 inc 3 inc 4 Print x； End Sub 程序执行后，单击Command1命令按钮，输出的结果是【11】。

查看答案

[填空题]在窗体上画一个命令按钮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)
an(4)=x
End If
Me.Print(an(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【10】。

查看答案

我来回答:

提交