VB考试参考答案及评分标准_第1页
VB考试参考答案及评分标准_第2页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、1/ 4一、单项选择题(本大题共20小题，每小题1分，共20分)1-5：DBABD 6-10：BBDBB 11-15：DBDCA 16-20：ADCCC二、填空题(本大题共10小题10空，每空2分，共20分)21设计、运行和中断模式22(AMod 10)*10 + A 1023Int(Rnd*10110)24X2 AND X=825.(2+X*Y)/(2-y5)26Picture1.picture=loadpicture( )27.3028.Const str as string=”123”29.变量30.组合框三、写出程序运行结果题(本大题共42/ 4小题，每题5分，共20分）31.Else

2、分支（5分）32111（5分）332055（5分）34125（5分）四、程序填空题（本大题共2小题，每小题10分，共20分）35.Terval=1000（5分）Label1.caption=time（5分）36参考答案及评分标准5-i（5分）Print（5分）五、编程题（本大题共2小题，每题10分，共20分）37参考答案及评分标准：For i = 1 To 100（2分）3/ 4s = 0（2分）For j = 1 To （2分）If i Mod j = 0Thens = s + j（2分）End IfNext jIf s = i Then Print i（2分）Next i3

3、8参考答案及评分标准：Private sub command1_click（）Dim str as stringDim num1%,num2%, num3% ,le%Num1=0Num2=0Num3=0Le=len（text1.text）（2分）For i=1to le（2分）Str=mid（text1.text, I, 1）（2分）Select case str（1分）Case“a“To“z“,“A“To“ZNum1=num1+14/ 4Case“0“To“9“Num2=num2+1Case elseNum3=num3+1（2分）End selectNextPrint英“文字符个数为Print数“字字符个数为Print其“它字符个

人人文库> 全部分类> 行业资料 > 信息产业

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论