Private Sub Command1_Click()
Dim i As Long
For i = 1 To 9
PaiXu i
Next
Text2.Text = ""
For i = 0 To 9
Text2.Text = Text2.Text & s(i) & ","
Next
End Sub
Private Sub Form_Load()
Dim i As Long
Text1 = ""
Text2.Text = ""
Randomize
For i = 0 To 9
s(i) = Fix(Rnd() * 90 + 10)
Text1.Text = Text1.Text & s(i) & ","
Next
End Sub
Public Sub MaxS(a As Long, b As Long)
Dim c As Long
If b < a Then
c = a
a = b
b = c
End If
End Sub
Public Sub PaiXu(n As Long)
Dim i As Long
DoEvents
If n < 0 Or n > 8 Then Exit Sub
MaxS s(n), s(n + 1)
PaiXu n - 1
End Sub本回答被网友采纳
vb程序设计 简单 如何通过命令按钮 把文本框中的文字变成粗体?
1、打开VB软件，在窗体上面，添加两个文本框，如下图所示。2、单击文本框，在属性窗口分别设置文本框的属性，清空文本的内容，如下图所示。3、在窗体上面，添加一个命令按钮，如下图所示。4、单击命令按钮，在属性窗口中，设置命令按钮的属性，如下图所示。5、双击命令按钮，编写其代码，如下图所示。...
运行时vb如何在文本框获得焦点
1、打开VB软件，在窗体上面添加两个文本框，如下图所示。2、分别设置两个文本框的属性，清空文本框的内容，如下图所示。3、在窗体上，添加两个命令按钮，如下图所示。4、分别设置两个文本框的属性，分别命名为“左”、“右”，如下图所示。5、双击名称为“左”的命令按钮，编辑其代码，如下图所...
用vb设计一段程序,2个文本框中输入汉字,点击确定后,分别录入excel表格中...
X = Application.InputBox("请输入第1段文字")Y = Application.InputBox("请输入第2段文字")[A1] = X [B1] = Y End Sub
想设计一个简单的vb程序,高手帮忙
StartUpPosition = 3 '窗口缺省 Begin VB.ListBox List1 Height = 1500 ItemData = "Form1.frx":0000 Left = 600 List = "Form1.frx":0002 TabIndex = 8 Top = 1200 Width = 2415 End Begin VB.CommandButton Command3 Caption = "删...
...窗体中有2个标签、2个文本框、1个复选框和1个命令按
'标鉴框没有用上 示例代码如下：Private Sub Command1_Click()If Check1.Value = 1 Then If Text1.Text = Text2.Text Then MsgBox "相等"Else MsgBox "不相等 "End If Else If UCase(Text1.Text) = UCase(Text2.Text) Then MsgBox "相等"Else MsgBox "不相等"End If End If End Sub ...
VB的Visible属性的简单探讨
打开VB软件，新建一个标准EXE工程。在窗口上放两个命令按钮，一个文本框，将两个按钮的Caption改为按钮1，按钮2。将文本框的名称改为A。点击按钮1进入，输入代码A.Visible=false,意思就是将文本框设为不可见。 点击按钮2进入，输入代码A.Visible=true,意思就是讲文本框设为可见。好，现在点击运行调试...
怎样用VB设计一个程序计算正方形的面积?
文本框1（Text1，用于输入边长a），文本框2（Text2，用于输出面积S），按钮（Button1，用于点击计算）。\\x0d\\x0aPrivate Sub Button1_Click()\\x0d\\x0aDim a, S as Double\\x0d\\x0aa=Text1.text\\x0d\\x0aS=a*a\\x0d\\x0aText2.text=S\\x0d\\x0aEnd Sub ...
(vb程序设计)求代码:设计一个运行界面如下图所示的程序,要求单击单选...
If Check1.Value Then Text1.Font.Bold = True Else Text1.Font.Bold = False End If End Sub Private Sub Check2_Click()If Check2.Value Then Text1.Font.Italic = True Else Text1.Font.Italic = False End If End Sub Private Sub Check3_Click()If Check3.Value Then Text1.Font....
毕业设计要用vb作一个程序 本人vb新手 希望有vb大侠能帮帮忙 指导我一...
也就是直观的编程方法.在VB中引入了控件的概念,各种各样的按钮,文本框,选择框等.VB把这些控件模式化,并且每个控件都由若干属性来控制其外观,工作方法.这样,采用Visual方法无需编写大量代码去描述界面元素的外观和位置,而只要把预先建立的控件加到屏幕上即可.就像使用画图之类的绘图程序,通过选择画图工具来画图一样。
VB程序设计: 设计程序,窗体上包含一个文本框和一个标签,当在文本框输...
Private Sub Text1_Change()s = Text1 Label1 = Len(s)End Sub
