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

[单选题]

在VBA中，编写下列程序：PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=0Elsefun=mEndIfEndFunctionPrivateSubtest()DimiAsInteger，sAsIntegers=0Fori=1To3s=s+fun(i)NextDebug.PrintsEndSubtest宏运行后，窗口上显示的是()。

A.1

B.2

C.3

D.4

查看答案

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

您可能会需要：

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

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

更多“在VBA中，编写下列程序：PrivateFunctionfu…”相关的问题

第1题

在窗体上画两个文本框，名字分别为Text1和Text2，然后编写下列程序。程序运行后，如果在文本框 Text2

中输入lmn，那么在文本框Text1中显示的内容将是【】。 Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress(KeyAseii As Integer) Text1.Text=Text1.Text+Chr(KeyAscii-5) End Sub

点击查看答案

第2题

在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Load（)

在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Load() Text1.Text="计算机" End Sub Private Sub Text1_Change() Picturel.Print"等级考试" End Sub 程序运行后，在文本框中显示的内容是【】，而在图片框中显示的内容是【】。

点击查看答案

第3题

在窗体上画一个文本框和—个图片框，然后编写如下两个事件过程： Private Sub Form_Click（)

在窗体上画一个文本框和—个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Text1.Text="VB程序设计" End Sub Private Sub Text1_Change() Picture1.Print"VB programming" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是【】，而在图片框中显示的内容是【】。

点击查看答案

第4题

在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click（) Textl.

在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：

Private Sub Form_Click()

Textl.Text="VB程序设计"

End Sub

Private Sub Textl_Change()

Picturel.Print"VB programming"

End Sub

程序运行后，单击窗体，则在文本框中显示的内容是【】，而在图片框中显示的内容是【】。

点击查看答案

第5题

编写一个过程把C盘中的Config. sys文件内容读出，并在文本框中显示出来。在窗体Form1建立一个文本

框Text1，将其MultiLine属性设置为True,将ScrollBars属性设置为3-Both。根据题意。请完善下列程序。 option Explicit Private Sub Form. C1ick() Dim chl As String, fn As Integer Dim Str As String fn=【】 Open "C:\Config. sys" For Input As fn Do While Not EOF(【】) Line Input fn, chl Str=Str+chl+vbCrLf Loop Text1. Text=【】 End Sub

点击查看答案

第6题

在窗体上画一命令按钮，编写如下事件过程： Private Sub Command1_Click（) Dim a=InputBox（"Enter FirstInteger") b=InputBox （"Enter SecondInteger") Print EndSub 程序运行，单击命令按钮，在对话框中输入456 和123，输出结果是（)

A.579

B.123

C.456

D.123456

点击查看答案

第7题

在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click（) Dim arr（)A

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

点击查看答案

第8题

在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click（) List1.

在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem 1：List1.RemoveItem2 List1.RemoveItem 3 End Sub Private Sub Form_Loab() List1.AddItem "ItemA ":List1.AddItem "Item B" List1.AddItem"Item C"：List1.AddItem "ItemD" List1.AddItem "ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中显示的项目是【】。

点击查看答案

第9题

在窗体上画一个标签（名称为Label1)和一个计时器（名称为Timer1)，然后编写如下几个事件过程：

在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程： Private Sub Form_Load() Timer1.Enabled=False Timer1.Interval=【】 End Sub Private Sub Form_Click() Timer1.Enabled=【】 End Sub Private Sub Timer1_Timer() Label1.Caption=【】 End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。请填空。

在窗体上画一个标签（名称为Label1)和一个计时器（名称为Timer1)，然后编写如下几个事件过程

点击查看答案

第10题

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程： Private Sub Form_Load

() Show Text1.Text="" Text2.Text="" Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) Text1.Text=Text1.Text+Chr(KeyCode-4) End Sub 程序运行后，如果在Text2文本框中输入“efghi”，则Text1文本框中的内容为【】。

点击查看答案

第11题

在窗体上画一个标签（名称为Label1)和一个计时器（名称为Timer1)，如图16－11所示，然后编写如下几个

在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，如图16-11所示，然后编写如下几个事件过程： Private Sub Form_Load() Timer1. Enabled=False Timer1. Interval=【】 End Sub Private Sub Form_Cliek() Timer1. Enabled=【】 End Sub Private Sub Timer1_Timer() Label1. Caption=【】 End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟改变一次。请填空。

在窗体上画一个标签（名称为Label1)和一个计时器（名称为Timer1)，如图16－11所示，然后