VB练习题含答案
第一部分
1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：
①随机产生20个0到1000的整数，将其放入一个一维数组中
②求出所有元素的平均值，并显示在窗体上(如下图所示)
Private Sub Cmd1_Click()
Dim a%(19), i%, sum!, aver!
Randomize
For i = 0 To 19
a(i) = Int(Rnd * 1001)
sum = sum + a(i)
Next i
aver = sum / 20
Print aver
End Sub
2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()
Dim ch As String, ch1 As String, i%
ch = Text1
For i = 1 To Len(ch)
If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then
ch1 = ch1 + LCase(Mid(ch, i, 1))
Else
ch1 = ch1 + UCase(Mid(ch, i, 1))
End If
Next i
Text1 = Text1 + vbCrLf
Text1 = Text1 + ch1
End Sub
3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作：
①随机产生30个0～1000的整数，将其放入一个一维数组中
②求出其中的最大值，并显示在窗体上。
Private Sub MyCmd1_Click()
Dim a%(29), i%, max%
Randomize
For i = 0 To 29
a(i) = Int(Rnd * 1001)
Next i
max = a(0)
For i = 1 To 29
If a(i) > max Then max = a(i)
Next i
Print max
End Sub
4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
Private Sub Command1_Click()
If = True Then
= "宋体"
Else
= "隶书"
End If
If = 1 Then
= True
Else
= False
End If
If = 1 Then
= True
Else
= False
End If
End Sub
5 在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为"对齐方式"、"字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为"左对齐"、"居中"、"右对齐"，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单选按钮，标题分别为"宋体"、"黑体"，名称分别为Opt4、Opt5。
要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。
Private Sub Opt1_Click()
If Opt1 Then = 0
End Sub
Private Sub Opt2_Click()
If Opt2 Then = 2
End Sub
Private Sub Opt3_Click()
If Opt3 Then = 1
End Sub
Private Sub Opt4_Click()
If Opt4 Then = "宋体"
End Sub
Private Sub Opt5_Click()
If Opt5 Then = "黑体"
End Sub
6 请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。
Dim n%
Private Sub Form_Load()
End Sub
Private Sub Option1_Click()
Dim i%
n = Val(Text1)
m = 1
For i = 1 To n
m = m * i
Next i
Text2 = m
End Sub
Private Sub Option2_Click()
Dim i%
m = 1
For i = 1 To n + 2
m = m * i
Next i
Text2 = m
End Sub
7 在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。程序运行时，在
第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击"统计"命令按钮，统计第二个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数，统计结果在标签Label3中显示。
Private Sub Command1_Click()
Dim i%, n%
For i = 1 To Len(Text1)
If Mid(Text1, i, 1) = Text2 Then n = n + 1
Next i
Label3 = n
End Sub
Private Sub Label3_Click()
End Sub
8 在窗体上添加一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0～200范围内能被3或7整除的所有整数的和，并显示在文本框中。程序运行界面如下图所示。
Private Sub Command1_Click()
Dim i%, sum%
For i = 0 To 200
If i Mod 3 = 0 Or i Mod 7 = 0 Then sum = sum + i
Next i
Text1 = sum
End Sub
Private Sub Text1_Change()
End Sub
9 请设计如下图所示界面(文本框名称为：Txt1，按钮名称为：Cmd1)。程序运行时在文本框中输入字符串，点击命令按钮，判断文本框中的字符串是否是回文，将判断结果显示在窗体上。所谓回文是指字符串正序和逆序的结果相同，如“aBCCBa”是回文，“aBCcBa”不是回文。
Private Sub Cmd1_Click()
Dim ch As String
For i = Len(Txt1) To 1 Step -1
ch = ch + Mid(Txt1, i, 1)
Next i
If Txt1 = ch Then
Print Txt1 + " 是回文"
Else
Print Txt1 + " 不是回文"
End If End Sub
Private Sub Form_Load()
End Sub
10 编程实现求!
n 1......3121!11++++=
！！Sum (n 为小于等于20的整数)。程序运行界面如下图所示。程序运行时，在文本框中输入n 的值，点击“计算”命令按钮，
将计算结果显示在标签上。
Private Sub Command1_Click() Dim i%, m As Long, sum As Double n = Val(Text1) m = 1
For i = 1 To n m = m * i
sum = sum + 1 / m Next i
Label2 = "sum=" & sum End Sub
Private Sub Form_Load()
End Sub
第二部分
1 已知在同一个笼子里有总数M只鸡和兔，鸡和兔的总脚数为N只，编程求出鸡和兔各有多少只。要求：程序运行后，在两个文本框中分别输入M和N的值，单击“计算”命令按钮，在两个标签框中分别输出鸡和兔的数量。程序运行界面如下图。提示：N≥2×M的偶数。
Private Sub Command1_Click()
m = Val(Text1)
n = Val(Text2)
If n Mod 2 <> 0 Then
MsgBox ("脚数必须为偶数")
Text2 = ""
Else
y = n / 2 - m
If y < 0 Then
MsgBox ("脚数必须>=只数的2倍，请重新输入")
Text2 = ""
Else
x = m - y
Label3 = x
Label4 = y
End If
End If
End Sub
Private Sub Form_Load()
End Sub
2 若一个3位正整数中各位数字的立方和等于该数字本身，则该数称之为“水仙花数”。例如153是水仙花数，因为 15
3 = 1*1*1 + 5*5*5 + 3*3*3。编程求出100～999之间所有的“水仙花数”。要求：程序运行后，单击“查找”按钮，在窗体上显示找到的“水仙花数”。程序运行界面如下图。
Private Sub Command1_Click()
Print "水仙花数：";
For i = 100 To 999
X1 = i Mod 10 '分离出个位数
X2 = (i Mod 100) \ 10 '分离出十位数
x3 = i \ 100 '分离出百位数
If i = X1 ^ 3 + X2 ^ 3 + x3 ^ 3 Then Print i;
Next i
End Sub
Private Sub Form_Load()
End Sub
3 编写程序，要求程序运行后，单击“开始”按钮，随机产生20个学生的成绩(0～100的整数)，并在左边图片框中输出 (一行5个成绩)，并在右边图片框中输出平均分和及格的人数，程序运行界面如下图。
Private Sub Command1_Click()
Dim a(1 To 20) As Integer, i%, n%
For i = 1 To 20
a(i) = Int(Rnd * 101)
a(i);
If i Mod 5 = 0 Then
If a(i) >= 60 Then n = n + 1
Sum = Sum + a(i)
Next i
"平均分："; Sum / 20
; "及格人数："; n
End Sub
Private Sub Picture2_Click()
End Sub
4 编写程序实现：程序运行时，单击窗体则显示如下图所示的图案。
Private Sub Form_Click()
For i = 1 To 5
Print Tab(10 - i); String(2 * i - 1, "*")
Next i
For i = 1 To 4
Print Tab(5 + i); String(9 - 2 * i, "*")
Next i
End Sub
5 编程实现：在窗体中有一个文本框，一个计时器和两个命令按钮。其功能是：程序的运行时，单击“开始计数”按钮，就开始计数，每间隔1秒，文本框中的数增加1；单击“停止计数”按钮，则计数停止。
Private Sub Command1_Click()
= True
End Sub
Private Sub Command2_Click()
= False
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
Text1 = Val(Text1) + 1
End Sub
'在属性窗口设置定时器的interval属性值为1000
6 以下程序运行界面如下图所示。其功能如下：
1) 单击"读数据"按钮(Command1)，可将随机产生100个三位正整数存到数组a中；
2) 单击"计算"按钮(Command2)，则根据从组合框Combo1中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。
题目提供的程序代码不完整，请设计下图界面并录入代码，将程序中的 ? 改为正确的内容。注意：不能修改程序的其他部分。
题目提供的程序代码：
Dim a(100) As Integer
Private Sub Command1 Click()
Dim n As Integer
For n = 1 To 100
a(n)=Int(Rnd * ? )
Next n
End Sub
Private Sub Command2 Click()
Dim x& ,y& , z& ,i% , j% , k%
For i = 1 To 100
If a(i) Mod ? Then
x = x + a(i)：j = j + 1
Else
y = y + a(i)
?
End If
Next k
x = Int(x / j + ：y = Int(y / k +
z = Int((x + y) / (j + k) +
Select Case
Case "所有偶数"
Text1 = ?
Case "所有奇数"
Text1 = ?
Case "所有数"
Text1 = ?
End Select
End Sub
Dim a(1 To 100) As Integer
Private Sub Command1_Click()
Dim n As Integer
For n = 1 To 100
a(n) = Int(Rnd * 900 + 100)
Next n
End Sub
Private Sub Command2_Click()
Dim x&, y&, z&, i%, j%, k%
For i = 1 To 100
If a(i) Mod 2 = 0 Then
x = x + a(i): j = j + 1
Else
y = y + a(i): k = k + 1
End If
Next i
x = Int(x / j + : y = Int(y / k +
z = Int((x + y) / (j + k) +
Select Case
Case "所有偶数"
Text1 = x
Case "所有奇数"
Text1 = y
Case "所有数"
Text1 = x + y
End Select
End Sub
'在combo1的属性窗口设置list属性，添加列表项
Private Sub Label1_Click()
End Sub
7 编写程序。要求：程序运行后，单击“开始”按钮，则随机产生20个2位数输出到窗体上，每行10个数。同时对所产生的20个数从小到大排序，将排序后的数再次输出在窗体上。程序运行界面如下图。
Private Sub Command1_Click()
Dim a%(1 To 20), i%
Print "排序前数据排列："
For i = 1 To 20
a(i) = Int(Rnd * 90 + 10)
Print a(i);
If i Mod 10 = 0 Then Print
Next i
For i = 1 To 20 '冒泡排序
For j = 1 To 20 - i
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
Print "排序后数据排列："
For i = 1 To 20
Print a(i);
If i Mod 10 = 0 Then Print
Next i
End Sub
Private Sub Form_Load()
End Sub
8 编写程序，程序的功能是：程序运行后，在文本框中输入一串字符, 单击标题为"统计"的命令按钮，分别统计输入字符串中大写字母、小写字母以及其他字符的个数，并将统计结果分别在相应的标签框中显示。程序运行界面如下图。
Private Sub Command1_Click()
Dim i%, m%, n%, z%
For i = 1 To Len(Text1)
If Asc(Mid(Text1, i, 1)) >= 65 And Asc(Mid(Text1, i, 1)) <= 90 Then
n = n + 1
ElseIf Asc(Mid(Text1, i, 1)) >= 97 And Asc(Mid(Text1, i, 1)) <= 122 Then
m = m + 1
Else
z = z + 1
End If
Next i
Label2 = n
Label4 = m
Label6 = z
End Sub
Private Sub Form_Load()
End Sub
9 编写程序。程序功能是：程序运行后在文本框中输入一个正整数，单击“判断”按钮，在标签框中输
出“该数是一个素数”或“该数不是一个素数”的信息。程序运行界面如下图。
Private Sub Command1_Click()
Dim n%
n = Val(Text1)
For i = 2 To n - 1
If n Mod i = 0 Then Label1 = n & "不是素数": GoTo notm
Next i
Label1 = n & "是素数"
notm:
End Sub
Private Sub Form_Load()
End Sub
10 编写程序，程序的功能是：程序运行后，单击“开始”按钮，在窗体上显示出10个小于100的随机正整数，单击“查找”按钮，则在窗体的下一行显示出这10个数中的最大的数以及最大数在此数列中的位置号。程序运行界面如下图。
Dim a%(1 To 10)
Private Sub Command1_Click()
Dim i%
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 101)
Print a(i);
Next i
End Sub
Private Sub Command2_Click()
Dim max%, imax%
max = a(1): imax = 1
For i = 2 To 10
If a(i) > max Then max = a(i): imax = i
Next i
Print "最大数是："; max; Spc(5); "位置号是："; imax
End Sub
Private Sub Form_Load()
End Sub
第三部分
1 在窗体Form1上添加两个文本框，一个“转换”命令按钮和三个单选按钮（名称分别为Opt1、Opt2、Opt3，标题分别为“大小写转换”、“全部大写”、“全部小写”）。程序功能：在上方文本框Text1中输入一字符串，选中“大小写转换”，单击“转换”按钮后，Text2中显示大小写相反的字符串；选中“全部大写”，单击转换按钮后，Text2中显示全部大写字符串，选中“全部小写”，单击转换按钮后，Text2中显示全部小写字符串。程序运行界面如下图。
要求：①请按要求完成窗体界面设计②程序的部分代码已给出如下，但不完整。请录入下面代码，并将“？”处补充完整。
Private Sub Command1_Click()
Dim n As Integer, k As Integer, ch As String, a As String
ch = ""
If = True Then
n = Len(？)
For k = 1 To n
a = Mid$(Text1, k, ？)
If a >= "a" And a <= "z" Then
ch = ch + UCase(a)
ElseIf a >= "A" And a <= "Z" Then
ch = ch + LCase(a)
Else
ch = ch + a
End If
Next k
End If
If = True Then ch = UCase(Text1)
If = True Then ch = ？(Text1)
Text2 = ch
End Sub
答案Private Sub Command1_Click()
Dim n As Integer, k As Integer, ch As String, a As String
ch = ""
If = True Then
n = Len(Text1)
For k = 1 To n
a = Mid$(Text1, k, 1)
If a >= "a" And a <= "z" Then
ch = ch + UCase(a)
ElseIf a >= "A" And a <= "Z" Then
ch = ch + LCase(a)
Else
ch = ch + a
End If
Next k
End If
If = True Then ch = UCase(Text1)
If = True Then ch = LCase(Text1)
Text2 = ch
End Sub
Private Sub Form_Load()
End Sub
2 编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮。程序运行后，在左边列表框中选中所需要的项目，单击“添加”按钮，则把所选中的项目移到右边列表框中。如果单击“删除”按钮，则删除左边列表框中选中的项目。程序运行时的窗体界面如图。
Private Sub Command1_Click()
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Form_Load()
"美的"
"海尔"
"奥克斯"
"春兰"
"长虹"
End Sub
3 编程实现：单击“输出最大值”按钮，随机产生8个大于或等于10小于100的整数，显示在窗体的第一行，然后在窗体第二行显示其中的最大值。程序运行时的效果如图。
Private Sub Command1_Click()
Dim a%(7), i%, max%
For i = 0 To 7
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next i
max = a(0)
For i = 1 To 7
If a(i) > max Then max = a(i)
Next i
Print max
End Sub
Private Sub Form_Load()
End Sub
4 在Form1的窗体上有一个名称为Text1的文本框和两个命令按钮，命令钮标题分别为“显示A”和“显示B”。要求程序运行后，如单击“显示A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量"A"构成的字符串；如单击“显示B”命令按钮，也弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量"B"构成的字符串。程序运行时的窗体界面如图所示。
Private Sub Command1_Click()
n = Val(InputBox("请输入显示个数"))
Text1 = String(n, "A")
End Sub
Private Sub Command2_Click()
n = Val(InputBox("请输入显示个数"))
Text1 = String(n, "B")
End Sub
Private Sub Form_Load()
End Sub
5 已知十个数为：67, 45, 34, 28, 49, 37, 87, 76, 27, 83。编程实现：按“开始”按钮，则在窗体的第一行显示这十个数，在窗体的第二行按从大到小的顺序显示这十个数。
Private Sub Command1_Click()
Dim a(), i%
a = Array(67, 45, 34, 28, 49, 37, 87, 76, 27, 83)
n = UBound(a)
For i = 0 To n
Print a(i);
Next i
For i = 0 To n - 1
For j = 0 To n - 1 - i
If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j
Next i
For i = 0 To n
Print a(i);
Next i
End Sub
Private Sub Form_Load()
End Sub
6 界面设计如下图所示，单击“确定”按钮，在文本框中显示一句话，说明用户选择的综合情况。
Private Sub Command1_Click()
If = True Then xb = Else xb =
If = True Then sf = Else sf =
If = 1 Then ah = ah + + "、"
If = 1 Then ah = ah + + "、"
If = 1 Then ah = ah + + "。"
Text1 = "我是" + xb + sf + ",爱好:" + ah
End Sub
Private Sub Form_Load()
End Sub
7 编程实现：在窗体上的4个文本框中各输入一个整数作为各数组元素的值，然后单击命令按钮，在窗体上显示出数组元素中的最大值。
Private Sub Command1_Click()
Dim a%(3), i%, max%
For i = 0 To 3
a(i) = Val(Text1(i))
Next i
max = a(0)
For i = 1 To 3
If a(i) > max Then max = a(i)
Next i
Print max
End Sub
Private Sub Form_Load()
End Sub
8 编程实现：在窗体的两个文本框中分别输入一个正整数，单击“求最大公约数”按钮后，在窗体第一行显示它们的最大公约数。程序运行界面如下图所示。
Private Sub Command1_Click()
Dim m%, n%
m = Val(Text1)
n = Val(Text2)
If n > m Then t = n: n = m: m = t
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Print Text1; "和"; Text2; "最大公约数是:"; n
End Sub
Private Sub Form_Load()
End Sub
9 编程实现：在窗体的左上角有一个图像框，通过属性窗口任选一张图片装入到图像框的Picture属性中，每按一次“放大”按钮时图像放大10%，同理，每按一次“缩小”按钮时图像缩小10%，放大缩小时均需保持图像的纵横比不变，按“结束程序”按钮则结束程序。程序运行界面如下图。
Private Sub Command1_Click()
= True
= *
= *
End Sub
Private Sub Command2_Click()
= True
= *
= *
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
End Sub
10 编程实现：在窗体上建立一个文本框（内容如下图所示），另外建立菜单，一级菜单标题分别为“背景颜色”，子菜单标题分别为“白色”、“红色”、“绿色”、“蓝色”。程序运行时，如果单击“白色”子菜单，则将文本框的背景色设置为白色；如果单击“红色”子菜单，则将文本框的背景色设置为红色；如
果单击“绿色”子菜单，则将文本框的背景色设置为绿色；如果单击“蓝色”子菜单，则将文本框的背景色设置为蓝色。程序运行界面如下图。
Private Sub blue_Click()
= vbBlue
End Sub
Private Sub green_Click()
= vbGreen
End Sub
Private Sub red_Click()
= vbRed
End Sub
Private Sub Text1_Change()
End Sub
Private Sub white_Click()
= vbWhite
End Sub
第四部分
1．编程计算分段函数??
?
??<<->>+=)(,0)
0,0(,)0,0(,其他情况y x y x y x y x z 的值。要求用文本框(TextBox)输入
x,y
的值，单击标题为“计算”命令按钮后，利用标签控件上显示z 的值。 Private Sub Command1_Click() x = Val(Text1) y = Val(Text2)
If x > 0 And y > 0 Then z = Sqr(x + y)
ElseIf x < 0 And y < 0 Then z = Sqr(Abs(x - y)) Else z = 0 End If Label3 = z End Sub
Private Sub Form_Load() End Sub
2、在窗体添加一个命令按钮（标题为“开始”），单击该按钮，随机产生10个三位数（100～999），在窗体的第一行这10个三位数，在窗体的第二行输出其中的奇数，在窗体的第三行输出其中的偶数。 Private Sub Command1_Click() Dim a%(1 To 10), i% For i = 1 To 10
a(i) = Int(Rnd * 900 + 100) '随机产生10个100到999的整数 Print a(i);
For i = 1 To 10
If a(i) Mod 2 <> 0 Then Print a(i); '输出奇数 Next i Print
For i = 1 To 10
If a(i) Mod 2 = 0 Then Print a(i); '输出偶数 Next i End Sub
Private Sub Form_Load() End Sub
3．编程计算分段函数??
?????>-<≤-->-<<-≥+=)
,1030(,)
0,30(,)0,10(,22z x x z x z x z x z x z x y 的值。要求用InputBox 函数
输入z x ,的值，单击命令按钮（标题为“计算”）后，利用图形框（PictureBox ）输出计算结果y 。
Private Sub Command1_Click()
x = Val(InputBox("输入x 的值")) z = Val(InputBox("输入z 的值"))
If x >= -10 And z < 0 Then y = x ^ 2 + z ^ 2 If x < -30 And z > 0 Then y = x / z
If x >= -30 And x < -10 And x > z Then y = Sqr(x - z) y End Sub
Private Sub Form_Load()
4．编程计算分段函数???
????-<=≥>-=)1(,)
0(,0)1(,22x x x y x y x z 的值。要求用InputBox 函数输入x,y 的
值，单击命令按钮（标题为“计算”）后，用文本框中输出计算结果z 。
5 编程实现求Sum=1+（1+2）+（1+2+3）+（1+2+3+4）+ … … +(1+2+3+4+ … + n) 。程序运行时，
在文本框中输入n 的值，点击“计算”命令按钮，将计算的结果显示在标签上。程序运行界面如下图。
Private Sub Command1_Click() Dim n%, sum%, i%, j% n = Val(Text1) For i = 1 To n For j = 1 To i sum = sum + j Next j Next i
Label2 = "sum=" & sum End Sub
Private Sub Form_Load() End Sub
6 编写一个程序, 其功能为输入货物的数量及单价,求总价,并输出。窗体上的两个标签的标题分别为"货物的数量(个)："和"货物的单价(元)：", 在两个文本框中输入相应的数据, 当按“总价”按钮时，在右下方的图形框中显示原价和折扣价。当原价达到2000元以上时，按8折计算折扣价；当原价达到1000元以上时，按9折计算折扣价。程序运行界面如下图。
Private Sub Command1_Click() zj = Val(Text1) * Val(Text2) If zj < 1000 Then
VB期末考试试题及答案
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
VB模拟试题1
一、概念填空题 1．在Visaul Basic中,属性窗口分为四个部分，这四个部分分别是（ 1 ）属性显示方式、属性列表和对当前属性的简单解释。 2．组合框有三种不同的风格，它们分别是：( 2 )、( 3 )和( 4 )。3．VB中，当KeyPress事件发生时会返回一个按键的（ 5 ）值。 4. 时钟控件是有规律地以一定的( 6 )激发计时器事件，而执行相应的代码程序。 5．A = 8，B = 3，C = 5，则表达式A MOD 3 + B^3 / C \ 5的值为（ 7 ）。6．声明一个双精度变量Num5，的声明语句是 ( 8 ) 。 7．有一文本框Text1，为了使该文本框在运行时获取焦点，应执行的语句是（ 9 ）。8．在使用动态数组时，如要改变数组的大小而又不丢失数组中的数据，应使用（ 10 ）关键字。 9．Visual Basic逻辑数据类型只有 True 与 False 两个值。当逻辑数据转换成整型数据时，True 转换为（ 11 ），False转换为（ 12 ）。 10．在Visaul Basic 中依据变量的作用范围将VB变量的作用范围分为三类，它们是：（ 13 ）变量、（ 14 ）变量和（ 15 ）变量。 11．在Visual Basic工程中，拥有多个窗体的程序可用（ 16 ）语句将窗体装入内存，用（ 17 ）语句将指定窗体从内存中删除。 12．在Visual Basic中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）是（ 18 ）坐标。 13．字符串常量是由任何ASCII字符组成，在程序代码中，它必须由（ 19 ）括起来。 14．如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中（ 20 ）个单选按钮。 二、概念选择题 1．不能触发滚动条Change事件的操作是（）。 A) 拖动滚动条的滑块 B) 单击两端箭头 C) 单击滚动条的滑块 D) 单击滚动条的空白处 2．已知变量x 、y为整数型，且x=4 , y=12 ,s为字符型，且s=“a”，Leble1为标签控件，Leble1的Caption属性值为Label1，下列合法的赋值语句是（）。 A) X= Leble1.Caption B) Leble1.Caption=Str(X) C) X*3=Y D) Y=X*S 3．下列可以将变量A、B的值互换的语句是( )。 A) A=B : B=A B) C=B : B=A ：A=C C) A=C : C=B : B=A D) A=(A+B)/2 ：B=(A-B)/2 4．下列叙述中错误的是（）。 A)VB是采用了事件驱动编程机制。
第一次月考试卷及答案
峄山中学2020-2021第一次月考七年级数学试卷（第一章有理数时间120分钟满分100分） 一、选择题（每小题3分，满分30分） 1、2020的相反数是（） A -2020 B 2020 C 1 2020 D 1 2020 - 2、2019年元旦这天，邹城市的最高气温是5℃，最低气温是-1℃，那么邹城市这天的温差（最高气温与最低气温的差）是（） A 4℃ B 3℃ C 6℃ D 7℃ 3、下列近似数中精确到千分位的是（） A 6510 B 6.510 C 6.51 D 6.51×104 4、下列说法正确的是（） A 0既不是整数也不是分数 B 整数和分数统称为有理数 C 一个数的绝对值一定是正数 D 绝对值等于本身的数是0和1 5、一种巧克力的质量标识为“25±0.25千克”，则下列哪种巧克力是合格的（） A 25.30千克 B 24.70千克 C 25.51千克 D 24.80千克 6、下列各组算式中，其中值最小的是（） A -（-3-2）2 B （-3）×（-2） C （-3）2×（-2） D （-3）2÷（-2） 7、一个点从数轴上的原点开始，先向右移动3个单位，再向左移动7个单位长度，这时点所对应的数是（） A 3 B 1 C -2 D -4 8、计算（-18）+（-1）9的值是（） A 0 B 2 C -2 D 不能确定 9、已知数a、b在数轴上对应的点在原点两侧，并且到原点的距离相等，数x、y 是互为倒数，那么2︱a+b︱-2×x×y的值等于（） A 2 B -2 C 1 D -1 10、已知︱x︱=4，︱y︱=5且x＞y，则2x-y的值为（）A -13 B +13 C -3或+13 D +3或-1 二、填空题（每小题3分，满分15分） 11、-3的倒数是；绝对值是1 2 的数是。 12、在近似数6.48万中，精确到位 13、大于-2而小于3的整数分别是。 14、在纸上面画一个数轴，将纸对折后，若表示4的点与表示-8的点恰好重合，则此时数轴上折痕经过的点所表示的数是。 15、1米长的小棒，第1次截去一半，第2次截去剩下的一半，如此下去，那么第6次后剩下的小棒长为米。 三、解答题（共8小题，满分55分） 16、（6分）计算（每小题3分，满分6分） （1） -20+（-14）-（-18）-13 （2）14 (81)2(16) 49 -÷?÷- 17、（8分）计算（每小题4分，满分8分） （1）157 2()(24) 2612 --+-?- （2）42 1 1(10.4)(2)6 3 ?? ---÷?-- ?? 18、（5分）在数轴上表示下列个数，并按从大到小的顺序用“＞”把这些数连接起来。 -5，︱-3︱， -3.5， 0，3 2 -， 0.5
大一VB期末考试试卷及答案
大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10)
计算机vb模拟试题
一、单选题（本大题共25题，每题2分，共50分） 1、不属于VB三种工作模式的是（）。 A.设计模式 B.运行模式 C.调试模式 D.中断模式 2、窗体的前景颜色由（）属性设置。 A.BorderStyle B.BackColor C.ForeColor D.FillStyle 3、当窗体被启动时，（）事件将会发生。 A.Load B.Unload C.QueryUnoad D.CLs 4、每个窗体对应一个窗体文件，窗体文件的扩展名是（）。 A..bas B.cls C.frm D.vbp 5、可用来清除窗体内容的方法是（）。 A.Print B.InputBox C.Cls D.Clear 6、下列语句有语法错误的是（）。 A.a＝5 B.b＝a C.b=“a” D.5=a 7、表达式1＋((2＋3)*2)*2的值是（）。 A.26 B.22 C.21 D.24 8、产生大于等于10且小于20的随机整数的表达式为（）。 A.Int(Rnd(10)＋10) B.Int(Rnd*10+10) C.Int(Rnd*10+11) D.Int(Rnd*20-10) 9、求字符串长度的函数是（）。 A.Len B.long C.Length D.Val 10、若要使定时器暂停，应将其（）属性设置值设为False。 A.Interval B.Value C.Text D.Enabled 11、下列可作为Visual Basic的变量名的是（）。 A.Abt B.TA C.IF D.A[B]T 12、VB中可用（）语句产生一消息框。 A. InputBox B.Shift C. Both D.MsgBox 13、以下程序段的输出结果是（） Print Format(12345.6,"0.00E+00") A.1.23E+04 B.1.23E+4 C.1.23456E+04 D.1.23456E+4 14、执行下面的语句后，所产生的信息框的标题是（）。 a = MsgBox("AAAA", "BBBB", "", 5) A.BBBB B.空 C.AAAA D.出错，不能产生信息框 15、以下程序段的输出结果是（）。 Print 1;2; Print 3 A.1 2 3 B.1 23 C.123 D.12 3 16、下列关于Do While …Loop和Do…Loop Until循环执行循环次数的描述正确的是（）。 A.Do While …Loop循环和Do…Loop Until循环至少都执行一次 B.Do While …Loop循环和Do…Loop Until循环可能都不执行 C.Do While …Loop循环至少执行一次和Do…Loop Until循环可能不执行循环 D.Do While …Loop循环可能不执行和Do…Loop Until循环至少执行一次 17、默认条件下，语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是（）。 A. 12 B.60 C.120 D.345 18、数学关系3≤x<10对应的Visual Basic表达式是（）。
vb期末考试试题
第1题（1.0分）题号:227 表达式1 and 0的值【1】.答案：1). False 第2题（1.0分）题号:222 把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案：1). False 第3题（1.0分）题号:60 a 和b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】. 答案：1). a=1 xor b=1 第5题（1.0分）题号:244 设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】. 答案：1). (x mod 10) * 10 + int(x/10) 第7题（1.0分）题号:226 表达式32\7 MOD 3^2 的值是【1】. 答案：1). 4 第8题（1.0分）题号:288 文件按照存取方式及其组成结构可以分为顺序文件和【1】. 答案1). 随机文件或随机 第9题（1.0分）题号:319 Option Base 1的作用是确定数组的下界为【1】. 答案：1). 1 第1题（1.0分）题号:236 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 答案：N 第2题（1.0分）题号:246 ActiveX控件是扩展名为*.ocx的独立文件,使用时需用 "工程"/"部件"载入或移去. 答案：Y 第3题（1.0分）题号:289 框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案：Y 第4题（1.0分）题号:350 在窗体模块的声明部分中用Private声明的变量的有效范围是其 所在的工程. 答案：N 第5题（1.0分）题号:354 在框架控件上放置的控件可以移动到框架控件的外面. 答案：N 第6题（1.0分）题号:231 可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y 第8题（1.0分）题号:247 Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关.答案：Y 第9题（1.0分）题号:330 有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y 第10题（1.0分）题号:225 Visual Basic程序的运行可以从Main()过程启动,也可以从某 个窗体启动. 答案：Y 第1题（1.0分）题号:319 能够改变窗体边框线类型的属性是(). A:FontStyleB:BorderStyleC:BackStyleD:Bord er 答案：B 第2题（1.0分）题号:822 以下()对象不具有Clear方法. A:列表框B:组合框C:剪贴板D:图片框 答案：D 第3题（1.0分）题号:258 常量-0.00013579的科学计数法是(). A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4 答案：C 第4题（1.0分）题号:230 vb 应用程序是分层管理的,其最高的层次为(). A:工程B:模块C:窗体D:过程 答案：A 第5题（1.0分）题号:837 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:CheckedC:VisibleD:Enabled答案：C 第6题（1.0分）题号:334 若要使标签控件显示时,不覆盖其背景内容,
(人教版)七年级下册语文月考试题(含答案)
（人教版）七年级下册语文月考试题（含答案） （本卷120分 9０分钟） 一、积累。（44分） 1.我市经济开发区正飞速的发展，展望未来,我们信心百倍。请写出一句祝福的话。(3分) 2.下列选项中字音、字形完全正确的一项是（ )（3分) A.祈ｑǐ祷斑斓气冲斗dòu牛锋芒毕露 B.污秽huì脑髓ｓuí一拍既合来势汹汹 C.嫉ｊì妒澎湃pàｉ鞠躬尽瘁人迹罕至 D.骊lí歌屏障炽cｈì痛杂乱无章 3.下列每项各有一个错别字,请用线标出并改正在方格内。（4分） A.人声鼎沸万丈狂澜芳草萋萋九屈连环 Ｂ.回环曲折亦复如事绝壁断崖家喻户晓 C.妇孺皆知鞠躬尽瘁潜心惯注一反既往
（6) _ ＿＿__＿__＿____＿_，对镜帖花黄。（《木兰诗》） （7) ,一切都将会过去；而那过去了的，。(普希金《假如生活欺骗了你》） (8）爱国是一个永恒的文学主题，古诗词中也不乏表现这一主题的名句,请写出前后相连的两句： ___ ___ _，＿＿_ _____＿_＿ _＿。 (9）某班正在组织《童年》的阅读交流活动，请完成下列交流内容:(5分) ①《童年》的作者是苏联作家 (作家名)以自身经历为原型创作的自传体小说。(1分） ②请简要介绍《童年》中你印象最深的一个人物,５０字左右。（4分） (10)班级开展“黄河之旅”综合性学习活动,请你参与,(5分） 【古之黄河】 面对黄河,唐朝大诗人李白曾吟咏道：君不见,黄河之水天上来，奔流到海不复回。 请再写出一组与黄河有关的古诗句（含上下句)(1分） 【近之黄河】 阅读下面两则材料，读后说说你对这两则材料中的“黄河”的理解。(2分） 材料一 19４8年，解放战争胜利前夕，毛泽东主席面对汹涌澎湃的黄河,无限感慨地对身边的卫士们说道:“谁如果藐视黄河,就是藐视我们这个民族……” 材料二现代著名诗人光未然在他的《黄河颂》一诗中写道：“啊!黄河！你一泻万丈,浩浩荡荡，向南北两岸/伸出千万条铁的臂膀。我们民族的伟大精神，将要在你的哺育下/发扬滋长!”
大学VB期末考试试题
VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。
vb模拟题
要向C盘根目录下的名为my.txt的顺序文件中读出数据，应先使用_________语句打开文件。 复选框对象如果被选中，它的Value值为____________ 。 下列可作为Visual Basic 变量名的是____________。 以下能判断是否到达文件尾的函数是__________ 如果在实验课上进行程序调试，运行时遇到意外出错，最有效的做法是：看清系统错误原因提示信息，____________，以确定错误原因。 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 ____________ 。 在用通用对话框控件建立打开文件对话框时，在文件列表框中只允许显示txt和rtf类型的文件，则Filter属性的正确设置是_________。 在程序运行期间可以用____________函数把图形装入窗体、图片框或图像框。列表框List1中已有10个列表项，要显示列表框List1最后一项，有两种表示法， __________是正确的。 在默认情况下定义了10个元素的数组a，用变量n表示它的上界，有两种赋值语句，______________是正确的。 为了使控件对象不响应用户的事件，需要____________。 假定焦点已经位于文本框Text1中，则能够触发 KeyPress 事件的操作是 ____________。 设变量x = 1，y = -1，a = 5，b = -5，则以下表达式的值为“真”的是____________。单击滚动条控件的箭头按钮，滑块的移动幅度与_______________属性设置有关。在自定义函数中，可以通过____________返回值。 程序填空 单击窗体执行将所输入的整数插入排序后的原数组元素适当位置。 Function Insert(s(), ByVal key As Integer) As Integer Dim k%, i%, j% k = ___(1)_____ For i = 0 To UBound(s)
VB期末考试试题及答案 (1)
第一部分：客观题 一、单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） A、工程资源管理器窗口 B、工具箱窗口 C、属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（）方法来实现。 Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、Value 4、下列不可作为VB变量名的是（） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是（） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（）。
n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、DblClick 9、下列为整型变量的是（） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =1 12、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。 Dim a(3, -2 To 1, 5) As Integer A、60 B、75 C、120 D、13
人教版高一月考试题含答案
高一月考试题 (时间：120分钟分值：120分) 第Ⅰ卷（三部分，共85分） 第一部分：听力（共两节，满分20分） （略） 第二部分：英语知识运用（共两节，满分35 分） 第一节：单项填空（共15小题；每小题1分，满分15分） 从A、B、C、D四个选项中，选出可以填入空白处的最佳选项。 21.Tom: Mike, our team will play against the Rockets this weekend. I’m sure we will win. Mike: _____________ ! A. Congratulations B. Cheers C. Best wishes D. Good luck 22._________ as usual in her blue jeans, she set out joyfully. A. Dressed B. Dressing C. To dress D. To be dressed 23.--- Where did you meet him? --- It was in the factory________ I worked. A.Which B. that C. where D. when 24.--- Why do the Japanese prefer to use foreign words? --- By using____ foreign word you make______ subject seem new. A.不填；a B. the ;the C. a; a D. a; 不填 25.___________ me, there are altogether 8 students in the classroom. A. Include B. Included C. To including D. Including 26.---Is Bob still performing? ---I’m afraid not. He is said___________ the stage already as he has become an official. A.to have left B. to leave C. to have been left D. to be left 27.Is this the reason _________ at the meeting for his carelessness in his week? A. he explained B. what he explained C. how he explained D. why he explained 28. Helen’s interest in software designing came from her parents,________ were specialists in an IT company. A. both of them B. all of whom C. both of whom D. either of whom 29. President George W. Bush insisted he __________ the law in ordering those Americans be spied on. A. not break B. didn’t break C. should not break D. had not broken 30. She never expected __________ a great change in her life. A. there to be B. it to be C. to be D. there being 31. What shall we use for power when all the oil in the world has________ ? A. given out B. put out C. held up D. used up 32. Which is right? A. As she is a child, she knows much. B. Hard as he studied, he didn’t pass the exam. C. A child as she is, she knows much English. D. Hard although he studied, he didn’t pass the exam. 33. ---Do you like the material? ---Yes, it___________ very soft.
【期末复习】计算机VB期末考试试题及答案
20**-20**学年VB期末考试试题A 一、填空题 1、VB程序设计的主要特点 是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。
13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font
VB模拟试题
VB模拟试题 一、选择题（15分，每题1分） 1、VB集成开发环境共有三种模式，以下 __________ 三种模式是正确？ (A) 设计、运行、退出 (B)运行、中断、退出 (C) 设计、运行、中断 (D)运行、中断、结束 2、以下叙述中错误的是__________ (A) 事件过程是响应特定事件的一段程序 (B) 不同的对象可以具有相同名称的方法 (C) 对象的方法是执行指定操作的过程 (D) 对象事件的名称可以由编程者指定 3、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 __________ (A) 如果工程中含有Sub Main过程，则程序一定首先执行该过程 (B) 不能把含有Sub Main过程的标准模块设置为启动模块 (C) 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 (D) 任何时刻最多只有一个窗体是活动窗体 4、下列说法哪种正确？每次调用过程时，__________ (A) Dim声明的变量可保持原值；Static声明的变量会重新初始化。 (B) Static声明的变量可保持原值；Dim声明的变量会重新初始化。 (C) Dim、Static声明的变量都可以保持原来的值。 (D) Dim、Static声明的变量都会重新初始化。 5、表达式 5 Mod 3+3\5*2的值是__________ (A) 0 (B) 2 (C) 4 (D) 6 6、从字符串N的第5个字符开始，获取4个字符，应使用 _________。 (A) Len(N,5,4) (B) Mid(N,5,4) (C) Right(N,5,4) (D) Rtrim(N,5,4) 7、InputBox函数返回值的类型为 _________。 (A) 数值 (B) 字符串 (C) 变体 (D) 数值或字符串（视输入的数据而定） 8、语句Dim A(3, -2 to 2, 5)声明的数组A包含_________个数组元素。 (A) 120 (B) 75 (C) 60 (D) 13
VB期末考试试题
第一部分：客观题 1、 单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ ） A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（ ）方法来实现。 Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（ ） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是 （ ） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（ ） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（ ） Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（ ） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是 （ ） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0
六年级语文月考试卷及答案
3月份月考六年级 语文试题 六年级语文月考试卷及答案 第一部分：基础知识积累与运用（43分） 一.看拼音写词语。（8分） nuó yí zhēng róng kū wěi duàn liàn ( ) ( ) ( ) （）yōu yǎ fù hè yǔzhòng xīn cháng ( ) ( ) ( ) 二.快乐二选一。（用“√”给句中多音字选择正确读音）（6分） 1.在这五年间（jiān jiàn），我们两家的来往从未间（jiān jiàn）断过。 2.这家店铺（pū pù）的老板很注重环保节约，反对铺（pū pù）张浪费。 3.老师要求他以更（ɡènɡɡēnɡ）快的速度更（ɡènɡɡēnɡ）正错题。 三.补充词语，并按要求选词填空。（8分） （）七八碎（）堂大笑美不（）收 （）天盖地蜂（）而至（）然起敬 1.含有反义词的词语是：。 2.“美好的东西太多，一时看不过来。”这句话可以用“”这个词来概括。 四.请用“然”字组词，分别填入下列句中的括号里。（4分） 1.客家民居和傣家民居各有特点，建筑风格（）不同。 2.两三百人聚居一楼，秩序（），毫不混乱。 3.客家土楼虽经几百年的风雨侵蚀，但是（）非常牢固。 4.他（）失败了很多次，但是并没有灰心。 五.按要求写句子。（10分） 1.想起他那一次的演出，心里总是激动万分。（改为反问句） 2.五根手指团结一致。五根手指成为一个拳头，根根有力量。 （用关联词合为一句话） 3.那幢幢竹楼都藏在浓绿的竹林之中了。（缩句） 4.过去的日子如轻烟，被微风吹散了。（仿写句子） 过去的日子如，。 5. 天真冷呀，孩子们穿着棉衣和手套在街上燃放鞭炮。（用修改符号修改病句） 六.日积月累。（7分） 1.人非生而知之者，？《师说》（1分） 2.“ 一岁除，入屠苏。”选自宋朝写的《元日》，写的是时的情景。（2分） 3.《两小儿辩日》中第一个小孩的观点是（填文中原句） ，第二个小孩证明自己观点的依据是（填文中原句） 。（4分） 第二部分：阅读积累与运用（27分） （一）课文精彩回顾。（11分） 照北京的老规矩，春节差不多在腊月的初旬就开始了。“腊七腊八，冻死寒鸦”，这是一年里最冷的时候。在腊八这天，家家都熬腊八粥。粥是用各种米，各种豆，与各种干果熬成的。这（）粥，（）小型的农业展览会。 1.在括号里填上合适的关联词。（2分） 2.画线句是一句（俗语歇后语）（二选一，用“√”标出），这句话的意思是（2分） 3.选段的最后一句话把比喻成，生动形象地表现了腊八粥的特点，表达了作者的感情。（4分） 4.理解“这不是粥，而是小型的农业博览会”这句话的含义。（3分） （二）我会认真读短文，并完成文后练习。（16分）
VB期末考试试题及答案
VB期末考试试题及答案 一、填空题 1、VB程序设计的主要特点是可视化设计和事件 编程。2、在VB中，最主要的两种对象是窗体 （form）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作____。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____选中___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用工程1 作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是34.6 。 13、在VB 中，数值型变量的初值为0 ，Varant型变量的初值 为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句cls 。 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中的*表 示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。
VB模拟试题2
一、单选题（30分，每小题1分） 1、（C ）字节称为一个MB。 （A）1024 （B）1000K （C）1024*1024 （D）10000K 2、计算机硬件系统的五大部件是（A ）。 （A）CPU、内存储器、输入设备、输出设备、外存储器 （B）运算器、控制器、存储器、输出设备、输入设备 （C）CPU、总线、存储器、外设、主板 （D）主机箱、显示器、音箱、鼠标、键盘 3、常用的输入设备有（A ）。 （A）键盘、鼠标、扫描仪（B）显示器、键盘、鼠标 （C）打印机、扫描仪、键盘（D）触摸屏、打印机、鼠标 4、计算机网络的主要作用是( D )。 (A) 数据处理(B) 信息传输与数据处理 (C) 文献查询(D) 资源共享与信息传输 5、二进制数1010等于十六进制数( C )。 (A) 10 (B) 11 (C) A (D) B 6、在VB中要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句( B )。 (A) Option Base 0 (B) Option Explicit (C) Option Base 1 (D) Option Compare 7、下列程序段的执行结果为( D )。 J1 = 10 J2 = 30 If J1 < J2 Then Print J2; Print J1 (A)10 (B)30 (C)10 30 (D)30 10 8、假设变量x1是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（C ） (A) x1="False" (B) x1='False' (C) x1=False (D) x1=#False# 9、在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（B ）。 (A) Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.text) End Sub (B) Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.text) End Sub (C) Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub (D) Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub