题目内容（请给出正确答案）

[主观题]

下列程序实现的功能是：当在窗体上单击时，将在窗体上输出c:\a1．txt文件中的所有小写字母。 Pri

vate Sub Form_Click() Dim Ch As String*1 Open"c:\a1．txt"For Input As 10 Do While【】 Ch=Input(1，10) If【】Then Print Ch； End If Loop 【】 End Sub

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“下列程序实现的功能是：当在窗体上单击时，将在窗体上输出c:\…”相关的问题

第1题

程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是Click。()

程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是Click。（)

A.正确

B.错误

点击查看答案

第2题

设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim I As Integer a=Array(1,2,3,4,5,6,7,8,9) For I=0 To 3 Print a(5 - I); Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是()。

A.7654

B.6543

C.5432

D.4321

点击查看答案

第3题

设有如下程序： Option Base 0 Private Sub_Click（) Dim a Dim I As Integer a=Array（1，2，3，4，5，6，7，8，9) For I=0 To 3 Print a（5–I); Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是（)。

A.7654

B.6543

C.5432

D.4321

点击查看答案

第4题

阅读下面程序，当单击按钮Command之后。窗体上输出的是（)PrivateSubCommand1_Click（)DimiAsIntegerDimsAsIntegerx=0Fori=1To10s=s＋iNextiPrints,iEndSub

A.5511

B.s=55,i=11

C.555

D.s=11i=5

点击查看答案

第5题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（)x=-5 If x＞0 Then y=x∧2 Else y=x End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是（)。

A.-5

B.25

C.1

D.-1

点击查看答案

第6题

有如下VB程序：PrivateSubForm_Click（)DimiAsIntegeri=－Abs（－3)Mod2>－1PrintiEndSub当单击窗体时i的值是（)。

A.0

B.1

C.True

D.False

点击查看答案

第7题

在窗体上创建一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.T

ext=“” Text1.SetFocus End Sub Private Sub Form. _MouseUp(Button As Integer,Shift As Integer, X As Single, Y As Single) Print“程序设计”End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print“Visual Basic”; End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是()。

A.“程序设计”

B.“Visual Basic程序设计”

C.Visual Basic

D.“A程序设计”

点击查看答案

第8题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（）

Dim a As Integer, s As Integer

a = 8

s = 1

s = s + a

a = a－1

Loop While a ＜＝ 0

Print s; a

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是（）。

A.7 9

B.34 0

C.9 7

D.死循环

点击查看答案

第9题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是()。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num ＞ 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是()。

A.无数据输出

B.1 3.4 5.8

C.1 4 7

D.1 3 5

点击查看答案

第10题

在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

Private Sub Command1_Click（）

Dim x As Integer

Static y As Integer

x=10

y=5