vb复习题.doc

一、选择题(每小题1分,共15分)
二、填空题(每空1分,共20分)
三、阅读程序题(每小题5分,共25分)
四、编程题(每小题10分,共40分)
一、编程
编写程序,从键盘上输入10个整数,分别计算并输出正数及负数的和。
编写程序,从键盘上输入10个整数,分别计算并输出正数及负数的个数。
求s=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)。
求1-200间所有偶数的平均值。
求1-200间所有奇数的和。
求1-200间所有偶数的和。
编写程序,打印如下图形:
* * * * *
* * *
*
随机产生整数为二行三列数组输入数值,显示该数组,找出该数组的最小元素及其下标。
用随机产生整数为1个3×3数组输入数值,打印数组,求数组的对角线元素的和,并打印和。
随机产生10个两位整数,找出其中最大值、最小值,并打印。
1、and1_Click()mand1的命令按钮,然后编写如下事件过程:
Private m
c = "ABCD"
For n = 1 To 4
Print Right(c,n)
Next
End Sub
程序运行后,单击命令按钮,写出输出结果。
参考答案:
D
CD
BCD
ABCD
2、窗体上有一个文本框(其name属性分别为Text12)和一个标签(name属性Label1),以及一个命令按钮(mand1),程序运行时,在文本框Text1中输入数值,单击该命令按钮,判断该数值为正数或是负数,并在标签Label1中显示结果。(7分)
举例:若输入20,单击按钮后,标签Label1中显示“是正数”;若输入-10,单击按钮后,标签Label1中显示“是负数”。
Private mand1_Click()
Dim n!
N=
If n>=0 then
=“是正数”
else
=“是负数”
end if

end sub
End Sub
参考答案:
从文本框取数:2分
处理判断:2分
显示结果及其它:3分
,标签上显示“摄氏温度”和“华氏温度”,文本框一个用于输入摄氏温度数,一个用于输出对应的华氏温度。摄氏温度与华氏温度的转换公式为:c=(5/9)*(f-32)
要求:对输入的摄氏温度数有检查功能,以拒绝接收非数字字符。运行界面如图所示:
参考答案:
Private mand1_Click()
Text1 = ""
Text2 = ""
= True
= True

End Sub
Private mand2_Click()
End
End Sub
Private Sub Text1_Change()
= 5 * (Val() - 32) / 9
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
KeyAscii = 0
End If
End If
End Sub
4、在窗体上画一个文本框和两个图像框,两个图像框中装入一个左箭头图形和一个右箭头图形,编写程序,实现当单击左箭头图形时,文本框会显示“您单击的是左箭头”;当单击右箭头图形时,文本框会显示“您单击的是右箭头”。
参考答案:
Private Sub Image1_Click()
=”您单击的是左箭头”
End Sub
Private Sub Image2_Click()
=”您单击的是右箭头”
End Sub
6、随机产生n个两位正整数(n由输入对话框输入,且n>0),求出其中的偶数之和,并在标签框Label1上显示。
mand1的click事件中。
参考答案:
Private mand1_Click()
Dim n As Integer
Dim i As Integer, sum As Long
n = Val(InputBox("Please input a integer", "Input N value"))
For i = 1 To n
rnddat = (10 + Int(90 * Rnd))
If rnddat Mod 2