编写VB程序语言设计

Private Type dbrec

Studno As String 6

Studname As String 8

English As Integer

Math As Integer

Computer As Integer

End Type

Private Sub Command1_Click()

Dim myrec As dbrec

h = FreeFile

Open "c:\Score1dat" For Random As h Len = Len(myrec)

i = 1

Do Until EOF(h)

Get #h, i, myrec

bjg = 0

If myrecComputer < 60 Then bjg = bjg + 1

If myrecEnglish < 60 Then bjg = bjg + 1

If myrecMath < 60 Then bjg = bjg + 1

If bjg >= 2 Then '两门上不及格，删除

myrecStudname = ""

myrecStudno = ""

Put #h, i, myrec

End If

Loop

Close h

End Sub

Private Sub Form_Load()

HScroll1Max = 30

HScroll1Min = 1

HScroll1LargeChange = 5

HScroll1SmallChange = 2

End Sub

Private Sub HScroll1_Change()

Text1Text = HScroll1Value

End Sub

Private Sub HScroll1_Scroll()

Text1FontSize = HScroll1Value

End Sub

1、创建控件组的方法

首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。

这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。

2、各控件组其属性设置如下：

设置效果如下图所示：

二、编写代码

Dim s1 As Single， s2 As Single， ysf As String

‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符

Private Sub Command1_Click（Index As Integer）

Text1Text = Text1Text & Command1（Index）Caption ’将command1的单击事件与文本框显示的内容连接

End Sub

Private Sub Command2_Click（）

Text1Text = Text1Text + “。”

If （InStr（Text1Text， “。”） = 1） Then ‘第一位不能为小数

Text1Text = “”

End If

If InStr（Text1Text， “。”） 《 Len（Text1Text） Then ’防止出现两个小数点

Text1Text = Left

（Text1Text， Len（Text1Text） - 1）

End If

End Sub

Private Sub

Command3_Click（）

s2 = Val（Text1Text） ‘开始加减乘除运算

Select Case ysf Case “+”

Text1Text = s1 + s2

Case “-”

Text1Text = s1 - s2

Case “”

Text1Text = s1 s2

Case “/”

If s2 = 0 Then

MsgBox “分母不能为零！”

Text1Text = “”

Else

Text1Text = s1 / s2 End If End Select

Text1 = IIf（Left（Text1Text， 1） = “。”， 0 & Text1Text， Text1Text） ‘

这个很关键，如果没有这个的话，得出小于1的小数前面没有0

End Sub

Private Sub Command4_Click（）

If Text1Text = “” Then ’文本为空就结束

Exit Sub

End If

Text1Text = Left（Text1Text， Len（Text1Text） - 1） ‘文本退一格

End Sub

Private Sub Command5_Click（）

Text1Text = “” ’清除当前框内文本

End Sub

Private Sub Command6_Click（Index As Integer）

s1 = Val（Text1Text） ‘将s1隐藏起来 ysf = Command6（Index）Caption

Text1Text = “”

End Sub

Private Sub Command7_Click（）

If Left（Text1Text， 1） 《》 “-” Then ’判断作为负数

Text1Text = “-” & Text1Text

Else

Text1Text = Right（Text1Text， Len（Text1Text） - 1）

End If

End Sub

Private Sub Command8_Click（）

Text1Text = Text1Text Text1Text ‘平方

End Sub

Visual Basic（VB）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。

参考链Visual Basic——百度百科接

在窗体中建立一个文本框text1,multiline属性为true,scrollBars属性为2－vertical

复制进如下代码：

Private

Sub

Form_Load()

Dim

a&,

b$

For

a

=

100

To

200

If

a

Mod

3

=

0

Then

b

=

b

&

Str(a)

Next

a

Text1Text

=

b

End

Sub

---------我是华丽丽的分割线--------

dim

a(1

to

10)

as

long

dim

Temp()

as

long

‘保存能被3整除的数

dim

s

as

string

dim

n

as

integer

for

i=1

to

10

a(i)=inputbox("Please

input

data!")

next

i

for

i=1

to

10

if

(a(i)

mod

2)

then

n=n+1

s=s

&

cstr(a(i))

&

","

end

if

redim

temp(n)

as

long

dim

v

v=split(s,",")

for

i=0

to

ubound(v)

temp(i)=v(i)

next

i

计算机的多媒体技术已经广泛普及, 对于一般的用户来说, 采用可视化编程工具是的选择, VB程序设计语言就是其中一个典型的代表。Visual Basic是Microsoft Windows的编程语言。Visual Basic是在一个集成开发环境（IDE）中创建的，IDE使得程序员可以方便地创建、运行和调试Visual Basic程序。Visual Basic是世界上使用最广泛的快速应用程序开发语言。为提高大家学习VB的兴趣，在这里，我们以一个简单的加法程序来体验一下VB的强大功能。

首先我们启动VB，在出现"新建工程"对话框后，选择"标准EXE"，单击"打开"按钮，即进入如下图的VB开发环境。

第一步：单击工具箱中的"TextBox(文本框)"图标 ，移动鼠标指针到窗体Form1上，这时鼠标指针变成了"+"形状。拖出3个并排的有一点间距的方框出来，里面有text1、text2、text3的字样，分别选中它们，按鼠标退格键删除这些字样。再单击"Label(标签)"图标A，在刚才的3个方框之间拖2个标签框，分别键入加号"+"和等于号"="，最后单击"Command（命令按钮）"图标 ，在窗体的下方拖出一个按钮出来，拖出一个带有Command1字样的按钮，直接写上"计算"二字。如图所示：

第二步：双击"计算"按钮，会出现如下的代码窗口：

在Private Sub Command1_Click()和End Sub之间写上如下代码：

M = Val (Text1Text)

N = Val (Text2Text)

K = Val (Text3Text)

If m + n = k Then

Label1Caption = "正确！"

Else

Label1Caption = "错误！"

End If

第三步：关闭代码窗口，点"运行"---"启动"。在文本框中分别填写2、5、7，再点"计算"按钮，看窗体上出现什么文字，关闭Forml，再"启动"，填写3、5、7后"计算"，看窗体上出现什么文字。这时你会发现，在输入第一次数据时，会显示正确！在输入第二次数据时，会显示错误！

第四步：最后，我们来保存这个程序：首先点按"文件"----"生成工程"----选择保存地点为"C：\",文件名为"jiafa"----"确定"。再到"C：\"中去，找到这个"jiafa"文件，我们可以从它的后缀名中得知，这是个不依赖VB程序可以独立运行的可执行程序。运行一下，很有成就感吧。

短短四步，我们就可以编制出一个简单的加法程序，可见，软件的编制并不是那么神秘，只要你肯专心学习，一定会取得非凡成就的。以上程序已在vb60调试通过。以上所讲的只是VB的一些基本 *** 作，仅取抛砖引玉的作用，希望各位VB高手能提出更多更好的方法，让我们在学习VB的过程中不断地得到提高。

以上就是关于编写VB程序语言设计全部的内容，包括:编写VB程序语言设计、vb基础程序设计，根据所给题目编程、用VB编写一个计算器程序的代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！