相关试卷
-
1、给出①Move Maker ②Excel ③Powerpoint ④Photoshop CS四种软件，依次完成统计图制作、图片剪裁、视频编辑，制作演示文稿，所选用的软件依次是（ ）A、①②③④ B、③①②④ C、②①④③ D、②④①③
-
2、打开“奇石的雅趣.doc”文档，按如下要求完成操作并保存文件。(1)、将正文所有字体设置为仿宋_GB2312、小四、绿色，并将正文所有段落设为首行缩进2字符，行距设为最小值18磅。(2)、将艺术字“小奇石大雅趣”的填充颜色设为金色。(3)、在文档的末尾插入图片“考生文件夹/55/qisi.jpg”，并将图片的环绕方式设为紧密型。
-
3、有如下VB程序段：
a(1)=20: a(2)=3: a(3)=21: a(4)=37
a(5)=62: a(6)=20: a(7)=13: a(8)=33
k=Abs(a(2)-a(1))
For i=3 To 8
If Abs(a(i)- a(i-1))>k Then k= Abs(a(i)-a(i-1))
Next
执行该程序段后，变量k的值为（ ）
A、7 B、17 C、25 D、42 -
4、将n个元素转换成(n\m)*m矩阵（n是m的倍数）。例如有42个元素，m=7，则可转换成6*7（6行7列）的矩阵转换示例如下：
转换前元素次序为：
12 2 5 3 6 9 4 10 8 5 6 9 6 3 5 8 11 2 8 9
转换为矩阵如下：
现要在矩阵中找一个规模为3*3的子方阵，使得该子方阵的各元素之和最大。
(1)、若n=25，m=5，则该矩阵中共有3*3的子方阵个数为。（填数字）(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Command1_Click()
Dim a(1 To 100) As Integer
Dim sum(0 To 101) As Long ‘sum(i)=a(1)+a(2)+a(3)+…+a(i)
Dim i As Integer, j As Integer, n As Integer, m As Integer, k As Integer
Dim ans As Long, begin As Integer, maxi As Integer
Dim maxsum As Long, s As String
n=Val(Text1.Text)
m=Val(Text2.Text)
If n Mod m <> 0 Then List1.AddItem “输入数据不符合要求”:Exit Sub
For i=1 To n
a(i)=Int(Rnd*50+1)
s=s+Str(a(i))
If i Mod m=0 Then List1.AddItem s:s=“”
Next i
k=3
sum(1)=a(1)
For i=2 To n ‘求sum(i)
Next i
maxsum=0
ans=0
For i=1 To n\m-k+1
For j=k To m
begin=(i-1)*m+j-k+1
maxsum=maxsum+sum(j+(i-1)*m)-sum(j-k+(i-1)*m)
maxsum=maxsum+(j+(i+1)*m)-sum(j-k+(i+1)*m)
If maxsum>ans Then ans=maxsum: maxi=begin
maxsum=0
Next j
Next i
s= “”
For i=1 To k
For j=1 To k
s=s+Str(a ())
Next j
List2.AddItem s
s=“”
Next i
List2.AddItem “maxsum=”+Str(ans)
End Sub
-
5、小新同学今天刚刚学习了循环结构，老师讲的例题是求5！，课后小新想求10！，结果他在老师的程序基础上修改后，却出现了如下图的错误（代码见下图），以下说法正确的是（ ）
Dim i As Integer ——1
Dim s As Integer ——2
s=1 ——3
For i=1 To 10
s=s*i ——4
Next i
Print s
A、1处改为Dim i As long B、2处改为Dim s As long C、3处改为s=0 D、4处改为s=s+i -
6、某同学用VB编写了一个应用程序，其程序代码窗口如图所示：
下列说法正确的是（ ）
A、该窗体中共设计了3个事件过程 B、当前信息显示在属性窗口中 C、当前正在编辑的是Form对象的Load事件 D、程序运行时，单击按钮Command1，没有任何显示内容 -
7、下列关于VB对象属性的叙述，正确的是（ ）A、标签中显示的文字存放在Text属性中 B、文本框的Caption属性可以设置文本框中显示的文字 C、在程序运行时，可以改变标签的Name属性 D、命令按钮的Caption属性可以设置按钮上显示的文字
-
8、删除字符串中的非字母字符，并查找出ASCII码值最大的字母。程序功能如下: 在文本框Text1中输入一个字符串，单击命令按钮Command1，在文本框Text2中显示删除非字母字符后的字符串，在文本框Text3中显示ASCII码值最大的字母，运行界面如图所示。
(1)、程序中的Command1_Click()属于。（单选，填代码:A ．对象名/B ．事件名/C ．属性名/D ．事件处理过程名）(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Command1_Click()
Dim result As String, s As String, c As String, cmax as string
Dim i As Integer, j As Integer
s = Text1.Text
Text2.Text = ""
For i = 1 To Len(s)
①
If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then
result =②
End If
Next i
Text2.Text = result
j = 2
cmax = Mid(result, 1, 1)
Do While j <= Len(result)
If Mid(result, j, 1) > cmax Then cmax = Mid(result, j, 1)
③
Loop
Text3.Text = cmax
End Sub
-
9、编写VB程序，实现如下功能：在文本框Text1中输入一个十进制整数，单击命令按钮Command1，在标签Label2上显示转换成十六进制数的结果，运行效果如图所示。
(1)、在设计程序界面时，要使按钮Command1上的文字显示为“转化成十六进制”，应修改按钮Command1的属性。(2)、为实现上述功能，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim y As Integer, r As Integer
Dim s As String, t As String
t = "0123456789ABCDEF"
s = ""
y = ①
Do While y > 0
r = y Mod 16
s = ②
y = ③
Loop
Label2.Caption = Text1.Text + "转化成十六进制数为：" + str(s)
End Sub
-
10、用于对窗体上的对象分组。
-
11、编写VB程序，实现如下功能：在文本框Text1中输入某一年份，单击“天干地支与生肖”按钮Command1，在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”，运行界面如图所示，程序代码如下。
(1)、代码“Private Sub Command1_Click()”中的Click是（单选，填字母：A 、对象名 B 、属性名 C 、事件名）(2)、为实现上述功能，请在划线处填入合适代码。Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim i As Integer, n As Integer
Dim c1 As String, s1 As String
Dim c2 As String, s2 As String
Dim c3 As String, s3 As String
List1.Clear
s1 = "甲乙丙丁戊己庚辛任癸"
s2 = "子丑寅卯辰巳午未申酉戌亥"
s3 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
n = Val(Text1.Text)
For i = n To ①
a = (i + 6) Mod 10
b = (i + 8) Mod 10
c1 = Mid(s1, a + 1, 1)
c2 = Mid(s2, b + 1, 1)
c3 = Mid(s3, b + 1, 1)
List1.AddItem ② + "年 " + c1 + c2 + " " + c3
Next i
End Sub
① ②
(3)、由上述算法可知，2024年对应的“天干地支”为 ， “生肖”是。 -
12、在Visual Basic工程设计中，要在文本框Text1中显示“你好”，则下列操作正确的是（ ）A、在Text属性名中输入“你好” B、在Caption属性名中输入“你好” C、在Font属性名中输入“你好” D、在Name属性名中输入“你好”
-
13、下列关于“控件”属性的说法正确的是( )A、单击窗体中的某控件，在属性窗口中的属性列表框中找到所要设置的属性，即可设置其属性值。 B、所有对象都具有同样的属性 C、控件的属性只能在设计时设置，不能在运行时修改 D、控件的每一个属性都具有同样的默认值
-
14、(二进制转十六进制)从文本框TextB输入一串不带符号位的二进制整数，单击“转换”按钮，将二进制转换为十六进制并显示在文本框TextH中。程序界面如图所示：
转换方法：先从右往左将二进制数分割成 4 位一组，若最左边的一组不足4位，则用 0 将高位补足，然后将每 4 位二进制数转换为 1 位十六进制数。
(1)、观察程序代码，可知“转换”按钮的对象名为。（单选，填字母：A ．TextB/ B .TextH/B ．Command1/C ．Convert/D ．转换）(2)、为实现上述功能，请在划线处填入合适的代码。Private Sub Convert_Click()
Dim a(1 To 100) As Integer, temp As Integer
Dim s As String, res As String, n As Integer, r As Integer
res = ""
s=TextB.text
n = Len(s)
For i = 1 To n
a(i) = Val(Mid(s, i, 1))
Next i
t = n \ 4
r = ①
temp = 0
For i = 1 To r ‘将最高的r位转换为十六进制
②
Next i
If temp > 9 Then
res = Chr(temp + 55)
ElseIf temp > 0 Then
res = CStr(temp) ‘Cstr()函数用于将数值转换为字符串，同时删除前导空格
End If
For i = 1 To t ‘将t组4位二进制转换为十六进制
Temp=0
For j=1 to 4
temp = temp+a(j+r+4*(i-1))*2^(4-j)
Next j
If temp > 9 Then
res = res + Chr(temp + 55)
Else
res = res + CStr(temp)
End If
Next i
TextH.Text = res
End Sub
第①处代码为
第②处代码为
(3)、若在文本框 TextB 中输入“101000111”，则单击“转换”按钮后的输出结果为:。 -
15、如图所示是VB窗体中某个对象的属性窗口，下列说法中正确的是( )
A、True是该对象的属性名 B、该对象名为Text1 C、该对象属于标签类 D、BackColor是该对象的属性值 -
16、赋值语句y = x的功能是________。A、x的值赋给y，x的值变为0 B、y的值赋给x，y的值变为0 C、y的值赋给x，y保留原来的值 D、x的值赋给y，x保留原来的值
-
17、（加试题）若数组元素d(1)到d(8)的值依次为“86,75,58,46,20,18,12,5”，查找某Key值的VB程序段如下：
n = 0 : i = 1 : j = 8
Key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
If Key = d(m) Then Exit Do 'Exit Do表示退出循环
If Key > d(m) Then
j = m - 1 : n = n - 1
Else
i = m + 1 : n = n + 1
End If
Loop
Label1.Caption = Str(n)
当输入不同的Key值，运行该程序段后，在标签Label1中显示的不同结果共有（ ）
A、5种 B、6种 C、7种 D、8种 -
18、运行程序时，Text1. text=“”语句会被自动执行，可以将该语句嵌入的过程是（ ）A、Command1_click B、Form_load C、Text1_click D、Timer1_timer
-
19、Visual Basic规定窗体文件的扩展名是（ ）。A、.for B、.frm C、.vbp D、.bas
-
20、以下属于输入函数的是（ ）。A、inputBox B、Print C、MsgBox D、Aate