- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
200906V基础期末考卷答卷
浙江大学城市学院
2008 — 2009 学年第二学期期末考试试卷
《 VB语言程序设计基础 》
开课单位: 计算分院 ;考试形式:闭卷;考试时间: 2009 年 6 月17 日
所需时间:120 分钟
一、单选题(10%)
1.以下关于函数过程的叙述中,正确的是______A)只有函数过程能够将过程中处理的信息返回到调用程序中B)函数过程???。
C)当数组作为函数过程的参数时,既能以值方式传递,也能以传址方式传递????
D)如果不指明函数过程参数的类型,则该参数没有数据类型语句??dim?a(-3?to?4,3?to?6)as?integer?定义的数组的元素个数是______A)18????B)28????C)21?????D)32以下关系表达式中,其值为True的是______A)XYZXYzB)VisualBasicsualbasic
C)thethere D)Integer=Int
4.将图片框在窗体中向右移动位置,应修改该图片框控件的______属性。
A)) C))______。
A)show B)nexti C)e3_# D)4dm
6.要使两个单选按钮属于同一个框架,正确的操作是______A)先画一个框架,再在框架中画两个单选按钮B)先画一个框架,再在框架外画两个单选按钮,然后把单远按钮拖到框架中C)先画两个单选按钮,再画框架将单选按钮框起来D)以上三种方法都正确窗体上有一个用菜单编辑器设计的菜单(见图)。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。以下叙述中错误的______。
A)在设计“粘贴”菜单项时,在菜单编辑器窗口中设置了“有效”属性(有“√”)B)菜单中的横线是在该菜单项的标题输入框中输入了一个“-”(减号)字符C)在设计“选中”菜单项时,在菜单编辑器窗口中设置了“复选”属性(有“√”)D)在设计该弹出菜单的主菜单项时,在菜单编辑器窗口中去掉了“可见”前面的“√”_________ 属性。
A))))1的控件组成了控件数组,现在将其置为空串,正确的程序是_____。
A)For i = 0 To 1.Text(i) = :Next i
B)For i = 0 To (i).Text = :Next i
C)For i = 0 To 1(i).Text = :Next i
D)For i = 0 To 1.Text = :Next i
10.容器的_______属性可以用来设置所绘线条宽度。
A)) C))
运行界面如下图所示,在文本框Text1中输入一个正整数n并按回车键后,在Text2中输出结果,同时选中Text1中的内容,为下一次输入作准备。
【程序】
Private Sub (11)
Dim n As Long, m As Single, i As Integer
If k = 13 Then
n = Val(Text1.Text)
If n 0 Then
For i = 1 To n
m = m + 1 / fact(i)
Next i
Text2.Text = Str(m): (12)
Text1.SelLength = Len(Text1.Text) : text1.setfocus
End If
ElseIf k Asc(0) Or k Asc(9) Then
k = 0
Else
(13)
End If
End Sub
Private Function fact(ByVal x As Integer) As Single
Dim y As Single, i As Integer
y = 1: I=1
Do
y = y * i : i = i + 1
Loop (14)
(15)
End Function
【供选择的答案】
(11) A、Text1_KeyPress(k As Integer)B、Text1_KeyPress(k As Integer)
C、Text1_change(k As Integer)D、Text1_change(k As Integer)
(12) A、Text1.SelStart = 1B、Text1.SelStart = 0C、Text1.”” D、Text1””
(13) A、Exit Do B、end
您可能关注的文档
最近下载
- 电化学储能电站并网运行验收全套表格.pdf VIP
- T CAME 30-2021 复合手术室建设标准.docx VIP
- 内地新疆高中班学生转学、休学审核表.pdf VIP
- GBT 18015.1-2017 数字通信用对绞或星绞多芯对称电缆 第1部分:总规范.pdf
- TJAASS 151-2024 水稻碳足迹评价方法.pdf VIP
- 新解读《GB_T 18015.1-2017数字通信用对绞或星绞多芯对称电缆 第1部分:总规范》最新解读.docx VIP
- 2022年苏州大学计算机科学与技术专业《计算机网络》科目期末试卷B(有答案).docx VIP
- 检验科仪器设备故障应急预案.docx VIP
- (27页PPT)K12教师试岗培训工作安排及其说明.pptx VIP
- 保姆带小孩合同协议书例文.pdf VIP
原创力文档


文档评论(0)