相关试卷
-
1、小婷编写了一个VB程序，实现如下功能，在文本框Text1中输入一个4位整数zs，单击解密按钮后，在List1列表框中显示当前zs值降序开始的10位相邻整数“解密前”和“解密后”的信息，运行界面如图所示。
解密规则：将整数中各个位中的每一位值乘以5，然后除以8所得余数即为该位的值，然后将所得数的首末位进行交换。如数字9357，解密后的值为3715。
(1)、观察程序代码，可知“解密”按钮的对象名是(2)、实现上述功能，请在划线处填入合适的代码。Private Sub Decryp_Click( )
Dim zs As Long, g As Integer
Dim b As Integer, q As Integer
Dim m As Integer, s As Integer
Dim jmh As String
zs = Val(Text1.Text)
For m = zs To
q = (m \ 1000) * 5 Mod 8
b = ((m \ 100) Mod 10) * 5 Mod 8
s = ((m \ 10) Mod 10) * 5 Mod 8
g = (m Mod 10) * 5 Mod 8
List1.AddItem Str(m) + " " + jmh
Next m
End Sub
(3)、由上述算法可知，四位数“6124”对应的解密数值是 -
2、编写“数字序列”程序，实现如下功能：在文本框Text1中输入[100,500]范围内的整数，单击“生成”按钮Command1，在列表框List1中显示9个该序列的数字。数字序列的生成规则为：该项的数字+该数百位上的数字+该数十位上的数字+该数个位上的数字=下一项的数字，例如：365+3+6+5=379。小明编写了VB程序，运行的界面如图所示，程序代码如下：
(1)、代码“Private Sub Command1_Click()”中的Command1_Click()是_________。（单选，填字母）A、对象名 B、事件 C、事件处理过程 D、方法(2)、为实现上述功能，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
List1.Clear
n = Val(Text1.Text)
If n >= 100 And n <= 500 Then
For i = 1 To 9
A．位置一
a = n \ 100
b = (n - 100 * a) \ 10
c = n Mod 10
B．位置二
Next i
C．位置三
Else
List1.AddItem "输入数值有误"
End If
D．位置四
End Sub
(3)、上述代码段中缺少了List1.AddItem Str(i) + "." + Str(n)，此句代码应该加在（填字母）位置。(4)、若输入的数字为123，则第三项的值为。 -
3、小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图1所示。阅读程序并完成后面的问题。
(1)、设计应用程序界面时，为添加a所指向的对象，应使用图2所示的“控件工具箱”中的 （填写相应编号）。
(2)、请根据题意将下列程序补充完整。Private Sub Command1_Click()
Dim i As Integer, j As Integer, c As Integer,n As Long
c = 0
n = 110800 + i
If Then
List1.AddItem Str(n) + " " + "5"
End If
Next i
Label2.Caption = "满足条件的数有：" + Str(c) + "组"
End Sub
-
4、编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击“计算累加和”按钮，在标签Label3中显示起始值与结束值之间所有奇数的累加和。界面如图所示。
(1)、在设计应用程序界面时，要将窗体的标题改为“计算累加和”，应将窗体的属性的值更改为“计算累加和” (填写相应属性名)。(2)、为实现上述功能，请在划线处填入合适代码。Private Sub Command1_Click()
Dim x1 As Integer，x2 As Integer，n As Integer
Dim sum As Long
x1＝Val(Text1.Text)
x2＝Val(Text2.Text)
Sum＝0
If x1<x2 Then n＝1 Else
For i＝x1 To x2 Step n
IfThen
sum＝sum＋i
Next i
Label3.Caption＝“从”& x1 &“到”& x2 &“之前所有奇数的累加和＝”& Str(sum)
End Sub
-
5、有如下VB程序段：
Dim a(1 To 10) As Integer，i As Integer，j As Integer
a(1)=1
a(2)=1
For i=3 To 5
a(i)=1
For j=i-1 To 2 Step -1
a(j)=a(j)+a(j-1)
Next j
Next i
Text1.Text=Str(a(3))
该程序段运行后，在文本框Text1中显示的内容是( )
A、1 B、3 C、4 D、6 -
6、已知存有6个数字的数组d，其数组元素如下表 ，则以下程序的输出结果为( )
A、-8 B、-6 C、9 D、12 -
7、单击窗体后，文本框Text1、Text2中显示的内容是( )
Private Sub Form_Click( )
Dim x as Integer, n as Integer
x=1
n=0
Do While x < 20
n=n+1
x=x * 3
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
A、27 3 B、3 27 C、20 3 D、3 21 -
8、有如下VB程序段：
Dim a(1 To 5) As Integer, i As Integer, c As Integer
a(1)=2:a(2)=1:a(3)=3:a(4)=4:a(5)=5
c=0
For i=3 To 5
If a(i-2)+a(i-1)=a(i) Then c=c+1
Next i
Text1.Text=Str(c)
该程序段运行后，文本框Text1中显示的内容是（ ）
A、1 B、2 C、3 D、4 -
9、某两段VB程序分别如图1和图2所示：
Dim n As Integer, s As Integer, i As Integer
n=Val(Text1.Text)
s=0
For i=1 To n Step 2
s=s+i
Next i
Text2.Text=Str(s)
图1
Dim n As Integer, s As Integer, i As Integer
n=Val(Text1.Text)
s=0
i=1
Do While i<=n
s=s+i
i=i+2
Loop
Text2.Text=Str(s)
图2
当n的值为10时，关于该两段程序，下列说法不正确的是( )
A、两段程序中i的初值相同 B、两段程序的运算结果不相同 C、两段程序都采用了循环结构 D、图1程序实现了“1＋3＋5＋7＋9”和的运算 -
10、有如下VB程序段：
Dim a As Integer, b As Integer, c As Integer, y As Integer
a=3:b=4:c=4
If a<=b And c<=a Then
y=a+b
ElseIf a<=b or b<=c Then
y=b+c
ElseIf b=c Then
y=a mod c
Else
y=a+b+c
End If
该程序段运行之后，变量y的值为（ ）
A、3 B、7 C、8 D、11 -
11、VB表达式9\8/2 + 12 Mod 3*3 -2^-2 的值是( )A、3.25 B、4.75 C、5 D、7
-
12、某文件夹下共有100张属性相同的BMP图片，共占用了约75MB的存储空间，已知图片的分辨率为1024*768，问这种图片包括多少种颜色（ ）A、8 B、16 C、256 D、512
-
13、使用UltraEdit软件观察字符“挑战AlphaGo！”的内码，部分界面如图所示。
下列说法正确的是（ ）A、字符“！”的内码占两个字节 B、字符“战”的十六进制码是“BD 41” C、字符“h”的二进制码是“01101000” D、字符“go”的十六进制码是“47 6F” -
14、在计算机内，有符号数有3种表示法：原码、反码和补码。
⑴原码就是二进制定点表示法，即最高位为符号位，“0”表示正，“1”表示负，其余位表示数值的大小；
⑵反码表示法规定：正数的反码与其原码相同；负数的反码是对其原码逐位取反，但符号位除外。如二进制原码10010，则反码11101(注：在10010中，左边的1为符号码，故为负)；
⑶补码表示法规定：正数的补码与其原码相同；负数的补码是在其反码的末位加1，符号位除外。
根据以上运算规则，二进制有符号数100011的补码的十进制表示是( )
A、－29 B、－4 C、－61 D、－36 -
15、下列有关信息的说法，错误的是( )A、现在很多智能手机有了指纹锁，是为了提升信息的安全性 B、人类在造纸术和印刷术产生之前，信息无法存储 C、公民身份证号和考生准考证号的编排，都属于信息的编码 D、不同的载体的可以承载同样的信息
-
16、编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:
(1)、为了实现以上程序功能，使程序正常运行，请完善以下两处代码。Private Sub Command1_Click()
Dim dx As String, dw As String
Dim s As String, c As String
Dim ch As String
Dim i As Integer
dx = "零壹贰叁肆伍陆柒捌玖拾"
dw = "亿仟佰拾萬仟佰拾元"
s = Text1.Text
If Len(s) > 9
Text2.Text = "输入的数据超出所能转换的范围"
Else
For i = 1 To Len(s)
ch =
c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)
Next i
Text2.Text = c + "整"
End If
End Sub
(2)、由上述算法可知，若在文本框Text1中输入“20”，则文本框Text3显示的结果为。 -
17、阅读以下程序，完成后面的题目：
Private Sub Command1_Click()
Dim N As Integer
Dim S As Integer
N = val(Text1.Text)
S = 0
For i = 1 To N
S = S + i * (i + 1)
Next i
Text2.Text = str(S)
End Sub
(1)、当程序运行时，在Text1文本框中输入4，单击按钮command1,结果在Text2输出。
(2)、在text1中输入10000，程序会出现什么错误？。(选填：要求对象/下标越界/无效的调用过程/溢出)
-
18、小李收集了2010年到2014年中国亚洲个别国家入境游信息。并用Excel软件进行数据处理，如图1所示。请回答下列问题：
图1
(1)、区域H4：H12中的数据时从H3单元格利用自动填充功能得到的。则H12单元格的公式是 。(2)、若要对表中数据以“2014年（万人次）”为关键字按降序进行排序，则排序时选择的数据区域是。
(3)、小李建立的图表如图2所示，其数据源是。
图2
(4)、如果把表格中近5年入境总人数前三名的国家筛选出来 ，上一题的图表会不会发生变化？
-
19、某超市经常使用Excel软件对饮料销售数据进行分析，界面如图1所示，请回答下列问题：
图1
(1)、正确计算各种饮料占销售总额百分比的值，需在H2单元格中输入公式（计算公式：占销售总额百分比=销售额（元）/销售总额（元）），并从H2单元格自动填充到H13单元格。(2)、设置数据区域H2：H13的百分比格式，操作步骤有：⒈在“分类”中选择“百分比”；
⒉在对话框中选择 “数字”选项卡；
⒊选定数据区域H2：H13；
⒋在选定区域内右击鼠标，并选择“设置单元格格式”命令；
⒌单击“确定”按钮。正确的操作顺序是：（填序号）
(3)、观察图2可知该图表类型是 ， 要得到该图表，需选择的数据区域是：
图2
-
20、某同学编写了如下VB程序段，运行后弹出下面的错误信息。则错误时所执行的语句是（ ）
Private Sub Command1_Click( )
Dim x As String, k As String, j As Integer
x = "XiaoWei" ①
k = "语文" ②
j = 90 ③
Text1.Text = x + k +j ④
End Sub
A、① B、② C、③ D、④