- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB程序设计2022年春季学期期末考试⑵一、单项选择题(共40题,80分)
1、针对变量定义语句Dim st As String * 8,下面说法错误的选项是。(2. 0)A、声明一个字符串类型变量st
B、以8个字位,即一个字节位单位存储相应变量。
C、假设st中存储的字符个数缺乏8个,那么以空格填充。
D、st中可以填充汉字。
正确答案:B2、为了清除窗体上的一个控件,以下正确的操作是 o (2.0)
A、按回车键B、按Esc键
C、选择(单击)要清除的控件,然后按Del键D、选择(单击)要清除的控件,然后按回车键
正确答案:C3、如果要在窗体上使用两组单项选择按钮,每组都可以有一个被选中,那么应该做的是 o (2.0)
A、把1组单项选择按钮画在窗体的左边,另1组画在右边B、先画两组单项选择按钮,再画两个框架控件把两组单项选择按钮分别框起来
C、因为1个窗体中只有1个单项选择按钮可以被选中,所以需要使用两个窗体D、先画两个框架控件,再把两组单项选择按钮分别画在不同的框架中 正确答案:D
4、假设定义数组 Dim a(-5 to 28, 4) As Single,那么执行语句 Print Lbound (A) ;Ubound(a,1)后输出内容为 o (2.0)
A、 -5 28B、0 4
C、-5 4D、0 28 正确答案:A
5、下面不能作为结构化方法软件需求分析工具的是()。(2.0)A、系统结构图
B、数据字典(DD、C、数据流程图(DFD图)
Int(m)Else
n = Abs(m)End If
Print nEnd Sub
(2.0)正确答案:
第1空:-63、编写如下程序
Private Sub Command1_C1ick()Dim x As String, y As String
x = Right(abcdef”, 2)y = Mid(dcbaef”, 3, 3)
If x y ThenPrint x + y
ElsePrint y + x
End IfEnd Sub
程序运行后,单击命令按钮CommandL输出结果为
(2.0)正确答案:
第 1 空:efbae4、有如下程序:
Private Sub Form_Click()Dim s As Integer, p As Integer
P = 1For i = 1 To 5
For j = 1 To is. = s + j
Next jp = p * s.
Next iPrint p
End Sub程序运行后,单击窗体,那么输出结果是
(2.0)正确答案:
第 1 空:280005、运行以下程序,单击命令按钮后,如果用户从键盘上输入1、2、3、4、5、6,那么窗体上输出内容为
OPrivate Sub Commandl_Click()
Dim a() As Integer
Dim i As Integer, j As Integer
ReDim a(6)
For i = 5 To 10a(10- i + 1) = InputBox(input number)
.Next i
ReDim Preserve a(10)
adO) = a (3) + a (5)
Print a(10)End Sub
(2.0)正确答案:
第1空:66、假定在工程文件中有一个标准模块,其中定义了如下记录类型:
Type BooksName as String *10
TelNum AsString *20End Type
要求在执行事件过程Commandl_Click ()时,在顺序文件Person. txt中写入了 一条记录。将以下程序补充完毒。
Private Sub Command1_Click()Dim B As Books
Open C:\Person.txt For Random As #1B. name =InputBox (”请输入姓名”)
B. TelNum = InputBox(请输入 号码”)Write #1,
Close #1.
End Sub空格处应填入 o
(2.0)正确答案:
第1空:
B. Name, B. TelNum7、编写如下程序:
Private Sub Commandl_Click()Dim num As Integer
Dim k Aslnteger, n As Integernum =InputBox(“请输入一个正整数:“)
k = numn = 3
DoDo While num Mod n = 0
Print n;num = num / n
Loopn = n + 1.
Loop Until n k / 2End Sub
程序运行后,单击命令按钮Commandl,并输入数值30,那么输出结果为
(2.0)正确答案
您可能关注的文档
最近下载
- 部编版四年级语文上册期末复习1-8单元看拼音写词语(带答案).docx VIP
- T∕ZZB 1243-2019 66kV~220kV交流电缆用交联聚乙烯绝缘料.docx VIP
- 文化遗产数字化采集与数据库建设.docx VIP
- 部编版小学语文5上1-8单元(全册)看拼音写词语(巩固复习).pdf VIP
- 隔音声屏障工程设计方案(3篇).docx VIP
- 07MR403 城市道路-护坡.pdf VIP
- BCAT_0001—2018建设工程人工材料设备机械数据分类标准及编码规则 2018 207页.pdf VIP
- 食品安全事故应急处置培训.docx VIP
- (最新2025)三方抵账协议范本工程款抵房三方协议范本6篇.docx
- 老年患者营养评估与干预.pptx VIP
文档评论(0)