程序设计语言VB综合设计题及答案

1、程序设计语言VB综合设计题1. 编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮3，清除文本框内容。提示：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text = Now）。2. 编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。3. 编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。4. 编制程序实现：设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，才在Text1中显示Hello字符。5. 编一程序能实现在窗体上打印出如下图所示的图形。AAAAAAAAA

2、AAAAAAABBBBBBBBBBBBBBBB6. 编一程序用于判断一正整数是否为素数。（提示：只能被1和本身整除的正整数称为素数。为了判断一个数n是不是素数，可以将n被2到sqr(n)之间的所有整数除，如果都除不尽，则n就是素数，否则n是非素数。）7. 选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。8. 有a、b、c三个数，编一程序实现通过文本框给a、b赋值；再调用能完成a、b比较大小的子过程，用c将大数回传。要求按值传送a、b。9. 编一程序用于求所有的水仙花数。 所谓水

3、仙花数是指一个3位数，其各位数字立方和等于该数本身。例如：153就是一水仙花数，因为153 = 13+53+33。10. 设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。11. 编写程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。12. 编写程序：通过四个命令按钮Command1-Command4，在图片框Picture1内分别实现画点、画

4、线、画圆、擦除等功能。13. 编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按钮2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。14. 编一程序：用三个文本框分别输入a、b、c，求一元二次方程ax2+bx+c=0的解x1和x2，只包括实根。15. 编一程序：利用输入对话框输入两个正整数，求最大公约数。答案1. Private Sub Command1_Click() Timer1.Interval = 5 Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.E

5、nabled = FalseEnd SubPrivate Sub Command3_Click() Timer1.Enabled = False Text1.Text = End SubPrivate Sub Timer1_Timer() Text1.Text = NowEnd Sub2. Private Sub Command1_Click()Dim i, s As IntegerFor i = 100 To 200 If i Mod 3 = 0 Then s = s + iNext iMsgBox (100-200之间所有可以被3整除的数的总和为： & Str(s)End Sub3. Pr

6、ivate Sub Command1_Click()Dim a(9) , i, j, m As IntegerFor i = 0 To 9 a(i) = Val(InputBox(第 & i + 1 & 个数：)Next iFor i = 0 To 9 For j = i + 1 To 9 If a(i) a(j) Then m = a(i) a(i) = a(j) a(j) = m End If Next jNext iFor i = 0 To 9 Print a(i);Next iEnd Sub4. Private Sub Command1_Click()If Check1.Value =

7、 1 And Check2.Value = 1 And Check3.Value = 0 ThenText1.Text = HelloEnd IfEnd Sub5. Private Sub Command1_Click()Dim i, j As IntegerFor i = 1 To 4 For j = 1 To (2 * i - 1) Print A; Next j PrintNext iFor i = 4 To 1 Step -1 For j = (2 * i - 1) To 1 Step -1 Print B; Next j PrintNext iEnd Sub6. Private Su

8、b Command4_Click() Dim n, k, i, temp As Integer n = InputBox(请输入一个正整数) k = Int(Sqr(n) i = 2 temp = 0 Do While i = k And temp = 0 If n Mod i = 0 Then temp = 1 Else i = i + 1 End If Loop If temp = 0 Then Print n; 是一个素数 Else Print n; 不是素数 End IfEnd Sub7. Private Sub Command1_Click()Dim n, p As Singlen

9、= Val(Text1.Text)Select Case n Case Is b Then c = a Else c = bEnd SubPrivate Sub Command1_Click() Dim a, b, c As Single a = Val(Text1.Text) b = Val(Text2.Text) Call c1(a, b, c) Print cEnd Sub9. Private Sub Command1_Click()Dim a, b, c, n As IntegerFor n = 100 To 999 a = Int(n / 100) b = Int(n - a * 1

10、00) / 10) c = n - (a * 100 + b * 10) If n = a 3 + b 3 + c 3 Then Print n; NextEnd Sub10. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu MenuA End IfEnd SubPrivate Sub B_Click(Index As Integer) Select Case Index Case 1 Form1.Back

11、Color = vbWhite Case 2 Form1.BackColor = vbYellow Case Else Form1.BackColor = vbRed End SelectEnd Sub11. Private Sub Command1_Click()Dim a(2), i, j, m As IntegerFor i = 0 To 2 a(i) = Val(InputBox(第 & i + 1 & 条边为：)Next iFor i = 0 To 2 For j = i + 1 To 2 If a(i) a(j) Then m = a(i) a(i) = a(j) a(j) = m

12、 End If Next jNext iIf a(0) + a(1) a(2) Then If a(0) 2 + a(1) 2 = a(2) 2 Then Print 能构成直角三角形,面积为： & a(0) * a(1) / 2 Else Print 能构成三角形，但不是直角三角形 End IfElse Print 不能构成三角形End IfEnd Sub12. Private Sub Command1_Click()Picture1.PSet (Picture1.Width / 2, Picture1.Height / 2)End SubPrivate Sub Command2_Click

13、()Picture1.Line (0, 0)-(Picture1.Width, Picture1.Height)End SubPrivate Sub Command3_Click()Picture1.Circle (Picture1.Width / 2, Picture1.Height / 2), 800End SubPrivate Sub Command4_Click()Picture1.ClsEnd Sub13. Dim a, b, c As StringPrivate Sub Command1_Click()a = InputBox(请输入第一个字符串)b = InputBox(请输入第二个字符串)End SubPrivate Sub Command2_Click()c = a + bMsgBox 连接后的字符串为： & c & 。长度为： & Len(c)End Sub14. Private Sub Command4_Click()a = Val(Text1.Text)b = Val(Text2.Text