怎么用vb做一个简单的程序

加入标签Label1，Caption设置为“你好，请输入你的姓名”

加入文本框Text1，用来输入姓名的

加入标签Label2，按照你的要求设置字体属性，autosize属性设成true

分别加入确定，继续，结束按钮

以下是代码：

Private Sub Form_Load()

Me结束Visible = False

Me继续Visible = False

Label2Visible = False

End Sub

Private Sub 继续_Click()

Me结束Visible = False

Me继续Visible = False

Label2Visible = False

Me确定Visible = True

Label1Visible = True

Text1Visible = True

End Sub

Private Sub 结束_Click()

End

End Sub

Private Sub 确定_Click()

Label2Caption = Text1Text & "同学，你好，祝你学好vb程序设计"

Me结束Visible = True

Me继续Visible = True

Label2Visible = True

Label1Visible = False

Text1Visible = False

Me确定Visible = False

End Sub

'建立8个command1至8

Private Type WorkerInf

GH As String

Name As String

GZ As Single

End Type

Private Type StudentInf

Name As String

Numb As String

Chin As Single

Engl As Single

Math As Single

End Type

Dim A As String, B As String

Dim I As Integer, L As Integer, M As Integer

Private Sub Command1_Click()

Cls

A = InputBox("输入字符串", "字符串", "di1os430rfikr8")

Print "输入的字符串是：" + A

L = 0

For I = 1 To Len(A)

If Asc(Mid(A, I, 1)) > 47 And Asc(Mid(A, I, 1)) < 58 Then

L = L + 1

End If

Next

Print "字符串中所有十进制字符的个数是：" + Str(L) + "个"

End Sub

Private Sub Command2_Click()

Cls

A = InputBox("输入字符串", "字符串", "di1os430rfikr8")

Print "输入的字符串是："; A

B = ""

L = 0

For I = 1 To Len(A)

If Asc(Mid(A, I, 1)) < 47 Or Asc(Mid(A, I, 1)) > 58 Then

B = B + Mid(A, I, 1)

L = L + 1

End If

Next

Print "去掉字符串中所有十进制字符后剩余的字符串是：" + B + "长度：" + Str(L)

End Sub

Private Sub Command3_Click()

Cls

Dim Worker(100) As WorkerInf

I = 0

Do

I = I + 1

Worker(I)GH = InputBox("输入工号(结束--回车)", "第" + Str(I) + "位职工")

If Worker(I)GH = "" Then Exit Do

Worker(I)Name = InputBox("输入名字", "第" + Str(I) + "位职工", "0000")

Worker(I)GZ = InputBox("输入工资", "第" + Str(I) + "位职工", 0)

Print I, Worker(I)GH, Worker(I)Name, Worker(I)GZ

Loop

I = I - 1

If I > 0 Then

For L = 1 To I

For M = L To I

If Worker(L)GZ > Worker(M)GZ Then

Worker(I + 1)GH = Worker(M)GH

Worker(I + 1)Name = Worker(M)Name

Worker(I + 1)GZ = Worker(M)GZ

Worker(M)GH = Worker(L)GH

Worker(M)Name = Worker(L)Name

Worker(M)GZ = Worker(L)GZ

Worker(L)GH = Worker(I + 1)GH

Worker(L)Name = Worker(I + 1)Name

Worker(L)GZ = Worker(I + 1)GZ

End If

Next

Next

Print 序号, 工号, 姓名, 工资

For L = 1 To I

Print L, Worker(L)GH, Worker(L)Name, Worker(L)GZ

Next

End If

End Sub

Private Sub Command4_Click()

Cls

Dim Student(100) As StudentInf

I = 0

Do

I = I + 1

Student(I)Name = InputBox("输入姓名(结束--回车)", "第" + Str(I) + "位同学")

If Student(I)Name = "" Then Exit Do

Student(I)Numb = InputBox("输入学号", "第" + Str(I) + "位同学", "0001")

Student(I)Chin = InputBox("输入语文成绩", "第" + Str(I) + "位同学", 100)

Student(I)Engl = InputBox("输入英语成绩", "第" + Str(I) + "位同学", 100)

Student(I)Math = InputBox("输入数学成绩", "第" + Str(I) + "位同学", 100)

Print I, Student(I)Name, Student(I)Numb, Student(I)Chin, Student(I)Engl, Student(I)Math

Loop

I = I - 1

If I > 0 Then

Cls

Print 序号, 姓名, 学号, 语文成绩, 英语成绩, 数学成绩, 平均成绩

For L = 1 To I

Print L, Student(L)Name, Student(L)Numb, Student(L)Chin, Student(L)Engl, Student(L)Math, Format((Student(L)Chin + Student(L)Engl + Student(L)Math) / 3, "#0")

Next

End If

End Sub

Private Sub Command5_Click()

Cls

Dim Shzu(100) As Single

Dim Sz As Boolean

I = 0

Do

I = I + 1

A = InputBox("第" + Str(I) + "个元素(结束--回车)", "输入数组")

If A = "" Then Exit Do

For L = 1 To Len(A)

If (Asc(Mid(A, L, 1)) < 47 Or Asc(Mid(A, L, 1)) > 58) And Asc(Mid(A, L, 1)) <> 46 And Asc(Mid(A, 1, 1)) <> 45 Then

I = I - 1

Sz = False

Exit For

Else

Sz = True

End If

Next

If Sz = True Then

Shzu(I) = Val(A)

Print Shzu(I);

End If

Loop

I = I - 1

If I > 0 Then

Cls

For L = 1 To I

For M = L To I

If Shzu(M) < Shzu(L) Then

Shzu(I + 1) = Shzu(M)

Shzu(M) = Shzu(L)

Shzu(L) = Shzu(I + 1)

End If

Next

Print Shzu(L);

Next

Print

Do

B = InputBox("一个任意数字(结束--回车)", "输入一个插入数")

If B = "" Then Exit Do

For L = 1 To Len(B)

If (Asc(Mid(B, L, 1)) < 47 Or Asc(Mid(B, L, 1)) > 58) And Asc(Mid(B, L, 1)) <> 46 And Asc(Mid(B, 1, 1)) <> 45 Then

Sz = False

Exit For

Else

Sz = True

End If

Next

If Sz = True Then

Shzu(I + 1) = Val(B)

For L = 1 To I

If Shzu(L) > Shzu(I + 1) Then Exit For

Next

For M = 1 To L - 1

Print Shzu(M);

Next

Print "("; Shzu(I + 1); ")";

If L < I + 1 Then

For M = L To I

Print Shzu(M);

Next

End If

Print

End If

Loop

End If

End Sub

Private Sub Command6_Click()

Cls

Dim Juzhen(1 To 3, 1 To 3) As Single

Dim Sz As Boolean

Dim Sum As Single

For I = 1 To 3

For L = 1 To 3

Do

A = InputBox("第" + Str(I) + "行，第" + Str(L) + "列元素", "输入33矩阵", 0)

If A <> "" Then

For M = 1 To Len(A)

If (Asc(Mid(A, M, 1)) > 47 And Asc(Mid(A, M, 1)) < 58) Or Asc(Mid(A, M, 1)) = 46 Or Asc(Mid(A, 1, 1)) = 45 Then

Sz = True

Else

Sz = False

Exit For

End If

Next

If Sz = True Then Exit Do

End If

Loop

Juzhen(I, L) = Val(A)

Print Juzhen(I, L);

Next

Print

Next

Sum = 0

For I = 1 To 3

For L = 1 To 3

If I + L = 4 Or I = L Then

Sum = Sum + Juzhen(I, L)

End If

Next

Next

Print "对角线元素之和是："; Sum

End Sub

Private Sub Command7_Click()

Cls

Dim N As Byte, O As Byte, P As Byte

A = InputBox("输入字符串", "字符串", "di67bYnytUTnb tyT vbhj yuig1oUYGYUGFs43 0rUYYfikr8")

Print "输入字符串是：" + A

L = 0

M = 0

N = 0

O = 0

P = 0

For I = 1 To Len(A)

If Asc(Mid(A, I, 1)) >= 65 And Asc(Mid(A, I, 1)) <= 90 Then

L = L + 1

ElseIf Asc(Mid(A, I, 1)) >= 97 And Asc(Mid(A, I, 1)) <= 122 Then

M = M + 1

ElseIf Asc(Mid(A, I, 1)) = 32 Then

N = N + 1

ElseIf Asc(Mid(A, I, 1)) > 47 And Asc(Mid(A, I, 1)) < 58 Then

O = O + 1

Else

P = P + 1

End If

Next

Print "字符串总长度", "大写字符个数", "小写字符个数", "空格个数", "十进制字符数", "其它字符数"

Print Len(A), L, M, N, O, P

End Sub

Private Sub Command8_Click()

End

End Sub

Private Sub Form_Load()

Form1Width = 9000

Form1Height = 6000

Form1AutoRedraw = True

Print " 请选择题目："

Print

Print "1 从键盘上输入一个字符串，假定该字符串的长度不超过30。统计该字符串中所有十进制数字字符的个数。 "

Print

Print "2 编写程序，其功能是输入一个字符串，将其中的所有数字删除、输出改动后的字符串及其长度，"

Print " 例如输入ab123df345ADFx193，输出为abdfADFx 8。"

Print

Print "3 自定义一个职工数据类型，包含职工号、姓名和工资。声明一个职工类型的动态数组。输入n个职工的"

Print " 数据，要求按工资递增的顺序排序，并显示排序的结果，每个职工一行显示三个项信息。"

Print

Print "4 使用自定义数据类型输入学生的姓名、学号、语文分数、英语分数、数学分数，计算每名学生的平均成绩，"

Print "并显示各科成绩。"

Print

Print "5 有一个已安排好序的数组，从键盘上输入一个数，要求按原来排序的规律将它插入到数组中。"

Print

Print "6 求一个3X3矩阵对角线元素之和"

Print

Print "7 输入一行文字，统计其中大写字母，小写字母、空格、数字及其他字符各有多少个？"

Command1Caption = "第一题"

Command2Caption = "第二题"

Command3Caption = "第三题"

Command4Caption = "第四题"

Command5Caption = "第五题"

Command6Caption = "第六题"

Command7Caption = "第七题"

Command8Caption = "退出"

End Sub

'已经运行过

VB60测试通过

'利用随机函数产生60个100～200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出。

'1．将随机产生的60个整数按每行10个数输出到窗体或文本框中。

'2．将排好序的偶数和奇数分别输出到两个文本框中。

Dim RndArray(6, 10) As Integer

Dim OddArray() As Integer

Dim EvenArray() As Integer

Dim i, j As Integer

Dim m, n As Integer

Private Sub Cmd_Exit_Click()

'销毁数组

Unload Me

End Sub

Private Sub Cmd_Start_Click()

'除数化

MeTxt(0)Text = ""

MeTxt(1)Text = ""

MeTxt(2)Text = ""

ReDim OddArray(60)

ReDim EvenArray(60)

For i = 0 To 5 Step 1

For j = 0 To 9 Step 1

RndArray(i, j) = RndNuN(100, 200)

Next j

Next i

For i = 0 To 5 Step 1

For j = 0 To 8 Step 1

MeTxt(0)Text = MeTxt(0)Text + Trim(Str(RndArray(i, j))) + ","

Next j

MeTxt(0)Text = MeTxt(0)Text + Trim(Str(RndArray(i, j))) + vbCrLf

Next i

m = 0

n = 0

For i = 0 To 5 Step 1

For j = 0 To 9 Step 1

If RndArray(i, j) Mod 2 Then

OddArray(m) = RndArray(i, j)

m = m + 1

Else

EvenArray(n) = RndArray(i, j)

n = n + 1

End If

Next j

Next i

ReDim Preserve OddArray(m)

ReDim Preserve EvenArray(n)

DwComp OddArray(), m

UpComp EvenArray(), n

m = m - 1

n = n - 1

For i = 0 To m Step 1

MeTxt(1) = MeTxt(1) + Trim(Str(OddArray(i))) + ","

Next i

For i = 0 To n Step 1

MeTxt(2) = MeTxt(2) + Trim(Str(EvenArray(i))) + ","

Next i

End Sub

Public Function RndNuN(ByVal Min As Integer, ByVal Max As Integer)

RndNuN = Min + (Max - Min) Rnd

End Function

Public Function UpComp(ByRef parray() As Integer, ByVal num As Integer)

Dim temp As Integer

num = num - 2

For i = 0 To num Step 1

For j = 0 To num Step 1

If parray(j) > parray(j + 1) Then

temp = parray(j)

parray(j) = parray(j + 1)

parray(j + 1) = temp

End If

Next j

Next i

End Function

Public Function DwComp(ByRef parray() As Integer, ByVal num As Integer)

Dim temp As Integer

num = num - 2

For i = 0 To num Step 1

For j = 0 To num Step 1

If parray(j) < parray(j + 1) Then

temp = parray(j)

parray(j) = parray(j + 1)

parray(j + 1) = temp

End If

Next j

Next i

End Function

'利用随机函数产生100个10～99之间的随机整数，找出其中的素数，并将这些素数求和。

'1 将随机产生的100个整数存入数组，按每行10个数输出到窗体或文本框中。

'2 用Sub子过程或Function函数过程判断随机整数是否为素数。

'3 将素数按每行10个数在窗体或文本框中输出。

'4 将素数的个数以及求和结果出到窗体或文本框中。

Dim RndArray(10, 10) As Integer

Dim PrimArray() As Integer

Dim i, j As Integer

Dim m, n As Integer

Dim num As Integer

Dim sum As Integer

Private Sub Cmd_Click(Index As Integer)

If Index Then

Unload Me

Else

'初始化

MeTxt(0)Text = ""

MeTxt(1)Text = ""

MeTxt(2)Text = ""

MeTxt(3)Text = ""

For i = 0 To 9 Step 1

For j = 0 To 9 Step 1

RndArray(i, j) = RndNuN(10, 99)

Next j

Next i

For i = 0 To 9 Step 1

For j = 0 To 8 Step 1

MeTxt(0)Text = MeTxt(0)Text + Trim(Str(RndArray(i, j))) + ","

Next j

MeTxt(0)Text = MeTxt(0)Text + Trim(Str(RndArray(i, j))) + vbCrLf

Next i

m = 0

n = 0

num = 0

sum = 0

ReDim PrimArray(10, 10)

For i = 0 To 9 Step 1

For j = 0 To 9 Step 1

If IsPrime(RndArray(i, j)) Then

PrimArray(m, n) = RndArray(i, j)

MeTxt(1)Text = MeTxt(1)Text + Trim(Str(PrimArray(m, n))) + ","

sum = sum + PrimArray(m, n)

n = n + 1

If n > 9 Then

m = m + 1

n = 0

End If

num = num + 1

End If

Next j

Next i

MeTxt(2)Text = Trim(Str(num))

MeTxt(3)Text = Trim(Str(sum))

End If

End Sub

Public Function RndNuN(ByVal Min As Integer, ByVal Max As Integer)

RndNuN = Min + (Max - Min) Rnd

End Function

Public Function IsPrime(ByVal n As Integer) As Boolean

Dim a, b As Integer

IsPrime = False

If n Mod 2 Then

b = Sqr(n)

For a = 3 To b Step 2

If n Mod a = 0 Then

Exit Function

End If

Next a

IsPrime = True

End If

End Function

变量定义面变量名x,y换别x1y1等

Dim

x1

As

Integer

Private

Sub

Command1_Click()'+按钮

x1

=

x1

+

1

MeCaption

=

x1

End

Sub

Private

Sub

Command2_Click()'-按钮

x1=

x1

-

1

MeCaption

=

x1

End

Sub

Private Sub List1_Scroll()'这个就是我滚动条的事件

Text2Text = "等待选择"

End Sub

Private Sub Combo1_Click()'这个就是我下拉列表的事件

Text2Text = Combo1Text

End Sub

Private Sub Combo1_GotFocus()

Text2Text = "等待选择"

End Sub

Private Sub Combo1_Scroll()

Text2Text = "等待选择"

End Sub

Dim a As Single, b As Single, c As Single, d As Single, e As Single

Private Sub Command1_Click()

a = Val(Text1Text)

b = Val(Text2Text)

c = Val(Text3Text)

d = a b c

Text4Text = d

End Sub

Private Sub Command2_Click()

If d > 0 Then

e = e + d

End If

Text5Text = e

End Sub

Private Sub Command3_Click()

Text1Text = ""

Text2Text = ""

Text3Text = ""

Text4Text = ""

End Sub

以上就是关于怎么用vb做一个简单的程序全部的内容，包括:怎么用vb做一个简单的程序、vb简单程序··谢谢啊、用VB6.0设计简单程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！