kwrl.net
当前位置:首页 >> 怎么用VB做这个 在线等急 >>

怎么用VB做这个 在线等急

假如最上面那个文本框取名text1,下面依次nian、yue、ri 那么就直接这样写 text1.Text=Format$(yue.Text,"00") + "/" + Format$(ri.Text,"00") + "/" + nian

嗯很愿意帮助你怎么发给你呢

Private Sub Form_Load() Me.AutoRedraw = True Me.Width = 5000 Me.Height = 5500 Me.ForeColor = vbRed Me.FontSize = 12 Me.Scale (-10, 10)-(10, -10) For i = 0 To 3.1415926 Step 0.2 CurrentX = -Cos(i) * 4 - 4 CurrentY = Sin(i) * 4 +...

添加一个timer控件 代码如下: Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Me.Cls Me.Print Now Me.Caption = Now End Sub

Excel 的表格的值如果是value,貌似不能是“” 用text替代下试试,如果一定要用value,应该写成 If not ExcelSheet1.Cells(j, k).Value =nothing And ExcelSheet1.Cells(j, k).Value > 0 Then 我没有编译过你的代码,但我以前好像遇到过,试下吧,...

'供参考。朋友。界面如你图。复制代码过去就可以了。 Private Sub Command1_Click() Dim n As Integer, m As Integer m = 1 n = Val(Text1.Text) If n >= 1 And n

Dim t1 As Integer, t2 As Integer, sf As Integer, da As IntegerSub chuti()Randomizet1 = Int(Rnd * 90) + 10t2 = Int(Rnd * (t1 - 9)) + 10sf = Int(Rnd * 4)Select Case sfCase 0 Label1.Caption = t1 & " + " & t2 & " = " da = t1 + t2Ca...

第一题: Dim A As String, B As String, C As Integer, D As StringPrivate Sub Command1_Click()A = ""B = ""C = 0D = ""For i = 1 To 10 Step 1 B = Int((100 - 10 + 1) * Rnd + 10) A = A & "," & B If B Mod 3 = 0 Then C = C + 1 D = D & ...

通过Keypress事件做,Keyascii是Ascii吗,通过按下键盘系统会检测到他的Ascii值,再把它转换成你想要替换的就行了,很简单,不想帮你写,自己动手丰衣足食吧。

'给你写了个,在VB6中测试成功 Option Explicit Private Function GetWH(ByVal dLong As Double, ByVal dSqr As Double, _ ByRef W As Double, ByRef H As Double) As Boolean On Error GoTo ERR1 H = Sqr((1 / 16) * dLong ^ 2 - dSqr) + (1 / 4...

网站首页 | 网站地图
All rights reserved Powered by www.kwrl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com