没有合适的资源?快使用搜索试试~ 我知道了~
VB考试答案laikintak参考.pdf
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 199 浏览量
2021-12-26
11:05:50
上传
评论
收藏 39KB PDF 举报
温馨提示
试读
27页
VB考试答案laikintak参考.pdf
资源推荐
资源详情
资源评论
实验 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 Butt
on1.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 Butto
n2.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 Butto
n3.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 Butto
n4.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 Butto
n5.Click
Dim y As Integer
y = InStr( "abc student", "stu" )
MsgBox(y)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Butto
n6.Click
Dim y As String
y = Trim( " Visual C ++ " )
MsgBox( "去???除 y 左???边 ??空?格?" & y & "去 ???除 y 右 ???边 ??空?格?")
End Sub
Private Sub Button7_Click(ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Butto
n7.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 Butto
n8.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 Butto
n9.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 Butt
on10.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 Butt
on11.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 Butt
on12.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 Butt
on13.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 Butt
on14.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 Butt
on15.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 Butt
on16.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 Butt
on1.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 Butto
n2.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
剩余26页未读,继续阅读
资源评论
cwp36199360
- 粉丝: 1
- 资源: 11万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功