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"