医学VB实验练习题复习资料Word文件下载.docx
- 文档编号:20191712
- 上传时间:2023-01-17
- 格式:DOCX
- 页数:15
- 大小:16.72KB
医学VB实验练习题复习资料Word文件下载.docx
《医学VB实验练习题复习资料Word文件下载.docx》由会员分享,可在线阅读,更多相关《医学VB实验练习题复习资料Word文件下载.docx(15页珍藏版)》请在冰豆网上搜索。
Command1.Visible=True
2-3
Label1.BackColor=vbRed
Label2.BackColor=vbBlue
Label3.BackColor=vbGreen
Label4.BackColor=vbYellow
PrivateSubLabel1_Click()
Text1.ForeColor=Label1.BackColor
PrivateSubLabel2_Click()
Text1.ForeColor=Label2.BackColor
PrivateSubLabel3_Click()
Text1.ForeColor=Label3.BackColor
PrivateSubLabel4_Click()
Text1.ForeColor=Label4.BackColor
PrivateSubText1_Change()
实验三
3-1
DimRAsSingle
ConstPiAsSingle=3.1415926
R=Val(Text1)
Label3=Int(2*Pi*R*1000+0.5)/1000
Label5=Int(Pi*R^2*1000+0.5)/1000
3-2
DimLxAsLong,UxAsLong
Lx=Val(Text1)
Ux=Val(Text2)
Randomize
Label3=Int((Ux-Lx)*Rnd+Lx)
3-3
DimxAsInteger
x=Val(InputBox("
请输入一个整数!
))
Picture1.Cls
IfxMod2=0Then
Picture1.Print"
你输入的数"
;
x;
"
是偶数"
Else
是奇数"
EndIf
3-4
3-5
DimaAsDate
a=Now
Print"
输出结果为:
PrintFormat(a,"
hh:
mm:
ssAMPMdddd,yyyy-mm-dd"
)
Form1.FontSize=18
Command1.FontSize=15
实验四
4-1
Ifa=0Then
Ifb=0Then
MsgBox("
方程无解"
Else
r1=-c/b
方程有一个根为:
+Str(r1))
EndIf
d=b*b-4*a*c
Ifd>
0Then
r1=(-b+Sqr(d))/(2*a)
r2=(-b-Sqr(d))/(2*a)
方程有两个根为:
+Str(r1)+Chr(13)+"
+Str(r2))
ElseIfd=0Then
r1=-b/(2*a)
方程有两个相同根为:
方程无实根"
4-2
DimaAsDouble,bAsDouble
DimysAsString*1
a=Val(Text1)
b=Val(Text3)
ys=Text2
SelectCaseys
Case"
+"
Label4=a+b
-"
Label4=a-b
Label4=a*b
/"
MsgBox"
除数不能为0!
重新输入"
Text3.SetFocus
Text3.SelStart=0
Text3.SelLength=Len(Text3)
Label4=a/b
EndSelect
4-3
DimaAsSingle
DimbAsSingle
DimcAsSingle
DimtAsSingle
a=Val(InputBox("
请输入第一个数:
b=Val(InputBox("
请输入第二个数:
c=Val(InputBox("
请输入第三个数:
Label1="
输入的三个数为:
&
a&
、"
b&
c
Ifa<
bThent=a:
a=b:
b=t
cThen
t=c:
c=b:
b=a:
a=t
Ifb<
cThent=b:
b=c:
c=t
Label2="
排序后的结果为:
4-4
Text1.SelLength=1
DimzfAsString
DimzaAsInteger
zf=Text1
za=Asc(zf)
SelectCaseza
CaseAsc("
A"
)ToAsc("
Z"
Label3=Chr(za+32)
a"
z"
Label3=Chr(za-32)
CaseElse
Label3="
Text1.SetFocus
Text1.SelStart=0
Text1.MaxLength=1
实验五
5-1
DimnAsInteger,sumAsSingle
n=0
sum=0
Do
n=n+1
sum=sum+n^2
LoopUntilsum>
1000
n="
n
5-2
DimnAsInteger,iAsInteger
DimsumAsSingle,midAsSingle
n=Val(InputBox("
请输入n值"
mid=0
Fori=1Ton
mid=mid+i
sum=sum+mid
Nexti
Label4=n
Label5=sum
5-3
DimxAsInteger,maxAsInteger,minAsInteger
DimkAsInteger
Randomize
max=100
min=999
Fork=1To10
x=Int(Rnd*900+100)
Ifmax<
xThenmax=x
Ifmin>
xThenmin=x
Picture1.Printx
Nextk
Text1=max
Text2=min
5-4
实验六
6-1
Dimcj(1To10)AsSingle
DimsumAsSingle,iAsInteger
Cls
Fori=1To10
cj(i)=Val(InputBox("
请输入第"
i&
位同学的成绩:
sum=sum+cj(i)
Print"
这10位同学的成绩如下:
Printcj(i);
IfiMod5=0ThenPrint
平均成绩为:
Spc(3);
sum/i
6-2
Dima(5,5)AsInteger
DimsAsInteger
Fori=1To5
PrintTab(10);
Forj=1To5
a(i,j)=Int(Rnd*10)
Printa(i,j);
Nextj
s=0
Fori=2To5
Forj=1Toi-1
s=s+a(i,j)
Nextj,i
下三角元素之和为:
s
Fori=1To4
Forj=i+1To5
上三角元素之和为:
s=s+a(i,i)
主对角线元素之和为:
6-3
ReDimsl(1To6)
DimiAsInteger,jAsInteger,tAsInteger
Fori=1To6
sl(i)=Int(90*Rnd+10)
Forj=i+1To6
Ifsl(i)<
sl(j)Then
t=sl(i)
sl(i)=sl(j)
sl(j)=t
原数据序列是:
Printsl(i);
ReDimPreservesl(1To7)
DimnAsInteger
请输入一个两位数:
插入的数为:
Fori=6To1Step-1
Ifn<
sl(i)Then
ExitFor
sl(i+1)=sl(i)
sl(i+1)=n
新的数据序列是:
Fori=1To7
Next
6-4
实验七
7-1
7-2
DimaAsSingle,bAsSingle,cAsSingle
a=Val(InputBox("
b=Val(InputBox("
c=Val(InputBox("
输入的三个数是:
a;
b;
其中的最大值是:
Max3(a,b,c)
FunctionMax3(ByValXAsSingle,ByValYAsSingle,ByValZAsSingle)AsSingle
IfX>
=YAndX>
=ZThen
Max3=X
ElseIfY>
Max3=Y
Max3=Z
EndFunction
7-3
DimaAsString*1
a=InputBox("
请输入一个字符:
输入的字符是:
a
它是:
CallPd(a)
SubPd(ByValOsAsString)
DimaAsInteger
a=Asc(Os)
SelectCasea
Case48To57
数字字符"
Case65To90
大写字母"
Case97To122
小写字母"
其它字符"
EndSelect
7-4
DimaAsLong
a=Val(Text1)
Ifws1(a)=TrueThen
Label2=a&
是完数"
不是完数"
DimresAsBoolean
Ws2a,res
Ifres=TrueThen
SubWs2(ByValXAsLong,ByRefYAsBoolean)
DimiAsInteger,sumAsSingle
Y=False
sum=1
Fori=2ToInt(X/2)
IfXModi=0Thensum=sum+i
Nexti
IfX=sumThenY=True
Functionws1(ByValXAsLong)AsBoolean
ws1=False
IfX=sumThenws1=True
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 医学 VB 实验 练习题 复习资料
![提示](https://static.bdocx.com/images/bang_tan.gif)