首页 > 全部 > 二级VB > 国家二级VB机试(数据类型及运算)模拟试卷31

国家二级VB机试(数据类型及运算)模拟试卷31

本单篇文档共10695字,内容预览3600字,预览为有答案版,源文件无水印,下载后包含无答案空白卷版和有答案版,同时也有计算机类NCRE全国计算机二级整科真题模拟题,讲义课件,思维导图,易错高频题等下载。
二级VB 章节练习 7460人下载
价格: 1.00 原价:¥9.60
收藏

国家二级VB机试(数据类型及运算)模拟试卷31

选择题

1.窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:

Private Sub Textl_KeyUp(KeyCode As Integer,Shift As Integer)

Dim C As String

c=UCase(Chr(KeyCode)):Text2.Text=Chr(Asc(c)+2)

End Sub

当向文本框Text1中输入小写字母a时,文本框Text2中显示的是(C)

A. A

B. a

C. C

D. C

解析:本题考查的考点是有关字符转换函数的。UCase函数的功能为强制转成大写字母;Chr函数的功能是把整数按照ASCII码转换成字母;Asc函数的功能是把字母转换成对应的ASCII码。本题中变量c的值是大写字母“A”,最终结果是大写字母“C”。

2.窗体上有名称分别为Text1、Text2的文本框,名称为Commandl的命令按钮。运行程序,在Textl中输入“FormList”,然后单击命令按钮,执行如下程序:

Private Sub Commandl_Click()

Text2.Text=UCase(Mid(Text1.Text,5,4))

End Sub

在Text2中显示的是(D)

A. form

B. list

C. FORM

D. LIST

解析:Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串,UCase()函数用于将字符串中小写字母转化为大写字母,原本大写或非字母字符保持不变。

3.窗体上有1个名称为Commandl的命令按钮,事件过程如下:

Private Sub Commandl_Click()

m=-3.6

If Sgn(m)Then

n=Int(m)

Else

n=Abs(m)

End If

Print n

End Sub

运行程序,并单击命令按钮,窗体上显示的内容为(A)

A. -4

B. -3

C. 3

D. 3.6

解析:Int函数的作用是去返回不大于参数的最大整数,例如Int(4.6)=4,Int(一4.6)=一5;VB中的逻辑值True和False和整型值之间会自动进行类型转换,其中一1转换为True,0转换为False。本题中由于m为负数,所以Sgn(m)的值为一1,即条件为真,会返回不大于m的最大整数值即一4。

4.设有如下程序:

Private Sub Form_Click0

num=InputBox(”请输入一个实数”):P=InStr(num,”.”)

Ifp>0 Then

Print Mid(num,P+1)

Else

Print”END”

End If

End Sub

运行程序,单击窗体,根据提示输入一个数值。如果输入的不是实数,则程序输出“END”:否则(C)

A. 用字符方式输出该实数

B. 输出该实数的整数部分

C. 输出该实数的小数部分

D. 去掉实数中的小数点,保留所有数码输出

解析:字符串匹配函数Instr用于查找第二个参数在第一个参数中第一次出现的位置,若未找到返回0;Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串,若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找到小数点的位置,然后输出小数点后面的部分,即小数部分。

5.在窗体上画一个文本框,名称为Text1,然后编写如下程序:

Private Sub Form_Load()

Text1.Text=””:Textl.SetFocus

End Sub

Private Sub Form_Click()

Dim a As String,s As String

a=Text1.Text:s=””

For k=1 To Len(a)

s=UCase(Mid(a,k,1))+s

Next k

Text1.Text=s

End Sub

程序运行后,在文本框中输入一个字符串,然后单击窗体,则文本框中的内容(C)

A. 与原字符串相同

B. 与原字符串中字符顺序相同,但所有字母均转换为大写

C. 为原字符串的逆序字符串,且所有字母转换为大写

D. 为原字符串的逆序字符串

解析:Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串,UCasef)函数用于将字符串中小写字母转化为大写字母,原本大写或非字母字符保持不变。本题中在循环内每次取出第k位个字符并且连接到结果字符串的前面,所以结果字符串是源字符串的逆序字符串。

6.在窗体上画一个命令按钮,然后编写如下事件过程:

Private Sub Commandl_Click()

aS=InputBox(”请输入一个二进制数”)

n=Len(a$)

For i=1 To n

Dec=Dec*2+____(a$,i,1)

Next i

Print Dec

End Sub

程序功能为:单击命令按钮,将产生一个输入对话框,此时如果在对话框中输入一个二进制数,并单击“确定”按钮,则把该二进制数转换为等值的十进制数。这个程序不完整,应在横线处填入的内容是(D)

A. Left

B. Right

C. Val

D. Mid

解析:Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。本题中要将二进制数转换为十进制数,应该取出二进制数的每一位然后乘以位权。

7.以下程序的功能是随机产生10个两位的整数:

Option Base 1

Private Sub Commandl_Click()

Dim a(10)As Integer,i As Integer

Randomize

For i=1 To 10

a(i)=Int(Rnd*100)+1

Print a(i)

Next i

End Sub

运行以上程序,发现有错误,需要对产生随机数的语句进行修改。以下正确的修改是(B)

A. a(i)=Int(Rnd*100)

B. a(i)=Int(Rnd*90)+10

C. a(i)=Int(Rnd*100)+10

D. a(i)=

本文档预览:3600字符,共10695字符,源文件无水印,下载后包含无答案版和有答案版,查看完整word版点下载

剩余未完,查看全文
收藏
国家二级VB机试(数据类型及运算)模拟试卷31

推荐资源

客服

扫码添加客服微信

热线

官方客服

如遇问题,请联系客服为您解决

电话客服:

客服微信:pujinet

工作时间:9:00-18:00,节假日休息

公众号

扫码关注微信公众号