Dimh0AsInteger
'ho,mo,so为初始时间
Dimm0AsInteger
Dims0AsInteger
PrivateSubCommand5_Click()
'用鼠标单击"上一题"
IfVal(Label1.Caption)>1Then
Data1.Recordset.MovePrevious
Else
Title="提示"
msg2$="这是第一题!"
MsgBoxmsg2$,0,Title
EndIf
EndSub
PrivateSubCommand7_Click()
'用鼠标单击"下一题"
IfVal(Label1.Caption)<224Then
'一共224道题
Data1.Recordset.MoveNext
Else
Title="提示"
msg2$="这是最后一题!"
MsgBoxmsg2$,0,Title
EndIf
EndSub
PrivateSubCommand8_Click()
'用鼠标单击"确定"
ch=UCase$(Trim$(Text2.Text))
ans=UCase$(Label4.Caption)
IfStrComp(ch,ans,1)=0Then
'如果与题目的正确答案一样
Title="提示"
msg1$="你做对了!"
msg2$="这是最后一题,你做对了"
IfVal(Label1.Caption)<224Then
MsgBoxmsg1$,0,Title
Else
MsgBoxmsg2$,0,Title
Close
EndIf
Else
Title="提示"
msg1$="你做错了!"
msg2$="这是最后一题,你做错了"
IfVal(Label1.Caption)<224Then
MsgBoxmsg1$,0,Title
Else
MsgBoxmsg2$,0,Title
Close
EndIf
EndIf
Text2.Text=""
'把第二个文本框的内容变空
EndSub
PrivateSubCommand9_Click()
'用鼠标单击"答案"
an=Label4.Caption'an为题目的正确答案
jx=Label6.Caption'jx为题目的答案说明
Title="答案提示"
msg2$="本题答案为:"&an jx
MsgBoxmsg2$,0,Title
EndSub
PrivateSubForm_Load()
Open"C:\gram\gram.txt"ForBinaryAs#1
'gram.txt文件里存放了练习题的内容
filelength=LOF(1)
Iffilelength>60000Then
MsgBox"Fileistoolong",16
ExitSub
EndIf
tmp$=String$(LOF(1),0)
Get#1,,tmp$
Text1.Text=tmp$
Close#1
h0=Val(Time$)
m0=Minute(Time$)
s0=Second(Time$)
Text2.Text=""
EndSub
PrivateSubText2_Change()
Text2.Text=UCase$(Text2.Text)
'把第二个文本框里的内容变成大写
EndSub
PrivateSubTimer1_Timer()
DimggAsInteger
DimhAsInteger
DimmAsInteger
DimsAsInteger
Dimx1AsInteger
Dimx2AsInteger
h=Val(Time$)
m=Minute(Time$)
s=Second(Time$)
gg=(h-h0)*3600 (m-m0)
*60 (s-s0)
x1=Int(gg/60)
x2=(gg-(Int(gg/60))*60)
Label7.Caption=Str(x1) "分"
Str(x2) "秒"
EndSub
六:在线帮助的应用
----我们这里讲的在线帮助是指模仿Windows的在线帮助,把各种练习题或试题以及它们的答案以在线帮助的形式在屏幕上呈现出来(见图三),并非是指在程序中加一个帮助菜单来告诉学生如何使用CAI软件
虽然VB工具箱(ToolBox)已经尽量将设计应用软件所需的工具包括在内,但是,为了不断扩充VB的功能,VB提供了一套开发工具(CustomControlDevelopmentKit)供第三方开发者来设计所需要的控件
}例如MciSendString()函数,用来向MCI接口传送MCI指令字符串;又如MciGetErrorString()函数,用来返回MCI错误代码的含义
因为我们想显示的只有一个图,所以不想多用另一个PictureBox来存原始图,而後再画到另一个PictureBox上,那只有用StdPicture物件来取代PictureBox(存来源图),但是BitBlt这个绘图函式需来源与目的的hDc,而StdPicture物件没有hDc,它只有一个Handle值,以本例来说,这Handle值便是图形的hBitmap值
1、创意短片
返回值
日期
实例:
我想知道以下日子各是那一天?
上个星期一:SpecificWeekday(Now,vbMonday,False)
下个星期六:SpecificWeekday(Now)
2000年9月9日的下一个星期五:SpecificWeekday("09/09/2000",vbFriday)->9.38e+5。