VisualBasic编程与应用作业1及答案

一、问答
1。什么是可视化编程和事件驱动？
答案:可视化编程:设计界面时，只需要将所需控件放在窗口的指定位置即可。整个界面设计过程基本不需要写代码。开发过程中看到的界面和程序运行时的界面基本一致。一般来说，可视化编程是指程序员在开发过程中可以看到界面的实际效果。
事件驱动:是指应用程序没有预定的执行路径，而是由程序运行过程中的事件决定的。2 .
。对象、事件和方法之间的关系是什么？
答:在VB编程中，一个功能可以通过触发一个对象事件，调用一个对象方法来完成，而这个对象方法必须基于一个对象。触发事件实际上是执行一个事件过程的代码段，其中可以随意调用对象方法，但不可能通过调用对象方法来触发事件。
[br/]3。属性和方法的区别和联系是什么？
回答:对象的属性是描述对象的一组特征。如设置名称、标题、颜色、大小等。对象的属性，有些可以在设计接口时通过属性窗口直接设置，有些可以在事件过程或通用过程代码中设置。对象方法是对对象执行某种操作的函数。设计界面的时候不能调用。一般可以在进程代码中随意调用，根据需要添加适当的参数。设置对象属性和调用对象方法可以在代码设计中完成。一般格式为:
对象名。属性名=属性值(设置对象属性)
对象名。方法名(调用对象方法)
4。在Visual Basic中，下列哪些可以用作变量名，哪些不可以？
4*Delta Alpha 4ABC AB丌ReadData
Filename a(a+b)Read
答:可以作为Visual Basic使用的变量名有:Alpha，Read data，Filename，Read。其他不能用作变量名。5 .
。Visual Basic中允许下列形式的数字吗？
地球25.74 3.457E-10.368 1.87 e+50
10 ∧( 1.256)2.5E 12e 3 0.258
答案:允许数为:3.457 e-10，. 368

6。指出下列Visual Basic表达式中的错误，写出正确的形式。
(1)+COS(28ο)
(2)-3/8+8 . int 24.8
(3)(8+6)∧(4÷—2)+sin(2 *)80-5(C+D)
(1)SQR(80)+COS(28 * 3.14159/180)
(2)(-3)/8+8将下列数学表达式写成Visual Basic表达式:
(1)Cos 2(C+D)
(2)5+(A+B)2
(3)Cos(3)(6)8e 3 ln 2
答案:(1)Cos(c+d)∧2或Cos(C+D)* Cos(C+D)
(2)5+(A+B)∧2或5+(A (7+B)
。
]8。设a=2，b=3，c=4，d=5，求下列表达式的值:
(1) A > B和CC
(2) 3 > 2 * B或A = C和BC或C > D
(3)不是AA+C
答案:(1)假
。9.写出以下函数的值
(1)LNT(-3.14159)(2)SQR(SQR(64))
(3)FIX(-3.14159)(4)INT(ABS(99-100)/2。Left("Hello "，2)(8)Val(" 16 year ")
(9)STR(-459.65)(10)LEN(" Hello ")
答:函数的值为:
(1)-4(2)2.822 " Hello "
(7)" He "(8)16
(9)" 459.65 "(10)5
II。编程问题。写个程序，算1+2。
回答:使用For循环语句，程序如下:
private subform _ click()
static sum as integer
For I = 1到100
sum = sum+I
next I
print sum
end sub
如果使用when循环语句，那么程序如下:
private subform _ click()
static sum as integer[/brBr/] END SUB

2。中国目前人口12亿，年增长率1%。写个程序算算多少年后会增加到16亿。
回答:过程如下:
Private subform _ click()
Dim P as double
Dim r as single
Dim N as integer
P = 12000000000
r = 0.01
While P = P+P * r
N = N+1
Wend
P = Int(P)
"若干年后，全国人口为:"；P
End Sub
运行程序，点击表单，输出结果为:
29年后，全国人口为:1601404641。
[br/]3。给定三角形的三条边，计算三角形的面积。编程，首先判断给定的三条边能否组成三角形。如果是，计算并输出三角形的面积，否则，重新输入。输入-1时结束程序。
答案:从几何上讲，三角形的两条边之和大于第三条边。因此，如果输入三角形的三条边中的两条边的和小于或等于另一条边的长度，则不能形成三角形。在这种情况下，给出适当的信息并要求重新输入。如果能形成三角形，则输出三角形的面积。
程序如下:
私有子form _ click ()
Dim A，B，C，S， As single
start:
a =输入框("请输入A边的长度")A = val(A)[/Br/]if A =-1 then end[/Br/]B =输入框("请输入B边的长度")[/br Br/] C =InputBox(″("请输入C边的长度")
c = val (c)
if a+b < = c或b+c < = a或c+a < = b then [/br 请重新输入“
goto start
End if
s =(a+b+c)/2
T = SPR(s *(s—a)*(s—b)*(s—c))”[T
End Sub
程序运行后，点击表单，将连续显示三个输入对话框。 在三个对话框中，分别输入三角形的三条边。程序首先判断输入的边能否形成三角形，然后决定后续的操作，用信息框显示信息或输出三角形的面积。当输入1、2、3时，会显示一个信息框，要求重新输入；如果输入8、7、6，输出结果是:
三角形的面积是:20.33316

4。税务部门征收所得税，规定如下:
(1)200元以内的收入免征；
(2)收入在200~400以内的，超过200元的部分按3%缴纳；
(3)收入超过400元的部分，按4%纳税；
(4)收入达到5000元以上时，将4%的税率改为5%。
程序实现上述操作。
回答:过程如下:
Private sub form _ click()
r = InputBox("请输入您的收入")
r = val (r)
如果r < = 400那么
ElseIf r > 200并且r < = 400那么
tax =(r—200)* 0.03
Else if r > 400并且r < 5000那么r；”应纳税”；税务
End Sub
程序运行后，点击表单，在输入对话框中输入收入，程序将输出税额。5 .
。写一个程序，打印出如下图的“数字金字塔”:
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
。
。
1 2 3 4 5 6回答:程序如下:
private subform _ click()
for I = 1 to 9 for j = 1 to 30-3 * I
print " "；
Next j
For k = 1 To I
Print k；
下一个k
For k = I—1对1 Step—1
Print k；
next k
print
next I
end sub
6。从键盘输入两个正整数m和n，求公因数。
回答:程序如下:
private subform _ Click()
Dim M，As integer
m =输入框("请输入M的值")
M = val(M)
m1 = M
n =输入框("请输入n的值")
n = val(n Do While n < > 0
remin = M Mod n
M = n
和”；n1；“的公因数是:“；M
End Sub
这个程序用相除法求两个正整数的公因数。程序运行后，在输入对话框中分别输入96和64。96和64输出结果的公因数是32
7。从键盘输入学生的学生证号和考试成绩，然后输出学生的学生证号和成绩。根据结果，将按照以下规定输出学生的评论:
成绩80 ~ 100 60 ~ 79 50 ~ 59 40 ~ 49 0 ~ 39
评论很好很好尚可差不及格
回答:程序如下:
私有子表单_ click()。Br/] n = Inputbox("请输入你的学号")
s = Inputbox("请输入分数")
如果s > = 80那么
msgbox "学号" &n& "分数为" &s& "， 很好”[br/]else If s > = 60和s msgbox "学号" &n& "得分为" &s& "，好”[br/]else If s > = 50和s msgbox "学号" &n& "得分为" &s& "一般"[br/]else If s > = 40和s msgbox "学号" &n& "，得分为" &s& "，差"/br/] else if s > = 0和s msgbox "学号" &n& "， 点击表单，在输入对话框中输入学号和分数，程序会在输出对话框中输出适当的注释。