VB考试答案 laikintakWord格式文档下载.docx
- 文档编号:7312780
- 上传时间:2023-05-08
- 格式:DOCX
- 页数:40
- 大小:26.94KB
VB考试答案 laikintakWord格式文档下载.docx
《VB考试答案 laikintakWord格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB考试答案 laikintakWord格式文档下载.docx(40页珍藏版)》请在冰点文库上搜索。
实验29-2
字符形式的转换
Button1_Click(ByVal
System.Object
System.EventArgs
)
Button1.Click
a
Short
b
Single
c
Integer
d
Date
e1
f
Boolean
g
h
Double
i
j(4,3)
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&
b&
c&
d&
e1&
f&
g&
h&
i&
j(0,0))
函数的运算使用
Button2_Click(ByVal
Button2.Click
x21,x22,x23,x24
x25,x27,x28
x26
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(
3)=
And
(5>
x28=
Not
(6>
2)
Or
(7<
9)
MsgBox(x21&
x22&
x23&
x24&
x25&
x26&
x27&
x28)
随机数的产生
Button3_Click(ByVal
Button3.Click
y
y=Int(Rnd()*100)
MsgBox(y)
字符长度的测定
Button4_Click(ByVal
Button4.Click
y1
y=
VB程?
?
序?
设?
计?
语?
言?
y1=Len(y)
MsgBox(y&
长?
度?
为a"
y1)
字符位置的测定
Button5_Click(ByVal
Button5.Click
y=InStr(
abcstudent"
stu"
Button6_Click(ByVal
Button6.Click
y=Trim(
VisualC++
MsgBox(
去?
除y左?
边?
空?
格?
y&
除y右?
Button7_Click(ByVal
Button7.Click
y1=Len(y)*2
字?
节?
数?
y为a"
Button8_Click(ByVal
Button8.Click
y,y1
我?
资?
料?
室?
查?
y1=StrReverse(y)
MsgBox(y1)
Button9_Click(ByVal
Button9.Click
y1=Mid(y,3,3)
Button10_Click(ByVal
Button10.Click
y1=Mid(y,7,2)
y1=Microsoft.VisualBasic.Right(y,2)
Button11_Click(ByVal
Button11.Click
Thisisabook"
y1=Mid(y,1,4)&
Space
(1)&
Mid(y,5,2)&
Mid(y,7,1)&
Mid(y,8)
Button12_Click(ByVal
Button12.Click
y=Asc(
Z"
Button13_Click(ByVal
Button13.Click
y1,y2,y3
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&
天?
Button14_Click(ByVal
Button14.Click
42897"
y1=Val(y)
a=MsgBox(y1,vbOKCancel)
If
vbOK=a
Then
MsgBox(a)
If
Button15_Click(ByVal
Button15.Click
y=3287.153
MsgBox(Format(y,
000.00"
))
Button16_Click(ByVal
Button16.Click
z1,z2,z3,z4
z5,z6,z7
z8
z1=45.632
z2=8246.25
z3=123.8
z4=45627
z5=
z6=
permanence"
z7=
teachers"
z8=#4/5/2004#
MsgBox(Format(z1,
00000.00"
)&
Format(z2,
Format(z3,
Format(z4,
Format(z5,
{0,-8}"
Format(z6,
Format(z7,
Format(z8,
d"
实验30-1
函数运算
String,b
String
c
x1
Single,x2
a=InputBox(
输?
入?
A"
y据YY"
,500,500)
b=InputBox(
B"
c=InputBox(
C"
x1=-b+
Math.Sqrt(b^2-4*a*c)/2/a
x2=-b-
x1="
Format(x1,
###.###"
x2="
Format(x2,
x
z
x=5
y=9
z=(x^3+x*y+y^3)/(2*x*y)
(x^3+x*y+y^3)/(2*x*y)="
z)
x=InputBox(
x"
Math.Log(20)+
Math
.Abs(x-16)
Math.Log(20)+Math.Abs(x-16)="
y)
y=0.231*x+1.36
0.231*x+1.36="
Const
Single
=9.81
v
Single,o
t
Single,s
v=InputBox(
初?
速?
o=InputBox(
角?
t=2*v*
Math.Sin(o*
.PI/180)/g
s=v*
Math.Sin(2*o*
落?
地?
所?
需?
时?
间?
t&
落?
运?
动?
的?
射?
程?
s)
实验30-2
If语句
x=Int(Rnd()*100)
Mod
2=0
MsgBox(x&
是?
偶?
y"
Else
奇?
Single,b
Single,x
Single,y
请?
a"
b"
c"
a>
b
x=a
y=b
x=b
y=a
c>
a
x=c
c<
y=c
最?
大?
x&
最?
小?
t
Single,f
t=InputBox(
t"
t<
120
f=0.06*t+2
f=0.06*t+2="
f)
f=0.06*t*0.85
f=0.06*t*0.85="
成?
绩?
x>
=90
ElseIf
=80
=70
=60
D"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB考试答案 laikintak VB 考试 答案