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

怎么用VB做这个 在线等急

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

做好的例子 https://pan.baidu.com/s/1mhJJY1i

怎么发给你???????????

Private Sub Command1_Click() Dim a(1 To 20) As Integer For i = 1 To 20 a(i) = i s = s + a(i) Next i For i = 1 To 20 If a(i) < 10 Then Print Space(2) & a(i) & Space(1); Else Print a(i); End If If i Mod 5 = 0 Then Print Next i Pr...

Dim a(1 To 60) As IntegerPrivate Sub Command1_Click() For i = 1 To 59 For j = i + 1 To 60 If a(j) < a(i) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i For i = 1 To 60 Print a(i); If i Mod 20 = 0 Then Print Next iEnd S...

'运行效果如图,代码如下'这题目有难度,'若用动态二维数组不断扩充的写法可再研究下Dim dj As IntegerDim arr() As StringPrivate Sub command1_click()Dim a As Stringdj = dj + 1If dj >= 1 ThenReDim Preserve arr(dj * 5)arr(((dj - 1) * 5...

就是最简单的html代码了!!这有什么难度》?????

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

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

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

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