首页 > 计算机应用技术> 网页设计与制作

网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

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

[主观题]

下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。 Private Sub fo

rm_ 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

答案

查看答案

发布时间：2022-12-04

更多“下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。 Private Sub fo”相关的问题

第1题

下列程序实现的功能是：当在窗体上单击时，将在窗体上输出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

点击查看答案

第2题

在程序的每个空白处填写一条适当的语句，使程序完成相应的操作。程序实现的功能是：窗体上有文本框T

ext1和若干复选框，其中复选框Check1设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下： Private Sub Check1_Click() If______ Then Text1.FontUnderline=Tree ElseIf______Then Text1.FontUndefiine=False End If End Sub

点击查看答案

第3题

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

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

A.正确

B.错误

点击查看答案

第4题

设有如下程序： 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

点击查看答案

第5题

设有如下程序： 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

点击查看答案

第6题

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

A.5511

B.s=55,i=11

C.555

D.s=11i=5

点击查看答案

第7题

在窗体上画一个名称为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

点击查看答案

第8题

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

A.0

B.1

C.True

D.False

点击查看答案

第9题

在窗体上创建一个名称为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程序设计”

点击查看答案

第10题

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

Private Sub Command1_Click（）

Dim a As Integer, s As Integer

a = 8

s = 1

s = s + a