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

[主观题]

下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1!+2!+3!+…+10!”的和。 Private Su

b Form_Click() Dim s As Long,i As Integer s=0 For i=1 To 10 s=s+【】 Next i Print s End Sub Private Function fact(ByVal n As Integer)As Long Dim i As Integer,f As Long f=1 For i=2 To n f=f*i Next i 【】 End Function

查看答案

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

您可能会需要：

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

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

更多“下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1…”相关的问题

第1题

下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示"1 ! +2! +3! +...+1 0 ! "

下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示"1 ! +2! +3! +...+1 0 ! "的和。完善下列程序。

Private Sub Form_Click()

Dim s As Long,I As Integer

s=0

For i=1 To 1 0

s=s+()

Next i

Print s

End Sub

Private Function fact(ByVal n As Integer)As Long

Dim i As Integer,f As Long

f=1

For i=2 To n

f=f*i

Next i

()

End Function

点击查看答案

第2题

下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的

数的和(素数是指只能被1和它本身整除的数)，并在窗体上把这两个和显示出来。 Private Sub Form_Click() Dim s1 As Long，s2 As Long Dim i As Integer For i=3 To 1000 If prime(i) Then s1=s1+i Else If【】Then s2=s2+i End If Next i Print s1，s2 End Sub Public Function prime(ByVal n As Integer)As Boolean Dim j As Integer For j=2 To n-1 If n Mod j=0 Then Exit For End If Next j If j=n Then 【】 Else prime=False End If End Function

点击查看答案

第3题

窗体中有两个命令按钮：“显示”（控件名为CmdDisplay)和“测试”（控件名为CmdTest)。单击“测试”按钮时，

窗体中有两个命令按钮：“显示”(控件名为CmdDisplay)和“测试”(控件名为CmdTest)。单击“测试”按钮时，执行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮。否则退出。根据题意，请完善下列程序。 Private Sub CmdTest_Click() Answer=【】 ("隐藏按钮") IF Answer=vbOK then CmdDisplay. visible=【】 Else End End IF End Sub

点击查看答案

第4题

当Form的KeyPrivew参数为True时，在窗体的控件上单击则不会发生Form_Click事件。（)

点击查看答案

第5题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubcommand1clickIfx＞0Theny=x^2ElseEndIfPrintyEndsub程序运行后，单击命令按钮，窗体上显示的是（)。

A.-5

B.25

C.-1

D.1

点击查看答案

第6题

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

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

点击查看答案

第7题

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

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

点击查看答案

第8题

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

k() Dim a As Integer，s As Integer a＝8 s＝1 Do S=s+a a=a-1 Loop While a＜=0 Prim s，a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．7 9

B．34 0

C．9 7

D．死循环

点击查看答案

第9题

设有如下记录类型： Type student Number As String*10 Name As String*8 End Type 窗体中有

若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据题意，请完善下列程序。 Private sub Command1_click() Dim stu As student Open "C:\file, dat" For Random As 1 Len=Len(【】) Title $="写记录到随机文件" Str1 $="请输入学生名" Str2 $="请输入学生名" For i=1 To 5 stu. Number=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) 【】1, i, stu Next i Close【】 End Sub

点击查看答案

第10题

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

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是()。

A．4

B．5

C．6

D．7

点击查看答案

湘ICP备20004669号-2 营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）