下面为具体过程，附件中是源代码
1。创建VB工程，在窗体form1中绘三个Label控件，将其中一个的Name属性设置为Label
2。粘贴下列代码（已有详细注释）
------------------------此行以下为代码------------------------
Public Class Form1
Private Sub Form1_Load(ByVal sender As System。
Object, ByVal e As System。EventArgs) Handles MyBase。Load
Dim Timenow As Date
Dim StrTimeNow As String
Dim StrTimeTest As String = "2006-08-28"
'设置中考时间，我不知道你们的中考日期，我们这里是每年6月20日
Dim Count As Integer = 1
Timenow = Now()
'获取当前时间
StrTimeNow = Format(Timenow, "yyyy-MM-dd")
'将当前时间以yyyy-MM - dd形式转化为字符串, 如2006年1月1日转化为2006 - 1 - 1)
While StrTimeNow <> StrTimeTest
'如果当前日期不等于中考日期
Timenow = DateAdd("d", 1, Timenow)
'当前日期增加一天
StrTimeNow = Format(Timenow, "yyyy-MM-dd")
'将当前时间以yyyy-MM - dd形式转化为字符串
Count = Count + 1
'计数器加一
End While
Label。
Text = (Count - 1) & vbCrLf
'打印计数器-1, 便是倒计时天数
End Sub
End Class
------------------------此行以上为代码------------------------。
问：VB与Matlab混合编程时，如何让matlab界面隐藏
答：在Api浏览器中找findwindow()函数和showwindow()函数，然后用 dim a as long a= Findwindow(vbnullstr...详情>>
答：你好，你直接按键盘 vb12 就好了。详情>>
