VB考试答案 laikintak.docx
《VB考试答案 laikintak.docx》由会员分享，可在线阅读，更多相关《VB考试答案 laikintak.docx（40页珍藏版）》请在冰点文库上搜索。
VB考试答案laikintak
实验29-1
换行，inputbox、msgbox的使用
Private Sub Form1_Click（ByVal sender As Object, ByVal e As System.EventArgs） Handles Me.Click
Dim var1 As Integer,var2 As String
var1=12345
var2=InputBox（ "输入Var2=" , "输入对话框"）
MsgBox（var2&Chr（13）+Chr（10）& "var1=" &Str（var1））
'MsgBox（var2&vbCrLf&"var1="&Str（var1））
End Sub
实验29-2
字符形式的转换
Private Sub Button1_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button1.Click
Dim a As Short
Dim b As Single
Dim c As Integer
Dim d As Date
Dim e1 As String
Dim f As Boolean
Dim g As String
Dim h As Double
Dim i As Single
Dim j（4,3） As Integer
a=3.25
b=546.2
c=5383149
d=#12/31/2003#
e1= "ABCDEF"
f= False
g= "123456"
h=3.24E+100
i=1.2563E+15
j（0,0）=456
MsgBox（a&vbCrLf&b&vbCrLf&c&vbCrLf&d&vbCrLf&e1&vbCrLf&f&vbCrLf&g&vbCrLf&h&vbCrLf&i&vbCrLf&j（0,0））
End Sub
函数的运算使用
Private Sub Button2_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button2.Click
Dim x21,x22,x23,x24 As Single
Dim x25,x27,x28 As Boolean
Dim x26 As String
x21=Sqrt（3^2/（2*4））
x22=+Abs（0.123-3）
x23=-Sin（30）
x24=Exp（6）+Log（2.135）
x25=89&12<>8912
x26= "AB" +Str（32.56）+ "CD"
'x27=Mid（"student",5）="ent"And（5>2）
x27=Microsoft.VisualBasic.Right（ "student",3）= "ent" And （5>2）
x28= Not （6>2） Or （7<9）
MsgBox（x21&vbCrLf&x22&vbCrLf&x23&vbCrLf&x24&vbCrLf&x25&vbCrLf&x26&vbCrLf&x27&vbCrLf&x28）
End Sub
随机数的产生
Private Sub Button3_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button3.Click
Dim y As Integer
y=Int（Rnd（）*100）
MsgBox（y）
End Sub
字符长度的测定
Private Sub Button4_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button4.Click
Dim y As String
Dim y1 As Integer
y= "VB程?
?
序?
?
设?
?
?
计?
语?
?
言?
"
y1=Len（y）
MsgBox（y& "长?
?
度?
?
为a" &y1）
End Sub
字符位置的测定
Private Sub Button5_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button5.Click
Dim y As Integer
y=InStr（ "abcstudent", "stu" ）
MsgBox（y）
End Sub
Private Sub Button6_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button6.Click
Dim y As String
y=Trim（ " VisualC++ " ）
MsgBox（ "去?
?
?
除y左?
?
?
边?
?
空?
格?
" &y& "去?
?
?
除y右?
?
?
边?
?
空?
格?
"）
End Sub
Private Sub Button7_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button7.Click
Dim y As String
Dim y1 As Integer
y= "VB程?
?
序?
?
设?
?
?
计?
语?
?
言?
"
y1=Len（y）*2
MsgBox（y& " 字?
?
节?
?
数?
y为a" &y1）
End Sub
Private Sub Button8_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button8.Click
Dim y,y1 As String
y= "我?
?
去?
?
?
资?
?
?
料?
?
室?
?
?
查?
?
资?
?
?
料?
?
"
y1=StrReverse（y）
MsgBox（y1）
End Sub
Private Sub Button9_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button9.Click
Dim y,y1 As String
y= "我?
?
去?
?
?
资?
?
?
料?
?
室?
?
?
查?
?
资?
?
?
料?
?
"
y1=Mid（y,3,3）
MsgBox（y1）
End Sub
Private Sub Button10_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button10.Click
Dim y,y1 As String
y= "我?
?
去?
?
?
资?
?
?
料?
?
室?
?
?
查?
?
资?
?
?
料?
?
"
y1=Mid（y,7,2）
'y1=Microsoft.VisualBasic.Right（y,2）
MsgBox（y1）
End Sub
Private Sub Button11_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button11.Click
Dim y,y1 As String
y= "Thisisabook"
y1=Mid（y,1,4）&Space
（1）&Mid（y,5,2）&Space
（1）&Mid（y,7,1）&Space
（1）&Mid（y,8）
MsgBox（y1）
End Sub
Private Sub Button12_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button12.Click
Dim y As Integer
y=Asc（ "Z"）
MsgBox（y）
End Sub
Private Sub Button13_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button13.Click
Dim y As Date
Dim y1,y2,y3 As Integer
y= "2013-1-1"
y1=DateDiff（ DateInterval.Month,y,Today（））
y2=DateDiff（ DateInterval.WeekOfYear,y,Today（））
y3=DateDiff（ DateInterval.Day,y,Today（））
MsgBox（y1& "个?
月?
" &y2& "个?
星?
期?
?
" &y3& "天?
?
?
"）
End Sub
Private Sub Button14_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button14.Click
Dim y As String
Dim a As Integer
Dim y1 As Integer
y= "42897"
y1=Val（y）
a=MsgBox（y1,vbOKCancel）
If vbOK=a Then
MsgBox（a）
End If
End Sub
Private Sub Button15_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button15.Click
Dim y As Single
y=3287.153
MsgBox（Format（y, "000.00"））
End Sub
Private Sub Button16_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button16.Click
Dim z1,z2,z3,z4 As Single
Dim z5,z6,z7 As String
Dim z8 As Date
z1=45.632
z2=8246.25
z3=123.8
z4=45627
z5= "student"
z6= "permanence"
z7= "teachers"
z8=#4/5/2004#
MsgBox（Format（z1, "00000.00"）& "" &Format（z2, "00000.00"）& "" &Format（z3, "00000.00" ）& "" &Format（z4, "00000.00" ）&vbCrLf&Format（z5, "{0,-8}"）& "" &Format（z6, "{0,-8}" ）& "" &Format（z7, "{0,-8}"）& "" &Format（z8, "d"））
End Sub
实验30-1
函数运算
Private Sub Button1_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button1.Click
Dim a As String,b As String ,c As String
Dim x1 As Single,x2 As Single
a=InputBox（ "输?
?
入?
?
A", "输?
?
入?
?
数?
y据YY" ,,500,500）
b=InputBox（ "输?
?
入?
?
B", "输?
?
入?
?
数?
y据YY" ,,500,500）
c=InputBox（ "输?
?
入?
?
C", "输?
?
入?
?
数?
y据YY" ,,500,500）
x1=-b+ Math.Sqrt（b^2-4*a*c）/2/a
x2=-b- Math.Sqrt（b^2-4*a*c）/2/a
MsgBox（ "x1=" &Format（x1, "###.###" ）& " x2=" &Format（x2, "###.###" ））
End Sub
Private Sub Button2_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button2.Click
Dim x As Integer
Dim y As Integer
Dim z As Single
x=5
y=9
z=（x^3+x*y+y^3）/（2*x*y）
MsgBox（ "（x^3+x*y+y^3）/（2*x*y）=" &z）
End Sub
Private Sub Button3_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button3.Click
Dim x As Single
Dim y As Single
x=InputBox（ "输?
?
入?
?
x"）
y= Math.Log（20）+ Math .Abs（x-16）
MsgBox（ "Math.Log（20）+Math.Abs（x-16）=" &y）
End Sub
Private Sub Button4_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button4.Click
Dim x As Single
Dim y As Single
x=InputBox（ "输?
?
入?
?
x"）
y=0.231*x+1.36
MsgBox（ "0.231*x+1.36=" &y）
End Sub
Private Sub Button5_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button5.Click
Const g As Single =9.81
Dim v As Single,o As Single ,t As Single,s As Single
v=InputBox（ "输?
?
入?
?
初?
速?
?
度?
?
" ）
o=InputBox（ "输?
?
入?
?
角?
度?
?
" ）
t=2*v* Math.Sin（o* Math .PI/180）/g
s=v* Math.Sin（2*o* Math .PI/180）/g
MsgBox（ "落?
地?
?
所?
?
需?
?
时?
?
?
间?
" &t& " 落?
地?
?
时?
?
?
运?
动?
?
的?
?
射?
?
程?
?
" &s）
End Sub
实验30-2
If语句
Private Sub Button1_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button1.Click
Dim x As Integer
x=Int（Rnd（）*100）
If x Mod 2=0 Then
MsgBox（x& "是?
?
偶?
数?
y" ）
Else
MsgBox（x& "是?
?
奇?
数?
y" ）
End If
End Sub
Private Sub Button2_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button2.Click
Dim a As Single,b As Single ,c As Single,x As Single,y As Single
a=InputBox（ "请?
输?
?
入?
?
a" ）
b=InputBox（ "请?
输?
?
入?
?
b" ）
c=InputBox（ "请?
输?
?
入?
?
c" ）
If a>b Then
x=a
y=b
Else
x=b
y=a
End If
If c>a Then
x=c
Else
If c y=c
End If
End If
MsgBox（ "最?
?
大?
?
?
数?
y" &x& " 最?
?
小?
数?
y" &y）
End Sub
Private Sub Button3_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button3.Click
Dim t As Single,f As Single
t=InputBox（ "请?
输?
?
入?
?
t" ）
If t<120 Then
f=0.06*t+2
MsgBox（ "f=0.06*t+2=" &f）
Else
f=0.06*t*0.85
MsgBox（ "f=0.06*t*0.85=" &f）
End If
End Sub
Private Sub Button4_Click（ByVal sender As System.Object , ByVal e As System.EventArgs ） Handles Button4.Click
Dim x As Single
Dim y As String
x=InputBox（ "请?
输?
?
入?
?
成?
?
绩?
?
" ）
If x>=90 Then
y= "A"
ElseIf x>=80 Then
y= "B"
ElseIf x>=70 Then
y= "C"
ElseIf x>=60 Then
y= "D"
升级会员 