1.选择题- (共13题)
4.
某电费清单如下图所示
其中，本月应缴电费＝(本月表数—上月实数)×单价，为了运用填充柄进行快速计算，应在E2单元格输入( )。
| | A | B | C | D | E |
| 1 | 租户 | 上月表数 | 本月表数 | 单价 | 本月应缴电费 |
| 2 | 101 | 34 | 82 | 1.2 | |
| 3 | 102 | 17 | 183 | 1.2 | |
| 4 | 201 | 28 | 185 | 1.2 | |
| 5 | 202 | 49 | 188 | 1.2 | |
| 6 | 301 | 38 | 196 | 1.2 | |
| 7 | 302 | 59 | 176 | 1.2 | |
其中，本月应缴电费＝(本月表数—上月实数)×单价，为了运用填充柄进行快速计算，应在E2单元格输入( )。
| A．= (82-34)*1.2 | B．= (C2-B2)*D2 |
| C．=SUM ((C2-B2)*D2) | D．= ($C$2-$B$2)*$D$2 |
6.
很多地方都可以看到由黑白两色图案组成的二维码，只要用手机摄像头对着二维码扫一下，手机就可以跳转到相关的网站或者显示出二维码图像中包含的信息，这是利用了人工智能的 ( )
| A．图像识别技术 |
| B．语音识别技术 |
| C．指纹识别技术 |
| D．数字高清技术 |
7.
下列能表示“x和y”都不为零的表达式是( )。
| A．(x< >0) And (y< >0) | B．X< >0, y< >0 |
| C．(x< >0) Or (y< >0) | D．X< >0: y< >0 |
2.填空题- (共3题)
14.
个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：
Sub Command1_Click( )
Dim i As Integer, n As Integer
m = 106
n = ____________
Do While m <= 996
If _____________ Then n = n + 1m = _____________
Loop
Text1.Text = Str(n)
End Sub
15.
下面这个程序实现了把一个十进制数转换成八进制数。
(1)要是按钮命令显示文本改为“转换”可在属性窗口中__________属性的属性值改为“转换”。
(2)为实现上述功能，请在划线处填入合适代码。
(1)要是按钮命令显示文本改为“转换”可在属性窗口中__________属性的属性值改为“转换”。
(2)为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click( )
Dim n, m As Integer
Dim ch, s As String
s = "01234567"
____________________
ch = ""
Do While n > 0
m = n Mod 8
__________________
n = n \ 8Loop
Text2.Text = ch
End Sub
16.
有一个单击按纽过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请补充下面的程序：
Dim count As Integer ' count用来保存能被6整除余2的数据的个数
Randomize Timer ' 随机数初始化，以时钟为随机数种子
Private Sub command1_click( )
Dim X, N As IntegerDim count As Integer ' count用来保存能被6整除余2的数据的个数
Randomize Timer ' 随机数初始化，以时钟为随机数种子
For N = 1 To 50
X = ___________ + int(Rnd * 40) ' 随机产生50个60～100的随机数
If X Mod 6 = 2 Then
List1.AddItem Str(X)
_______________
End IfNext N
Label1.Caption = str (count)End Sub
试卷分析
-
【1】题量占比
选择题:(13道)
填空题:(3道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：16