本文目录一览

1，vb60编程的做法附题目

建立一个10个变量的数组,用input输入数据,再用冒泡法进入排序就行了

vb60编程的做法附题目

2，基于VB60制作媒体播放器的步骤

1.新建一个工程；2.用ctrt+T使用windows Media player控件；3.插入控件；4.制作菜单；5.设置必要项；6.使用。QQ给我：代码哥给你发过来！
媒体播

基于VB60制作媒体播放器的步骤

3，计算机编程 VB60

Private Sub Command1_Click()Static a As StringIf a = "" Then a = 1a = a * 2Print (a)End Sub Private Sub Form_DblClick()Form1.BackColor = vbBlackForm1.ForeColor = vbRedEnd Sub
按钮1单机 按钮1.宽度=按钮1.宽度/2 按钮1.高度=按钮1.高度/2 翻译自己翻译
第一个用控件的width和higth属性,第二个用窗体的backcolor和设置前景色那个属性（忘了怎么写那个词了）

计算机编程 VB60

4，vb60编程怎么做呀

用基本算法里的冒泡法就可以了 这里写一个简单的你先试验看看。 Private Sub Command1_Click() Dim a(0 To 2) As Integer a(0) = InputBox("输入第一个数字", 输入, 0) a(1) = InputBox("输入第二个数字", 输入, 0) a(2) = InputBox("输入第三个数字", 输入, 0) For j = 1 To 2 For i = 0 To 2 - j If a(i) < a(i + 1) Then t = a(i): a(i) = a(i + 1): a(i + 1) = t Next i Next j Text1.Text = a(0) & a(1) & a(2) End Sub
IntMax = IIf((IntA > IntB), IntA, IntB) IntMax = IIf((IntC > IntMax), IntC, IntMax)

5，如何用VB60编写一个程序

int a,b,ca=inputbox("")b=inputbox("")c=a*bprint c你试试这个对不对
Dim a As Double Dim tmp Dim s As Double Dim l As Double tmp = InputBox("输入边长", "输入边长") If IsNumeric(tmp) = False Then MsgBox "错误", vbOKOnly + vbInformation, "错误" Exit Sub End If a = Int(tmp) s = a * a l = 4 * a MsgBox "面积为" & s & Chr(10) & "周长为" & l, vbOKOnly, "边长为" & a & "的正方形"
Private Sub Command1_Click()Dim a As StringDim b As Integera = InputBox("请输入长")b = InputBox("请输入宽")MsgBox "面积=" & a * bMsgBox "周长=" & (a + b) * 2End Sub
Private Sub Form_Click()Dim a As Stringa = InputBox("请输入正方形的边长")print "正方形的面积=" & a * bprint "正方形的周长=" & 4 * aEnd Sub
Private Sub command1_click()Dim a, b, c As Double1 a = InputBox("请输入正方形的边长。")If IsNumeric(a) = False ThenMsgBox "错误的数据！请重新输入。", vbOKOnly + vbExclamation, "错误！": GoTo 1End Ifb = 4 * ac = a ^ 2MsgBox "周长为：" + Str(b) + vbCrLf + "面积为：" + Str(c), vbInformation, "边长为" + a + "的正方形的"End Sub即可

文章TAG：程序  程序设计  设计  实训  vb60程序设计实训教程  
下一篇