logo

您所在位置网站首页 > 海量文档  > 教学课件 > 中学语文

2011VB一模试题与答案.doc 17页

本文档一共被下载: ,您可全文免费在线阅读后下载本文档。

  • 支付并下载
  • 收藏该文档
  • 百度一下本文档
  • 修改文档简介
全屏预览

下载提示

1.本站不保证该用户上传的文档完整性,不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值,立即自动返金币,充值渠道很便利
特别说明: 下载前务必先预览,自己验证一下是不是你要下载的文档。
  • 上传作者 xcs88858(上传创作收益人)
  • 发布时间:2017-07-15
  • 需要金币200(10金币=人民币1元)
  • 浏览人气
  • 下载次数
  • 收藏次数
  • 文件大小:225 KB
下载过该文档的会员
2011VB一模试题与答案
你可能关注的文档:
2011VB一模 1、填空题(本题共计36分) 1、已知K=2,J=3,A=True,则VB表达式(K-J<=K)AND(NOT A)OR(K+J>=J)的值为 _____。 2、表示"A和B之一为零但不同时为零"的VB表达式为______ 。 3、能正确产生[1,30]之间的随机整数的表达式是 ________ 。 4、表达式Fix(-48.65)+Int(-52.15)的值是________。 5、A的绝对值大于等于B同时不等于C的表达式是____(1)____. 6、下面程序运行后,输出的结果为____(1)____。 Private Sub Command1_Click( ) ?? dim x$, y$, z$ ??? x = "NANJING" ??? y = "BASIC" ??? z = "INPUT" ??? z = InStr(Left(x,2)+Right(y,2),z) ??? Print?? z End Sub 7、A=7,B=3,C=4,则表达式 A MOD 3+B^3/C\5的值为______。 8、语句Print "125+32=";125+32执行后,窗体上打印结果是_______ . 9、下列程序执行时,要求输入一个密码,如果密码不正确则显示出非法用户的对话框。请填空: Const PassWord= Dim inpass As String Inpass=_______("请输入你的密码","输入密码") If inpass=PassWord Then ?????????? End Else ?????????? _______"对不起!你是非法用户",vbOKOnly+vbCritical,"拒绝" End If 10、InputBox函数返回值的类型为_________。 11、下面程序的功能是统计随机产生的10个三位正整数中偶数与奇数的个数,并求出该10个数的总和。请将程序补充完整。 Option Explicit Private Sub Form_Click() ?? Dim x%, s1%, n1%, n2%, i% ?? Randomize ?? For i = 1 To 10 ????????? x= __(1)____ ????????? Print x; ????????? If x Mod 2 = 0 Then ???????????????????? ___(2)___ ????????? else ???????????????????? n2 = n2 + 1 ????????? End If ????????? s=s+x ??? Next i ??? Print ????Print"奇数个数:";n1;"偶数个数为:";n2;"和为";s End Sub 12、宰相达依尔(国际象棋的发明者)想赢得象棋格子的麦子的故事大家都很熟悉,其麦子颗粒数的计算公式为: sum = 1+2+2^2+2^3+2^4+2^5+...+2^63,相应的计算程序如下,请将程序补充完整。 Private Sub Command1_Click( ) ???????? Dim x As Single, n As Integer, sum As Single ???????? Sum = 0 ???????? For? n = 0 To 63 ????????????????? x =___(1)____ ?????????????????____(2)______ ???????? Next? n ???????? Print "麦子的总颗粒数为:";Sum End Sub 13、下列程序执行后,打印结果是______ 。 Option Explicit Private Sub Command1_Click( ) ???? Dim i As Integer,sum As Integer ???? sum = 0 ???? For i = 3 To 100 ????????????? If i Mod 3 = 0 And i Mod 11 = 0 Then?? sum = sum + i? ???? Next i ???? Print sum End Sub 14、运行下面程序,单击窗体后在窗体上显示的第一行结果是____;第二行结果是____;第三行结果是__(3)__。 Private Sub Form_Click() ??? Dim i As Integer, s As Integer ??? For i = 1 To 10 ?????????? s = s + i ?????????? If s >10 Then ??????????????????? Prin

发表评论

请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
用户名: 验证码: 点击我更换图片

“原创力文档”前称为“文档投稿赚钱网”,本站为“文档C2C交易模式”,即用户上传的文档直接卖给(下载)用户,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有【成交的100%(原创)】。原创力文档是网络服务平台方,若您的权利被侵害,侵权客服QQ:3005833200 电话:19940600175 欢迎举报,上传者QQ群:784321556