vb编程
⑴ 什么是VB程序设计
Visual Basic程序设计是BASIC编程语言。
VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建ActiveX控件,用于高效生成类型安全和面向对象的应用程序。
程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
(1)vb编程扩展阅读:
VB 的组件既可以拥有用户界面,也可以没有。这样一来服务器端程序就可以处理增加的模块。
VB 使用参数计算的方法来进行垃圾收集,这个方法中包含有大量的对象,提供基本的面向对象支持。因为越来越多组件的出现,程序员可以选用自己需要的扩展库。
和有些语言不一样,VB 对大小写不敏感,但是能自动转换关键词到标准的大小写状态,以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的,但是可以关闭这个功能。
参考资料来源:网络-Visual Basic
⑵ vb编程vb编程
Private Sub Command1_Click()
Dim j%, k%, m%, n%, mArr(1 To 80), OArr(), EArr(), ZArr(), Q%, E%, tmP%, Z%, mSum%
Q = 1
E = 1
Z = 1
Print "80个随机整数:"
For j = 1 To 80
Randomize
mArr(j) = Int(90 * Rnd + 10)
Print CStr(mArr(j)); Spc(2);
If j Mod 10 = 0 Then Print
Next j
Print
For m = 1 To 79 '排序
For n = 80 To m + 1 Step -1
If mArr(n) < mArr(n - 1) Then tmP = mArr(n): mArr(n) = mArr(n - 1): mArr(n - 1) = tmP
Next n
Next m
For m = 1 To 80 '奇偶分组
If mArr(m) Mod 2 = 1 Then
ReDim Preserve OArr(1 To Q)
OArr(Q) = mArr(m)
Q = Q + 1
Else
ReDim Preserve EArr(1 To E)
EArr(E) = mArr(m)
E = E + 1
End If
If zs(CInt(mArr(m))) = True Then '素数分组
ReDim Preserve ZArr(1 To Z)
ZArr(Z) = mArr(m)
mSum = mSum + ZArr(Z)
Z = Z + 1
End If
Next m
Print
Print "偶数:" '在窗体输出
For m = 1 To UBound(EArr)
Print CStr(EArr(m)); Spc(2);
If m Mod 10 = 0 Then Print
Next m
Print
Print
Print "奇数:"
For m = 1 To UBound(OArr)
Print CStr(OArr(m)); Spc(2);
If m Mod 10 = 0 Then Print
Next m
Print
Print
Print "素数:"
For m = 1 To UBound(ZArr)
Print CStr(ZArr(m)); Spc(2);
If m Mod 10 = 0 Then Print
Next m
Print
Print "素数个数:"; UBound(ZArr)
Print "素数之和:"; mSum
End Sub
Private Function zs(x As Integer) As Boolean '素数判断子过程
Dim d%
If x = 2 Then zs = True: Exit Function
For d = 2 To Int(Sqr(x))
If x Mod d = 0 Then Exit For: zs = False
If d = Int(Sqr(x)) Then zs = True
Next
End Function
⑶ VB编程。
2楼的是错的。inputbox函数里输入的是字符,要用val函数将其转为数字。
a=val(inputbox(......))
⑷ vb编程,
你要是只有这么个功能,是很容易实现的,不过不知道你这么做的意义何在,稍等,代码随后发上
⑸ 用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编程
准备工作:
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是面向对象的语言,你可以对照书上的例子在机器上学习编程.这样影响更深刻,步骤都不是严格的,可以根据程序的需要来进行.但是第一步应该是程序的总体算法,模块,界面设计.
⑻ VB编程的程序
DimjlAsString
PrivateSubct_Click()
Text1.FontBold=True
EndSub
PrivateSubqc_Click()
Text1.Text=""
EndSub
PrivateSubsl_Click()
jl=InputBox("请输入相关信息","输入信息")
EndSub
PrivateSubtc_Click()
End
EndSub
PrivateSubxhx_Click()
Text1.FontUnderline=True
EndSub
PrivateSubxs_Click()
Text1.Text=jl
EndSub
PrivateSubxt_Click()
Text1.FontItalic=True
EndSub
PrivateSubzc_Click()
Text1.Font.Size=10
Text1.FontBold=False
Text1.FontUnderline=False
Text1.FontItalic=False
EndSub
PrivateSubztdx_Click()
Text1.FontSize=20
EndSub
http://www.namipan.com/d/
程序下载地址
⑼ 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