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 +...

第一空: Command1.Caption="停止" Timer1.Enabled=True 第二空: Command1.Caption="开始" Timer1.Enabled=False

添加一个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

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...

form1,添加一个command,2个label,两个text Private Sub Command1_Click()If Text1 = "" Then MsgBox "账号为空!", vbInformation, "Information" Text1.SetFocusElse If Text1 "admin" Then '账号可自行修改 MsgBox "账号错误!", vbInforma...

这个是填空,代码呢?

If Combo1.Text = "左刀补" Then '左刀补怎么怎么ElseIf Combo1.Text = "右刀补" Then '右刀补怎么怎么End If

(1) Do (2)

VB 将这组数存入数组a(0 to 99) 中,代码自己写。假设有100个数 , dim i as integer,j as integer , k as integer ,n as integer,m as integer dim b() as integer '二维数组,用于存放比对结果 m=0 '用于计算有多少个数存在重复 for i =0 to 9...

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