vb编程

① 什么是VB程序设计

Visual Basic程序设计是BASIC编程语言。

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件，用于高效生成类型安全和面向对象的应用程序。

程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

(1)vb编程扩展阅读：

VB 的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。

VB 使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。

和有些语言不一样，VB 对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。

参考资料来源：网络-Visual Basic

② VB编写程序的步骤

拿本教程先学学语法,vb是面向对象的语言,你可以对照书上的例子在机器上学习编程.这样影响更深刻,步骤都不是严格的,可以根据程序的需要来进行.但是第一步应该是程序的总体算法,模块,界面设计.

③ vb编程vb编程

Dim a%(1 to 80), i%, k%, t%, b%(1 to 80), c%(1 to 80)
Private Sub Command1_Click()
Me.Cls
Dim j As Integer
Randomize
t = 1
k = 1
For i = 1 To 80
a(i) = Int(Rnd * 90) + 10

If a(i) Mod 2 = 1 Then
b(k) = a(i)
k = k + 1
End If

If IsPrimeNum(a(i)) Then
c(t) = a(i)
t = t + 1
End If
Next i

Print "全部"

For i = 1 To 80
Print a(i);
If i Mod 10 = 0 Then Print
Next i

SortArray b, k - 1

Print "奇数"

For i = 1 To k - 1
Print b(i);
If i Mod 10 = 0 Then Print
Next i

Print

SortArray c, t - 1

Print "素数"

For i = 1 To t - 1
Print c(i);
If i Mod 10 = 0 Then Print
Next i
End Sub

Private Function IsPrimeNum(V As Integer) As Boolean
Dim i As Integer
Dim flag As Boolean
flag = True
For i = 2 To V - 1
If V Mod i = 0 Then
flag = False
Exit For
End If
Next i
IsPrimeNum = flag

End Function

Private Sub SortArray(arr() As Integer, ByVal size As Integer)
Dim i As Integer
Dim j As Integer
Dim t As Integer
For i = 1 To size
For j = i + 1 To size
If arr(i) > arr(j) Then t = arr(i): arr(i) = arr(j): arr(j) = t
Next j
Next i

End Sub
'添加一个按钮就可以搞定

④ 用vb编写一个简单的程序

上面的程序有问题
'给窗口加3个TEXT控件
text.text
都设为0，再加个COMMAND
控件
'付上以下程序
OK了
Private
Sub
Command1_Click()
Dim
D
As
Single,
L
As
Single
D
=
Val(Text1.Text)
L
=
val(Text2.Text)
v
=
0.7854
*
L
*
(D
+
0.5
*
L
+
0.005
*
L
^
2
+
0.000125
*
L
*
(14
-
L)
^
2
*
(D
-
10))
^
2
/
1000
Text3.Text
=
v
End
Sub

⑤ VB编程是什么

vb是用来编写应用程序的，它写出的程序运行于微软的windows，不同的程序应用于不同的地方，如办公软件、监控软件、计量软件等等。

⑥ 用vb编程

准备工作:
1:在C:\下新建一个文本文件,名为Mytxt.txt,内容随便输入
2:在窗体上添加一个命令按钮,一个文本框,设置文本框的Multiline属性为True,ScrollBars属性为2
添加如下代码,F5运行后,点击命令按钮

Private Sub Command1_Click()
'读取文本文件的内容并显示在文本框中
Dim S as string,S1 as String
Open "C:\MyTxt.txt" For Input as #1
While Not Eof(1)
Line Input #1,S
S1=S1 & S & IIf(Eof(1),"",vbCrlf)
Wend
Close #1
Text1.Text=S1

'清空文本文件的内容
Open "C:\MyTxt.Txt" For output As #1
Print #1,
Close #1
End Sub

⑦ VB编程。

用统计图表示有关数量之间的关系，比统计表更加形象直观，使人一目了然，印象深刻。常用的统计图有什么统计图。

⑧ 关于vb编程

//LenB()输出的结果怎么是18，不应该是13吗？
VB默认使用unicode编码，不管中西文，每个字符都占两字节
要计算中西文混排的字符串的字节数需要这样：
Print LenB(StrConv(strMys1, vbFromUnicode))

//将unicode转换成dbcs后是乱码。转回来后怎么还是乱码
你并没有转换回来啊，你是又对原字符串进行了一次多余的转换
strMys2 = StrConv(strMys1, vbFromUnicode)
strMys3 = StrConv(strMys1, vbUnicode)
仔细看看，是不？
应该是：
strMys3 = StrConv(strMys2, vbUnicode)
这样就转换回来了

//转换回来后的Len()输出结果怎么是15，
上一步错了自然是步步错，上一步修改正确后再用len就后得到9了吧
之所以会得到15，是因为5个英文字母后面分别多了一个chr(0)，同时第一个汉字被拆成了两截（这个说法其实不准确，只是我暂时找不到更准确的说法），所以共多出6个字符
你把刚才修改的strMys2改回成strMys1（还原成你原先的代码）
在它后面添加如下代码：
For i = 1 To Len(strMys3)
Print Asc(Mid(strMys3, i, 1))
Next
这样就可以看清是怎么回事了吧

⑨ vb编程超简单

PrivateSubCommand1_Click()
Text2.Text=""
Text2.Text=Text2.Text+Text1.Text
Fori=0To2
IfOption1(i).Value=TrueThen
Text2.Text=Text2.Text+Space(3)+"职称："+Option1(i).Caption+Space(3)
Else
Option1(i).Enabled=False
EndIf
Nexti
Text2.Text=Text2.Text+"爱好："
Fori=0To2
IfCheck1(i).Value=1Then
Text2.Text=Text2.Text+Check1(i).Caption+Space(1)
Else
Check1(i).Enabled=False
EndIf
Nexti
Text2.Text=Text2.Text+Space(2)+"籍贯："+List1.List(List1.ListIndex)+Space(3)
Text2.Text=Text2.Text+"部门："+Combo1.Text
EndSub

PrivateSubCommand2_Click()
End
EndSub

PrivateSubForm_Load()
Option1(0).Caption="初级"
Option1(1).Caption="中级"
Option1(2).Caption="高级"
Check1(0).Caption="音乐"
Check1(1).Caption="体育"
Check1(2).Caption="绘画"
List1.AddItem"北京市"
List1.AddItem"江苏省"
List1.AddItem"江西省"
List1.AddItem"山东省"
List1.AddItem"山西省"
List1.AddItem"浙江省"
List1.AddItem"辽宁省"
List1.AddItem"天津市"
List1.AddItem"湖南省"
List1.AddItem"河北省"
List1.AddItem"上海市"
List1.AddItem"广东省"
Combo1.AddItem"电子系"
Combo1.AddItem"数学系"
Combo1.AddItem"计算机系"
Combo1.AddItem"物理系"
Combo1.AddItem"化学系"
Combo1.AddItem"天文系"
Combo1.AddItem"地质系"
Combo1.AddItem"医学系"
Text1.Text=""
Text2.Text=""

EndSub

PrivateSubFrame1_Click()
Fori=0To2
IfOption1(Index).Value=FalseThenOption1(Index).Enabled=False
Nexti
EndSub