VisualBasic编程与应用作业1及答案第2页_计算机等级考试_无忧考网
VisualBasic编程与应用作业1及答案[2]
11:33 来源：无忧考网
计算机等级网权威发布VisualBasic编程与应用作业1及答案，更多VisualBasic编程与应用作业1及答案相关信息请访问计算机等级考试网。
(3) Fix(-3.14159) (4) Int(Abs(99-100)/2) (5) Sgn(7*3+2) (6) Lcase(“Hello”)
(7) Left(“Hello”,2) (8) Val(“16 Year”)
(9) Str(-459.65) (10)Len(“Hello”) 解答：函数的值为：
（1）-4 （2）2.828427
(3) C3 (4) 0
(5) 1 (6) “hello”
(7) “He” (8) 16
(9) “459.65” (10) 5
二、编程题 1．编写程序，计算1+2+3+4+…+100。 解答：使用For循环语句，程序如下： Private Sub Form_Click( )
Static Sum As Integer
For I =1 To 100
Sum = Sum + I
End Sub 程序运行后，单击窗体，输出结果为：5050。 如果使用当循环语句，则程序如下：
Private Sub Form_Click( )
Static Sum As Integer
While i<=100
2．我国现有人口为12亿，设年增长率为1%，编写程序，计算多少年后增加到16亿。 解答：程序如下： Private Sub Form_Click( )
Dim p As Double
Dim r As Single
Dim n As Integer
P = P + P* r
P = Int(P)
Print N;″年后，全国人口为：″；P
运行程序，单击窗体，输出结果为：
29年后，全国人口为：。
3．给定三角形的三条边长，计算三角形的面积。编写程序，首先判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 解答：从几何学可知，三角形的 两边之和大于第三边。因此，如果输入的三角形的三条边中两边之和小于或等于另一边长，则不能构成三角形。在这种情况下，给出适当的信息，并要求重新输入。如果能构成三角形，则输出该三角形的面积。 程序如下： Private Sub Form_Click( )
Dim a,b,c,s,t As Single Start:
A = InputBox (″请输入A边的边长″) A = Val (a)
If a =-1 Then End
B = InputBox (″请输入B边的边长″)
B = Val (b)
C =InputBox(″请输入C边的边长″)
C = Val (c)
If a + b < = c Or b + c < = a Or c + a < = b Then
MsgBox ″所输入的值不能构成三角形，请重新输入″
GoTo Start <B扫二维码下载作业帮
3亿+用户的选择
下载作业帮安装包
扫二维码下载作业帮
3亿+用户的选择
Private Sub Command1_Click() s = p(1) + p(2) + p(3) + p(4) PPrivate Sub Command1_Click()s = p(1) + p(2) + p(3) + p(4)PEnd SubPublic Function p(n As Integer)Static sumFor I = 1 To nsum = sum + INext Ip = sum End Function
作业帮用户
扫二维码下载作业帮
3亿+用户的选择
static sum 是静态的变量,他不会自动清空.p(1)=0+1=1;p(2)=sum+1+1=3;p(3)=sum+1+1+1=6;t同理p(4)=10;s=1+3+6+10=20.我把vb放下很久了.试着做一下.答案是：20.
为您推荐：
其他类似问题
扫描下载二维码Private Sub Form_Click() Dim s$, b() As Integer, a() As String, i%, Sum%, Ave#, m%, n% Open &C:&#92;stu_百度知道
Private Sub Form_Click() Dim s$, b() As Integer, a() As String, i%, Sum%, Ave#, m%, n% Open &C:&#92;stu
我有更好的答案
你的问题是什么？
为您推荐：
其他类似问题
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。点击两次的Sum=12 单击窗体后，Form1上的输出结果为8
17 （即c=8 k=17）
其它1条答案
附近的朋友等待您的帮助
包打听移动版vb题:private Sub Command1_Click() dim x as i_百度知道
vb题:private Sub Command1_Click() dim x as i
vb题:private Sub Command1_Click()
dim x as integer
static y as integer
call f(x,y)
Private Sub f1(byref x1 as integer,y1 as integer)
最后单击命令...
我有更好的答案
如果你不懂传地址，还是传值，这种题是看不懂的。 传地址变量的值会过程或函数里被改变并传回变量。本题变量x传地址给x1,其实x1就是x了，这时的计算为x=x+2=10,所以x=12标明byref的是传地址的；没有标明为传值byval,也没有标明为传地址的，默认为传地址的。所以第二个参数也是传地址的，计算过程和前面讲的一样。
采纳率：73%
来自团队：
为您推荐：
其他类似问题
sub的相关知识
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}