VB模拟题目十答案.docVIP

  1. 1、本文档共9页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB模拟题目十答案

《计算机水平考试模拟试题十》(VB) 一、选择题(40分,共25题) 1、 [单选题]执行下列代码的结果是_______。 Private Sub Command1_Click() Dim a(10) For I = 1 To 10 a(I) = I * 10 Next I Print a(I) End Sub (A)、 110 (B)、 10 (C)、 100 (D)、 数组下标越界 2、 [多选题]在Visual Basic中,下面的4个语句语法中正确的有______。 (A)、 x=Log(0) (B)、 x=Sqr(0) (C)、 x=Sin(0) (D)、 x=Sgn(0) 3、 [单选题]执行下面的语句后,分别输入1和2,输出结果是__________。 Private Sub Form_Click() a = InputBox(1) b = InputBox(2) Print a + b + 1 End Sub (A)、 13 (B)、 a+b+1 (C)、 4 (D)、 12 4、 [多选题]从键盘上输入一个实数nu,利用字符串函数对该数进行处理。程序输出结果可能为___________。 Private Sub Command1_Click() nu=InputBox(nu=) n$=Str$(nu) P=InStr(n$,.) If p0 Then Print Mid$(n$,p) Else Print END End If (A)、 只去掉数据中的小数点,保留所有数字输出 (B)、 输出数据的小数部分 (C)、 输出数据的整数部分 (D)、 利用字符方式输出数据nu (E)、 输出内容为END 5、[单选题]为了把焦点移到某个指定的控件,所使用的方法是_____________。 (A)、 GetFocus (B)、 SetFocus (C)、 Visible (D)、 Refresh 6、 [单选题]修改控件属性,一般可以使用属性窗口,也可以通过__________为属性赋值。 (A)、 命令 (B)、 代码 (C)、 对象 (D)、 方法 7、 [单选题]可以将VB的控件分为三种类型,__________不属于这三种类型。 (A)、 对象控件 (B)、 内置(标准)控件 (C)、 外来控件 (D)、 ActiveX控件 8、 [单选题]执行下列程序,从键盘输入10,运行结果是_________。 Private Sub Command1_Click() S=InputBox(请输入一个数字:) Select Case S Case Is0 Print 0 Case Is3 Print 3 Case Is5 Print 5 End Select End Sub (A)、 3 (B)、 0 (C)、 出错 (D)、 5 9、 [多选题]当窗体上画一个名称为List1的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是__________。 (A)、 Private Sub List1_Click() : Label1.Caption=List1.listIndex : End Sub (B)、 Private Sub List1_Click() : Label1.Name=List1.text : End Sub (C)、 Private Sub List1_Click() : Label1.Caption=List1.text : End Sub (D)、 Private Sub List1_Click() : Lab

文档评论(0)

qwd513620855 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档