- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
virtual basic题库
一.1. 如果在窗体中执行以下操作:
a=7 : b=10
Print (ab)
则输出结果是_____c__。
A. False
B. 1
C. True
D. -1
2. 如果要在命令按钮上显示图片,必须先将____d_____属性设置为1,然后为picture属性加载一幅图片。
A. Index
B. Enable
C. Visible
D. Style
3. 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是
Private Sub Command1_Click( d)
n = Text1.Text
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case 10
x = 40
End Select
Text2.Text = x
End Sub
A. 10
B. 20
C. 30
D. 40
4. VB6.0是一种面向(b)的编程环境。
A. 机器
B. 对象
C. 过程
D. 应用
5. 下列程序的执行结果为 C
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=12: y=20
Call Value(x, y)
Print x; y
End Sub
Private Sub Value(ByVal m As Integer, ByVal n As Integer)
m=m * 2: n=n - 5
Print m; n
End Sub
A. 20 12
20 15
B. 12 20
12 25
C. 24 15
12 20
D. 24 12
12 15
6. 如果要改变窗体的标题信息,则要设置的属性是: c
A. BACKCOLOR
B. BorderStyle
C. Caption
D. name
7. 在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:
Private Sub Form_Load()
Text1.Text=””
Text1.SetFocus
For i=1 To 9
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是不 A
A. 出错
B. 在文本框Text1中输出45
C. 在文本框Text1中输出0
D. 在文本框Text1中输出不定值
8. 下列语句用来设置Form1的属性,其中在运行时不能正确操作的语句是________B______.
A. Form1.Caption=Form Test
B. Form1.Name=Form Test
C. Form1.MaxButton=False
D. Form1.MinButton=False
9. 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
c1 =1234
For I = 1 To 4
Print B____
Next I
End Sub
程序运行后,单击命令按钮,要求在窗体上显示如下内容
1
12
123
1234
则在下划线处应填入的内容为
A. Right(c1,i)
B. Left(c1,i)
C. Mid(c1,I,1)
D. Mid(c1,I,i)
10. 下面语句正确的是___A____。
A. If x3*y And xy Then y=x^3
B. If x3y And xy Then y=3x
C. If x3y : xy Then y=x^3
D. If x3*y And xy Then y=x* *3
11. 有一个计数程序:
Private Sub Command1_Click()
Dim counter1 As Integer
Static counter2 As Integer
Counter1=counter1+5
Counter2=counter2+5
Print counter1;counter2
End
运行后,单击命令按钮10次,其结果是:C__。
A. 1 5
B. 1 50
C. 5 50
D. 50 50
12. 表达式Left(how are you,3)的值是(A)
A. how
B. are
C. you
D. how ar
您可能关注的文档
- MFC常用控件.ppt
- Unit11(SectionB学案).doc
- VB2003─2004 学年 第二学期A卷.doc
- VBA卷-06年.doc
- VB二级试题 2009年9月全国计算机等级考试二级VB笔试试题及答案.doc
- VB教学课件第5章.ppt
- vb期末试卷试题卷.doc
- VF 笔试题重点知识点总结版——手写版.doc
- VB考试题库 精炼 高效复习.doc
- visual basic 标签 与下拉框教程.ppt
- 仁爱八年级英语下册 Unit 5 Feeling Excited Topic 1 SectionD.doc
- 初二Unit9 Can you come to my party知识点归纳.docx
- 创建与编辑图表.ppt
- 九年级英语新目标 unit 9 section B period 1 上课稿.ppt
- 必修五 U-2 reading 2.ppt.ppt
- 江苏省计算机vfp二级等级考试2007春vfp笔试及答案.doc
- 仁爱版八年级英语教学课件Unit 3 Topic 3 Section B.ppt
- 八上Unit10SectionBPeriod1.ppt
- 江西计算机二级试卷1.doc
- 第1章 软件技术概论.ppt
最近下载
- (高清版)DB42∕T 2382-2025 《社区居家养老服务机构安全应急规范》.docx VIP
- 消防基层指挥员如何做好初战控火指挥.pptx
- EN IEC 63118-1-2024 用于汽车启动、照明、点火(SLI)应用和辅助用途的12V 锂离⼦⼆次电池 第1部分:一般要求和测试方法中文版.pdf
- 《人工智能通识基础》全套教学课件.pptx
- AutomotiveSPICE_V4.0_中文版(最新版).pdf VIP
- 工程机械焊接结构图.ppt VIP
- 2025年宜昌当阳市招聘工会协理员考试笔试试题[含答案].pdf VIP
- 中职劳动教育教学课件专题四教学课件.pptx VIP
- 财务报表分析(第6版)全套PPT课件.pptx
- 双减课题小学数学作业分层设计的策略研究课题开题报告与结题报告.pdf VIP
文档评论(0)