kwrl.net
当前位置:首页 >> VB编程,在线等,急 >>

VB编程,在线等,急

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

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

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 sum as IntegerIf Val(Text1.Text)

Private Sub Command1_Click() zk = 0 jm = 1 j = 0 If Check1.Value = 1 Then zk = Text1 If Check2.Value = 1 Then jm = Text2: j = Text3 If Option1.Value = True Then m = Text4 * (1 - zk) Text5 = m - (m \ jm) * j End If If Option2.Va...

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

Else x=1 End If

'以下保存为 任务名称.frm VERSION 5.00 Begin VB.Form Form1 Caption = "计算机" ClientHeight = 4230 ClientLeft = 60 ClientTop = 750 ClientWidth = 3165 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 423...

Private Sub About_Click() Text1.Visible = TrueEnd SubPrivate Sub Bold_Click() Text1.FontBold = TrueEnd SubPrivate Sub Eliminate_Click() Text1.Text = ""End SubPrivate Sub End_Click() EndEnd SubPrivate Sub Form_Load() Text1.Text ...

Private Sub Command1_Click() List1.AddItem Combo1.Text List1.AddItem Text1.Text End Sub

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