1.填空题- (共3题)
1.
(1)区域F4:F8中的数据是对F3单元格进行自动填充功能得到。则F8单元格中的公式是_________。
(2)如b图所示的图表制作过程中应该同时被选择的数据范围是______和E2:E5。

(3)选择区域A2:F8后,对其中数据以图c所示的方式进行排序,则排序后E6单元格中的值为_______;排序后,图b所示图表的将________(选填:A.不会变 / B.会变)。
小王收集了近三年温州市主要农产品产量统计数据,并用Excel软件进行数据处理,如图a所示。请回答下列问题:

(1)区域F4:F8中的数据是对F3单元格进行自动填充功能得到。则F8单元格中的公式是_________。
(2)如b图所示的图表制作过程中应该同时被选择的数据范围是______和E2:E5。

(3)选择区域A2:F8后,对其中数据以图c所示的方式进行排序,则排序后E6单元格中的值为_______;排序后,图b所示图表的将________(选填:A.不会变 / B.会变)。

2.
编写VB程序代码,实现如下功能:在文本框Text1中输入金额(整数)后,点击“转换”按钮Command1,则在文本框Text2中显示该金额的大写,程序运行界面如下图所示:

(1)要使窗体标题上显示的文本改为“人民币大小写”,可在其属性窗口中将_______属性的属性值改为“人民币大小写”。
(2)为了实现以上程序功能,使程序正常运行,请完善以下两处代码。
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 ____ then
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
(3)由上述算法可知,若在文本框Text1中输入“20”,则文本框Text3显示的结果为________。

(1)要使窗体标题上显示的文本改为“人民币大小写”,可在其属性窗口中将_______属性的属性值改为“人民币大小写”。
(2)为了实现以上程序功能,使程序正常运行,请完善以下两处代码。
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 ____ then
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
(3)由上述算法可知,若在文本框Text1中输入“20”,则文本框Text3显示的结果为________。
3.
实现上述功能的VB程序如下:
Private Sub Command1_Click()
Dim a(1 To 1000) As String '数组a存储文中出现该指定单词(或字符串)的各个位置
Dim s As String, c As String ,ch As String
Dim n As Integer, max As Integer, i As Integer
s = Text1.Text
c = Text2.Text
n = 0: Max = 0
For i = 1 To Len(s) - Len(c) + 1
ch = ①
If ch = c Then
n = n + 1
a(n) = i
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text = ②
End Sub
以上程序段运行时,为了实现上述功能,划线处①和②应填入的代码分别为:
(1)_______________________________; (2)_______________________________
(加试题)小明编写了一个VB程序,功能如下:在文本框Text1中输入一段英文,并在文本框Text2中输入英文段落中的某个单词(或字符串),单击“最大间距”按钮(Command1)后,在文本框Text3中显示该单词在文中某两次出现的最大间距,若只出现一次或不出现则显示值为0。程序运行界面如下图所示:

实现上述功能的VB程序如下:
Private Sub Command1_Click()
Dim a(1 To 1000) As String '数组a存储文中出现该指定单词(或字符串)的各个位置
Dim s As String, c As String ,ch As String
Dim n As Integer, max As Integer, i As Integer
s = Text1.Text
c = Text2.Text
n = 0: Max = 0
For i = 1 To Len(s) - Len(c) + 1
ch = ①
If ch = c Then
n = n + 1
a(n) = i
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text = ②
End Sub
以上程序段运行时,为了实现上述功能,划线处①和②应填入的代码分别为:
(1)_______________________________; (2)_______________________________
试卷分析
-
【1】题量占比
填空题:(3道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:3