二级计算机VB考试常用代码看完必过Word格式文档下载.docx
- 文档编号:14586412
- 上传时间:2022-10-23
- 格式:DOCX
- 页数:35
- 大小:21.76KB
二级计算机VB考试常用代码看完必过Word格式文档下载.docx
《二级计算机VB考试常用代码看完必过Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《二级计算机VB考试常用代码看完必过Word格式文档下载.docx(35页珍藏版)》请在冰豆网上搜索。
PrivateSubCommand1_Click()
Dimdays%,month%,year%,day1_1%,n%
Staticmonth_daysAsVariant
month_days=Array(31,28,31,30,31,30,31,31,30,31,30,31)
Fork=0To6
IfOption1(k).Value=TrueThen
day1_1=k
Nextkdays=0month=Text2year=Text1
month_days
(2)=IIf(leap_year(year),29,?
)
'
==计算到要显示月历的月份之前共有多少天==
Fork=?
Tomonth-1
days=days+month_days(k)Nextk
====计算要显示月历的月份的第1天是星期几=====
n=(daysMod7+day1_1)Mod7
================输出月历==================
Picture1.Cls
Picture1.Print"
SUNMONTUEWEDTHUFRISAT"
Fork=1Tomonth_days(month)
Picture1.PrintTab(5*n+1);
k;
n=n+1
Ifn=7ThenPicture1.Print
n=?
EndIfNextkEndSub
==============判断闰年==================
PrivateFunctionleap_year(?
AsInteger)AsBoolean
leap_year=(yearMod4=0AndyearMod100<
>
0OryearMod400=0)
EndFunction
PrivateSubOption1_Click(IndexAsInteger)EndSub
3
PrivateTyperec
nameAsString*3MathAsInteger
ChineseAsIntegerEnglishAsIntegerEndType
Dima(20)Asrec,numAsInteger,nAsInteger
PrivateSubreaddata()
OpenApp.Path&
"
\in5.txt"
ForInputAs#1
k=1DoWhileNotEOF
(1)
Input#1,a(k).name,a(k).Math,a(k).Chinese,a(k).English
k=k+1LoopClose#1
num=?
EndSub
n=1putdatanEndSub
PrivateSubCommand2_Click()n=n+1putdatanEndSub
PrivateSubCommand3_Click()
putdatanEndSub
PrivateSubCommand4_Click()
n=numputdatanEndSub
PrivateSubForm_Load()
ReaddataCommand1_ClickEndSub
PrivateSubputdata(?
AsInteger)
Label1.Caption="
第"
&
k&
条记录"
Text1=a(k).nameText2=a(k).MathText3=a(k).Chinese
Text4=a(k).English
Text5=a(k).Math+a(k).Chinese+a(k).English
SetEnabled?
PrivateSubSetEnabled(mAsInteger)
Command1.Enabled=IIf(m=1,False,True)
Command2.Enabled=IIf(m=num,False,True)
Command3.Enabled=IIf(m=1,False,True)
Command4.Enabled=IIf(?
)EndSub
第二套
Command1.Caption="
开始"
Command2.Caption="
停止"
Timer1.Interval=100Timer1.Enabled=False
EndSub
Command1.Caption=?
Timer1.Enabled=True
Command1.Enabled=?
Command2.Enabled=True
PrivateSubCommand2_Click()
Timer1.Enabled=FalseCommand2.Enabled=False
PrivateSubTimer1_Timer()
IfHScroll1.Value<
HScroll1.MaxThen
HScroll1.Value=?
st1=Trim(?
n=1st2=UCase(Left(st1,1))
DoWhilen<
=Len(st1)IfMid(st1,n,1)<
Then
st2=?
Mid(st1,n+1,1)n=n+1
IfMid(st1,n,1)="
st2=st2&
UCase(Mid(st1,n+1,1))
Loop
Text2.Text=?
Functionprime(ByValnAsInteger)AsBoolean
******考生编写******
************************
PrivateSubForm_Click()
\out5.txt"
ForOutputAs#1
Print#1,Text1.Text
Close1
第三套
PrivateSubDir1_Change()
=?
PrivateSubDrive1_Change()
Dir1.Path=?
PrivateSub()
Label2.Caption=
PrivateSubOption1_Click(IndexAsInteger)
If?
=0Then
Drive1.Drive="
c:
\"
="
*.*"
Dima(5,5)AsString
DimsAsString
Randomize
Fori=1To5
Forj=1To5
a(i,j)=Chr(Rnd*(90-65)+65)
s=s+?
+"
Next
s=s&
Chr(13)&
Chr(10)
Text1=?
MaxI=1
MaxJ=1
Max=Asc(a(1,1))
>
MaxThen
Max=Asc(a(i,j))
MaxI=i
MaxJ=j
Text2=Chr(?
)&
Str(MaxI)&
Str(MaxJ)
Dima(5,5)AsLong
Dimb(5,5)AsLong
For?
As#1
Input#1,?
s=s+Str(a(i,j))
s=s+Chr(13)+Chr(10)
Text1=s
?
===============以下由考生编写=================
===========考生编写程序结束======================
=======以下由考生编写===========================
============考生编写程序结束=========================
Print#1,Label2.Caption
Close#1
第四套
Text2.Locked=False
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 二级 计算机 VB 考试 常用 代码 看完