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

搜题

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

提问人：网友aoyoudeyu 发布时间：2022-01-06

[主观题]

在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其他

一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。以下是Command1_Click事件过程的两种算法

算法1：

Private Sub Command1_Click（）

CommonDialog1.ShowOpen

Open CommonDialog1.FileName For Input As#1

End Sub

算法2：

Private Sub Command1_Click（）

CommonDialog1.ShowOpen

IfCommonDialog1.FileName＜＞””Then

Open CommonDialog1.FileName For Input As#1

End If

End Sub

下面关于这两种算法的叙述中正确的是（）。

A．显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会

B．显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会

C．两种算法的执行结果完全一样

D．算法1允许输入的文件名中含有空格，而算法2不允许

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

查看官方参考答案

更多“在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其他”相关的问题

第1题

（6）在窗体上有1个名称为Command 1的命令按钮，并有如下事件过程和函数过程：Private Sub Command 1

(6）在窗体上有1个名称为Command 1的命令按钮，并有如下事件过程和函数过程：

Private Sub Command 1_Click()

Dim p As Integer

p＝m(1）＋m(2)＋m(3）

Print p

End Sub

Private Function m(n As Integer) As Integer

Static s As Integer

For k＝1 To n

s＝s＋1

Next

m=s

End Function

运行程序，单击命令按钮Command 1的输出结果为【6】。

点击查看答案

第2题

设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是（）。A．C

设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是（）。

A．Combo1.RemoveItem Combo1.Text

B． Combo1.RemoveItem4

C． Combo1.RemoveItem Combo1.ListCount

D． Combo1.RemoveItem5

点击查看答案

第3题

窗体上有1个名称为CD1的通用对话框，1个名称为Commandl的命令按钮。命令按钮的单击事件过程如下：Pr

窗体上有1个名称为CD1的通用对话框，1个名称为Commandl的命令按钮。命令按钮的单击事件过程如下： Private Sub Commandl_Click() CD1.FileName="" CD1.Filter="AllFiles|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CD1.FilterIndex=2 CD1.Action=1 End Sub 关于以上代码，错误的叙述是()。

A．执行以上事件过程，通用对话框被设置为“打开”文件对话框

B．通用对话框的初始路径为当前路径

C．通用对话框的默认文件类型为*.Txt

D．以上代码不对文件执行读写操作

点击查看答案

第4题

窗体上有1个过程为CD1的通用对话框，1个名称为Command1晌命令按钮。命令按钮的单击事件过程如下： P

窗体上有1个过程为CD1的通用对话框，1个名称为Command1晌命令按钮。命令按钮的单击事件过程如下： Private Sub Command1_Click() CD1.FileName=" " CD1.Filter="All Files|*.*|(*.DoC)|*.Doc|(*.Txt)|*.Txt" CD1.FilterIndex=2 CD1.Action=1 End Sub 关于以上代码，错误的叙述是______。

A．执行以上事件过程，通用对话框被设置为“打开”文件对话框

B．通用对话框的初始路径为当前路径

C．通用对话框的默认文件类型为*.Txt

D．以上代码不对文件执行操作

点击查看答案

第5题

在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时

，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是（）。

A．Private Sub Command1_Click（）

Text1.Left=100

End Sub

B．Private Sub Command1_Click（）

Text1.Left= Text1.Left-100

End Sub

C．Private Sub Command1_Click（）

Text1.Move.Text.Left+100

End Sub

D．Private Sub Command1_Click（）

Text1.Move.Text.Left

End Sub

点击查看答案

第6题

在考生文件夹下有一个工程文件sjt3．vbp，窗体上有一个标题为“计算”的命令按钮，1个标题为“1!＋2!＋…＋

在考生文件夹下有一个工程文件sjt3．vbp，窗体上有一个标题为“计算”的命令按钮，1个标题为“1!+2!+…+10!=”的标签。请画1个名称为Text1，初始内容为空的文本框，如图所示。程序功能：单击“计算”命令按钮，则计算“l!+2!+…+10!”的值，并将结果显示在Textl文本框中。请将“计算”命令按钮的Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。

在考生文件夹下有一个工程文件sjt3．vbp，窗体上有一个标题为“计算”的命令按钮，1个标题为“1!

点击查看答案

第7题

窗体上有一个名称为text1的文本框，名称为check1的两个复选框构成的控件数组，下标分别为1、2。窗体外观如图所示。

窗体上有一个名称为Text1的文本框，名称为Check1的两个复选框构成的控件数组，下标分别为1、2。窗体外观如图所示。要求在程序运行时，改变复选框选中状态，则文本框中文本的字体做相应变化。为此，某人编写了如下程序代码： Private Sub Check1_Click(Index As Integer) If Index = 1 And Check1(1).Value Then Text1.FontItalic = True Else Text1.FontItalic = False End If If Check1(2).Value = 1 Then Text1.FontBold = True End If If Check1(2).Value = 0 Then Text1.FontBold = False End If End Sub 但是，以上程序在运行中不能完全达到要求，应进行修改，下面正确的修改是_______________。

A、将If Index=1 And Check1(1).Value Then 改为If Check1(1).Value Then

B、将第1个If条件中的Check1(1).Value 改为Check1(1).Value = True

C、将第2个If条件中的Check1(2).Value = 1 改为Check1(2).Value = True

D、将第3个If条件中的Check1(2).Value = 0改为Check1(2).Value = False

点击查看答案

第8题

设窗体上有1个名称为List1的列表框，程序运行时，如果选中了第3个列表项（最上面的列表项为第0个列

A.A.List1.Selected（List1.ListIndex）的值为True

B.B.List1.Selected（3）的值为True

C.C.List1.List（3）的值为Tme

D.D.List1.ListIndex的值为3

点击查看答案

第9题

设窗体上有1个名称为HScroll1的水平滚动条，其Max、Min属性分别设置为100、1；有2个名称分别为Option

1、Option2的单选按钮，其标题分别为"30"、"50"；还有下面程序代码： Private Sub Option1_Click() HScroll1 = Val(Option1.Caption) End Sub Private Sub Option2_Click() HScroll1 = Val(Option2.Caption) End Sub 程序运行时，单击Option2单选按钮，则滚动条上滚动框的位置是_______________。

A、在最左边

B、在最右边

C、在中间

D、在中间偏左的位置

点击查看答案

第10题

窗体上有名称为text1和text2的文本框各一个，编写以下程序段，当单击窗体时运行的效果为()PrivateSubForm_Click()Text1.SelStart=0Text1.SelLength=8Text2.Text=Text1.SelTextEndSub

A.text1中选择了9个字符(从第0个到第8个字符)

B.text1中选择了8个字符(从第1个到第8个字符)

C.text2中显示9个字符

D.以上说法都不正确

点击查看答案

第11题

窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击事件过程

如下：

Private Sub Command1_Click（）

CD1.FileName=""

CD1.Filter="All Files|*.*|（*.Do

CD1|*.Doc|（*.Txt）|*.txt"

CD1.FilterIndex=2

CD1.Action=1

End Sub

关于以上代码，错误的叙述是（）。

A．执行以上事件过程，通用对话框被设置为“打开”文件对话框

B．通用对话框的初始路径为当前路径

C．通用对话框的默认文件类型为*.Txt

D．以上代码不对文件执行读写操作

点击查看答案

账号：尚未登录

登录没有账号？去注册

购买搜题卡

考试指南全部 >

2024年10月自考需要满足什么条件与要求 2024年南大自考本科含金量高吗考哪些内容 50岁拿到自考学历还有用吗有没有含金量 2024年自考本科考试时间公布具体是几月几号 2024全国各省10月自考考试安排汇总江西自学考试专业科目一览表自考专业有哪些 2024年湖南怎么报名自考本科学历报考流程是什么自考时间10月几号具体是什么时候 2024年10月成人自考考试科目一共考几门自考专业好就业吗要怎么选择

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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

备注：网站、APP、小程序均支持文字搜题、查看答案；语音搜题、单题拍照识别、整页拍照识别仅APP、小程序支持。

2. 使用语音搜索、拍照搜索等AI功能需安装APP（或打开微信小程序）。

3. 搜题卡过期将作废，不支持退款，请在有效期内使用完毕。

找回账号密码

联系在线客服

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

- 微信扫码关注简答题 -

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

- 微信扫码关注简答题 -

下载APP

关注公众号

TOP