vb 高中信息考试

1、打开“考生文件夹\50\工程1.vbp”，完善程序并保存。

实现功能：在文本框text1、text2、text3中输入3根小木棒的长度(假设都是整数)，判断能否用它们搭成一个三角形，并把结果输出到文本框text4中。

操作要求：
（1）在窗体中加载“CommandButton”控件，命名为“Command1”并设置该控件“Caption”属性值为“判断”；
（2）完善程序，执行command1_click事件，判断出结果，如果能搭成三角形则在文本框text4中输出“OK”，否则输出“NO”。

'请不要更改源程序的结构，删除原题里的①、②。

填写正确的代码，使程序完善
Private Sub Command1_Click()
Dim a, b, c As int e r g e r
Let a = Val(Text1.Text)
Let b = Val(Text2.Text)
Let c = Val(Text3.Text)
If (a + b > c) And (a + c > b) And (b + c > a) Then
Let Text4.Text = "OK"
Else
Let Text4.Text = "NO"
End i f
End Sub
2、打开“考生文件夹\716”文件夹中的文件：“工程1.vbp”进行以下操作后并保存。

某同学欲设计一个“水电费管理系统”，其功能如下：
水按每吨4元收取，电按每度0.5元收取，输入用水量和用电量，输出应付款。

请打开工程1.vbp文件，按如下要求完成下列操作。

（1）请在窗体中添加两个控件，使程序运行时，用其输入耗水量和耗电量。

（2）请把下列代码补充完整
Private Sub Command1_Click()
Dim a As Single, b As Single, s As Single
a = Val(①)
b = Val(②)
s = ③
Label4.Caption = Str(④) + "元"
End Sub
3、打开“考生文件夹\723”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存。

中国邮政的EMS国际快递业务：中国寄往澳
大利亚的快递收费标准是：首个0.5公斤收
费210元，其余的重量按55元/千克计算，（总
重不足0.5千克按210元收费）下面是自动计算寄费的程序，请完善程序。

完成后按“Ctrl+W”保存程序。

（详见样张）
'中国邮政的EMS国际快递业务：中国寄往澳大利亚的快递收费标准是：
'首个0.5公斤收费210元，其余的重量按55元/每千克计算，（总重不足
'0.5千克按210元收费）下面是自动计算寄费的程序，请你完善程序。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善
Private Sub Command1_Click()
Dim x As Single, y As Single
y = 0
① = Val(Text1.Text)
If x > 0.5 Then
y = 210 + (x - 0.5) * 55
Else
y = 210
②
③ = Str(y)
End Sub
4、打开“考生文件夹\731”文件夹中的文件：“工
程1.vbp”进行以下操作后并保存。

本题是青蛙跃井问题：井底蛙欲沿湿滑井壁上
跃至地面，若井深h尺，蛙上跃3尺下滑1尺，请
给出井深h值，计算蛙上跃次数n。

请你完善程
序。

完成后按“Ctrl+W”保存程序。

（详见样张）
'本题是青蛙跃井问题：井底蛙欲沿湿滑井
壁
'上跃至地面，若井深h尺，蛙上跃3尺下滑1尺，
'请给出井深h值，计算蛙上跃次数n。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Command1_Click()
Dim h As Single, n As Integer
h = Val(tex t1.t ex t)
If h > 3 Then
If h Mod 2 = 0 Then
n = h / 2
Else
n = (h - 1) / 2
End If
Else
n =1
End If
Text2.Text =n
End Sub
5、打开“考生文件夹\733”文件夹中的文件：“工
程1.vbp”进行以下操作后并保存。

本题是在文本框Text1中输入一位十六进制数码
（若是字母要大写），运行程序后能译出它表示
的十进制数的程序。

请你完善程序。

完成后按
“Ctrl+W”保存程序。

（详见样张）
'本题是在text1中输入一位十六进制数码（若是字母要大写），
'运行程序后能译出它表示的十进制数的程序。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Command1_Click()
Dim m As String
m = tex t1.t ex t
Select Case m
Case "A"
m = "10"
Case "B"
m = "11"
Case "C"
m = "12"
Case "D"
m = "13"
Case "E"
m = "14"
Case "F"
m = "15"
end s e l ec t
Text2.Text = m
End Sub
6、打开“考生文件夹\732”文件夹中的文件：“工程1.vbp”进行以下操作后并保存。

本题是从字符串中找出所有大写字母，并把找出的大写字母显示在text2中。

请你完善程序。

完成后按“Ctrl+W”保存
程序。

（详见样张）
'本题是从一串只
含有字母或数字的字符
串中找出所有大写字
母，
'并把找出的大写
字母显示在text2中。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Command1_Click()
Dim x As String, y As String
Dim i As Integer, n As Integer
x = tex t1.t ex t
n = Len(x)
For i = 1 To n
If Asc(Mid(x, i, 1)) < 91 And Asc(Mid(x, i, 1)) > 64 Then
y = y + Mid(x, i, 1)
End If
Next i
Text2.Text = y
End Sub
7、打开“考生文件夹\735”文件夹中的文件：“工程1.vbp”进行以下操作后并保存。

完善程序,使之在运行程序后，能在窗体上显示样张所示的图形。

完成后按“Ctrl+W”保存程序。

（详见样张）
'完善程序,使之在运行程序后，能在窗体上显示样张所显示的图形。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Form_Click()
Line (600, 200)-(1500, 200), RGB(255, 0, 0)
Line (1500, 200)-(1500, 1000), RGB(0, 0, 255)
Line (1500, 1000)-(600, 1000), RGB(255,0,0)
Line (600, 1000)-(600, 200), RGB(0, 0, 255)
End Sub
8、打开“考生文件夹\36\工程1.vbp”，完善程序并保存。

实现功能：给出三角形的三边边长a，b，c（输入保证能构成三角形，无需判断正确性），输出三角形面积。

三角形面积计算公式：
'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善
Private Sub Command1_Click()
Dim s As Single
Dim q As Single
Dim a As Single
Dim b As Single
Dim c As Single
a = Val(InputBox("请输入边长a的值："))
b = Val(InputBox("请输入边长b的值："))
c = Val(InputBox("请输入边长c的值："))
q = (a + b + c) / 2
s = SQ R(q * (q - a) * (q - b) * (q - c))
Print S
End Sub
9、打开“考生文件夹\32\工程1.vbp”，完善程序并保存。

实现功能：从键盘上输入一个三位数，然后将它反向输出。

例如输入“123”，输出结果为“321”。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim bai As Integer, shi As Integer
Dim g As Integer
a = Val(①)
bai = a \ 100
shi = (a - bai * 100) \ 10
g = a Mod 10
② = g * 100 + shi * 10 + bai
③ = CStr(b)
End Sub
10、打开“考生文件夹\736”文件夹中的文件：“工程1.vbp”进行以下操作后并保存。

该题求丢番图年龄问题：丢番图生命的1/6是童年，又过了生命的1/12长胡子，再过了生命的1/7结婚，婚后5年生儿子，儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。

求丢番图年龄。

完善程序,使之在运行程序后，能在text1中显示丢番图年龄。

完成后按“Ctrl+W”保存程序。

（详见样张）
'该题是求丢番图年龄问题：丢番图生命的1/6是童年，'又过了1/12长胡子，再过了的1/7结婚，婚后5年生儿子，
'儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。

'求丢番图年龄。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Command1_Click()
Dim n As Integer
n = 0
Do
n = n + 1
Loop while n < n / 6 + n / 12 + n / 7 + 5 + n / 2 + 4
T ext2.text= Str(n)
End Sub
11、打开“考生文件夹\178\工程1.vbp”，完善程序并保存。

实现功能：用递归法求3!+5!+7!的值。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Public Function Fac(a As Integer) As Integer
If a = 1 Then
Fac = 1
Else
Fac = a * ②(a - 1)
End If
End Function
Private Sub Command1_Click()
Dim S As Integer
S = Fac(3) + Fac(③) + Fac(7)
Print "S=" & CStr(S)
End Sub
12、打开“考生文件夹\122\工程1.vbp”，完善程序并保存。

王晓珊家距离学校S1公里，某天她和李明各自同时从家里步行出发上学，王晓珊步行V1公里/小时，李明步行V2公里/小时，结果他们同时到达学校。

实现功能：输入S1,V1,V2，输出李明家与学校之间的距离S2。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Command1_Click()
Dim S1 As Single, S2 As Single
Dim V1 As Single, V2 As Single
Dim T As Single
S1 = Val(InputBox("请输入王晓珊家离学校的距离："))
V1 = Val(InputBox("请输入王晓珊步行速度："))
V2 = Val(InputBox("请输入李明步行速度："))
T = ①
S2 = ② * T
Print ③
End Sub
13、打开“考生文件夹\181\工程1.vbp”，完善程序并保存。

实现功能：从键盘输入10个学生的测试成绩，输出最高分和最低分。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Command1_Click()
Dim cj(10) As Single
Dim i As Integer
Dim max As Single
Dim min As Single
For i = 1 To 10
cj(i) = V al(InputBox("请输入10个学生的成绩", "成绩输入"))
Next i
max = cj(1)
min = cj(1)
For i = 2 To 10
If cj(i) > max Then
max = cj(i)
End If
If ②Then
min = ③
End If
Next i
Print CStr(max), CStr(min)
End Sub
14、打开“考生文件夹\9\工程1.vbp”，完善程序并保存。

实现功能：输入10个数，存放在数组中，并按输入的逆序输出在窗体上。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Command1_Click()
Dim s(9) As Single
For i = 0 To 9
s(9)= Val(InputBox("请输入一个数"))
Next i
For i = 9 To 0 Step -1
Print s(i)
Next i
End Sub
15、打开“考生文件夹\87\工程1.vbp”，完善程序并保存。

实现功能：通过键盘输入10个数，统计这10个数的和。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善
Private Sub Command1_Click()
Dim x As Integer
Dim s As Integer
Dim i As Integer
S=0
For i = 1 to10
x = Val(InputBox("NO." & i))
s=s+x
Print CStr(x)
Next i
Print "total:" & s
16、打开“考生文件夹\597\工程1.vbp”，完善程序并保存。

实现功能：计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。

'填空完成程序，计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。

'注：请不要更改源程序结构，删除①、②、③，并在对应位置填写正确的代码
Private Sub Form_Click()
Dim s As Single ' s变量用于存放计算结果
Dim p As Single
Dim i As Integer '定义一个循环变量
'给s赋初值
s = 0
'给p赋初值
p = 1
For i = 1 To 8
p = p * i
s = p+s
Next i
Print "s="; CStr(s)
End Sub
17、打开“考生文件夹\119\工程1.vbp”，完善程序并保存。

关于人口问题，如果我国人口年增长率为4％，问多少年后我国人口超过20亿。

(假设现在我国人口为14亿)
实现功能：当单击窗体后，在窗体上输出问题答案。

'请不要更改源程序的结构，删除原题里的①、②、③、④。

填写正确的代码，使程序完善Private Sub Form_Click()
Dim p As Integer '变量p保存人口
Dim n As Long
P=14
n = 0
Do While p<=20
p = p * 1.4
n = n+1
Loop
Print "n=" & CStr(n) End Sub。