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

搜题

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

提问人：网友policecdc 发布时间：2022-01-07

[主观题]

窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属

性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。

Private Sub Form_Load（）

For i=1 To 100

If i Mod 7 =0 Then

________

End If

End Sub

Private Sub Command1_Click（）

Sum = 0

For i = 0 To ________

Sum = Sum + ________

Text1.Text = Sum

End Sub

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

更多“窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属”相关的问题

第1题

设列表框的名称是List1.下列错误的语句是（）

A. list1.list（1）=str（List1.ListCount）

B. form1.caption=list1.list（1）

C. list1.list（0）=”Visualbasic”

D. list1.listcount=100

点击查看答案

第2题

窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如图所示）：还有2个文本框，名称分别为Text1、Text2, 1个名称为 Command1的命令按钮，并有以下程序

Private Sub Command1_Click（）

Dim str As String, s As String, k As Integer

s=Text1

Str=””

For k=List1.ListCount-1 to 0 Step-1

If InStr（List.List（k）,s）>0 then

str=str&List.List（k）&” ”

End If

Next k

If str=””Then

Text2=”没有匹配的项目”

Else

Text2=str

End If

End Sub

程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（）。

A．京

B．北京南京

C．南京

D．没有匹配的项目

点击查看答案

第3题

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

PrivateSubForm_Load()

List1.AddItem"357"

List1.AddItem"246"

List1.AddItem"123"

List1.AddItem"456"

Text1.Text=""

EndSub

PrivateSubList1_DblClick()

a=List1.Text

Printa+Text 1.Text

EndSub

程序运行后，在文本框中输入"789"，然后双击列表框中的"456"，则输出结果为()

A.456789

B.789456

C.111315

D.101315

点击查看答案

第4题

设菜单中有一个菜单项为\"Open\"。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行\"Open\"命令，则在菜单编辑器中设置“Open\"命令的方式是（）。

A．把Caption属性设置为&Open

B．把Caption属性设置为O&pen

C．把Name属性设置为&Open

D．把Name属性设置为O&pen

点击查看答案

第5题

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

Private Sub Command1_Click（）

Static x As Integer

Cls

For i=1 To 2

y=y+x

x=x+2

Print x,y

End Sub

程序运行后，连续三次单击Command1按钮后，窗体上显示的是（）。

A．4 2

B．12 18

C．12 30

D．4 6

点击查看答案

第6题

在窗体上画一个命令按钮，名称为Commandl，然后编写如下代码： Option Base 0 Private Sub Commandl_Click() DimA(4)As Integer,B(4)As Integer Fork=0 To 2 A(k+1)=InputBox(“请输入一个整数”) B(3-k)=A(k+1) Nextk PrintB(k) End Sub 程序运行后，单击命令按钮，在输入对话框中分别

A．0

B．2

C．3

D．4

点击查看答案

第7题

使用PublicConst语句声明一个全局的符号常量时，该语句应放在()。

A．过程中

B．窗体模块的通用声明段

C．标准模块的通用声明段

D．窗体模块或标准模块的通用声明段

点击查看答案

第8题

下面程序的运行结果是()。 Private Sub Commandl_Click() a=1.5 b=1.5 Callfun(a,B) Printa,b End Sub Private Subfun(x,y) x=y*y y=y+x End Sub

A．2．25 1.5

B．1.5 2.25

C．2.25 3.75

D．0.75 1.5

点击查看答案

第9题

下列能正确输出2,345.67的语句是()。

A．Print Format$(2345.668，"00000.00#)"

B．PrintFormat$(2345.668，"#，###.##")

C．PrintFormat$(2345.668，"0,0000．00")

D．PrintFormat$(2345.668，"#####.##")

点击查看答案

第10题

下列叙述中正确的是______。

A．双击鼠标可以触发load事件

B．移动鼠标时会触发MouseMove事件

C．窗体或控件的事件的名称可由编程人员确定

D．任何情况下，调用对象的方法时，对象的名字不可省略

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

2024年怎么快速提升学历哪些方法速度快 2024年初中学历升专科大概要多少钱考哪些内容自考英语专业考试科目一览表具体考哪几门 2024年自考会计大专科目及考试时间安排 2024年4月甘肃自考成绩查询入口已开通海南2024年10月自考本科需要什么学历条件及要求广西2024年10月自考报考条件及要求有哪些湖南2024年10月自考本科的条件有哪些有什么限制 2024自考文凭怎么考最全报考流程分享 2024年自考考试时间安排表开考时间是几月

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次