很同意楼主的观点。我也很鄙视那些嫌分数少而不回答问题的人。我感觉那和大家都很憎恶的问路要钱没什么两样。
闲来无事编了一个程序,参考一下吧:
新建一工程,窗体名AlarmForm.
放置一个Timer,名字为Timer1。放置一个Label,名字为lblTime
代码如下:
Option Explicit
Dim AlarmTime
Const conMinimized = 1
Private Sub Form_Click()
AlarmTime = InputBox("输入启动闹钟的时间", "VB 闹钟", AlarmTime)
If AlarmTime = "" Then Exit Sub
If Not IsDate(AlarmTime) Then
MsgBox "您输入的时间无效。"
Else ' 从 InputBox 返回的字符串使有效时间,
AlarmTime = CDate(AlarmTime) ' 将它作为一个日期/时间值存储在 AlarmTime 中。
End If
End Sub
Private Sub Form_Load()
AlarmTime = ""
End Sub
Private Sub Form_Resize()
If WindowState = conMinimized Then ' 如果窗体被最小化, 在标题处显示时间。
SetCaptionTime
Else
Caption = "闹钟"
End If
End Sub
Private Sub SetCaptionTime()
Caption = Format(Time, "Medium Time") ' 使用中等时间格式显示时间。
End Sub
Private Sub Timer1_Timer()
Static AlarmSounded As Integer
If lblTime.Caption <> CStr(Time) Then
' 当前秒数与显示秒数不同。
If Time >= AlarmTime And Not AlarmSounded Then
Beep
MsgBox "启动闹钟在 " & Time
AlarmSounded = True
ElseIf Time < AlarmTime Then
AlarmSounded = False
End If
If WindowState = conMinimized Then
' 如果处于最小化状态, 每分钟都需更新窗体标题。
If Minute(CDate(Caption)) <> Minute(Time) Then SetCaptionTime
Else
' 否则每秒钟对标签的标题进行更新。
lblTime.Caption = Time
End If
End If
End Sub
楼主要努力啊!
#include
main()
{
int a,b,c,d,e,f;
FILE *p; //声明文件指针
p=fopen("C:\\123.txt","w+");//新建文件,文件名自定,保存路径自定注意\必须为\\转义字符
for(a=1;a<33;a++)
for(b=2;b<33;b++)
for(c=3;c<33;c++)
for(d=4;d<33;d++)
for(e=5;e<33;e++)
for(f=6;f<33;f++)
if(a{
fprintf(p,"\n%d,%d,%d,%d,%d,%d,%d",n,a,b,c,d,e,f);
}
}