vb常见题型汇总代码
vb编程代码大全
vb编程代码大全
Visual Basic (VB) 是一种广泛用于软件开发的高级编程语言，可以用于开发 Windows 应用程序、Web 应用程序、数据库应用程序等。在本文中，将介绍一些常用的 VB 编程代码，帮助初学者快速入门和提高编程水平。
一、基本数据类型
1. 整型数据
在 VB 中，整型数据可以使用 Integer 类型表示，范围为 -32,768 到32,767。定义整型变量的代码如下：
```
Dim num As Integer
num = 10
```
2. 浮点数据
浮点数据可以使用 Single 或 Double 类型表示，分别表示单精度浮点数和双精度浮点数。定义浮点变量的代码如下：
```
Dim num As Single
num = 3.14
3. 字符串数据
字符串数据可以使用 String 类型表示，可以存储文本数据。定义字符串变量的代码如下：
```
Dim str As String
str = "Hello, World!"
```
二、控制流程
1. If...Then...Else 语句
If...Then...Else 语句用于根据条件执行不同的代码块。例如：
```
Dim num As Integer
num = 10
If num > 0 Then
MsgBox("Num is positive.")
Else
MsgBox("Num is negative.")
End If
2. For 循环
For 循环用于重复执行一段代码。例如：
```
For i = 1 To 10
MsgBox(i)
VB常用代码
1.数值型函数：
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示：&Hxx 最大8位
oct(num): 返回八进制值直接表示：&Oxx 最大8位
sqr(num): 返回平方根num>0
int(num): 取整int(99.8)=99; int(-99.2)=100
fix(num): 取整fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2
log(num): 取以e为底的对数num>0
exp(n): 取e的n次幂通常用num^n
sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num);
tan(num); atn(num)
2.字符串函数：
len(str)：计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0）
vb常用程序代码
vb常⽤程序代码
1、求半径为r的圆的⾯积，要求⽤户从键盘输⼊半r。
程序代码：
Private Sub Form_click()
Const PI = 3.14
Dim r%
Dim s!
r = InputBox("请输⼊半径r的值：", "求圆的⾯积") s = PI * r * r Form1.FontSize = 16
Print "半径是" + Str(r) + "的圆的⾯积是" + Str(s) End Sub 2、输⼊三个整数，从⼩到⼤顺序输出。
程序代码：
Private Sub Form_click()
a = InputBox("a")
b = InputBox("b")
c = InputBox("c")
Print "排序前："; a, b, c
If a > b Then t = a: a = b: b = t
If a > c Then t = a: a = c: c = t
If b > c Then t = b: b = c: c = t
Print "排序后："; a, b, c
End Sub
3、输⼊三个整数，从⼤到⼩顺序输出。
程序代码：
Private Sub Form_click()
a = InputBox("a")
b = InputBox("b")
c = InputBox("c")
Print "排序前："; a, b, c
If a
If a < c Then t = a: a = c: c = t
If b < c Then t = b: b = c: c = t
vb经典代码
1.求三角形的面积代码：
Option Explicit
Dim a！，b!，c!r,!,s!
Private Sub Command1_Click()
a = InputBox("a=”，”请输入a的数值”)
b = InputBox（”b=”，”请输入b的数值”)
c = InputBox("c="，"请输入c的数值”）
If a + b 〉c And a + c > b And b + c 〉a And a 〉0 And b > 0 And c > 0 Then
r = 1 / 2 * （a + b + c)
s = Sqr（r ＊(r - a）* (r — b) * （r — c)）
Label1.Caption = ”三角形的面积为”& s
Else
Label2。Caption = ”输入的数据不能构成三角形"
End If
End Sub
2.三个数排列代码:
Option Explicit
Dim x！，y！, z！, t！
Private Sub Command1_Click（)
x = InputBox（”输入第一个数x")
y = InputBox("输入第二个数y")
z = InputBox("输入第三个数z")
Print "排序前"; x ＆””＆y ＆””& z
If x < y Then t = x: x = y: y = t
If y 〈z Then
t = y：y = z: z = t
If x < y Then
t = x: x = y: y = t
End If
End If
常见VB考试题型资料讲解
常见V B考试题型
1输入半径,求圆面积和球体积。
Private Sub Form_Load()
Dim r As Single, s As Single, v As Single
r = InputBox("请输入半径r：", "输入数据")
s = 3.14 * r ^ 2
v = 4 / 3 * r ^ 3 * 3.14
'Print "圆面积为:"; s
'Print "球体积为:"; v
MsgBox ("圆面积为:" & s & Space(2) & "球体积为:" & v)
End Sub
2输入两个数存放在x和y中，比较大小，保证大数放在x中，小的数放在Y 中。
Private Sub Command1_Click()
Print "比较前:"
X = InputBox("请输入X")
Y = InputBox("请输入Y")
Print "X="; X, "Y="; Y
If X < Y Then
Z = Y
Y = X
X = Z
End If
Print "比较后:"
Print "X="; X, "Y="; Y
End Sub
3 判断一个整数的奇偶性
Private Sub Form_Click()
x = Val(InputBox("请输入一个数;"))
If x Mod 2 = 0 Then
MsgBox (x & " 是偶数")
Else
MsgBox (x & " 是奇数")
End If
End Sub
4 帐号和密码
Private Sub Command1_Click()
If Text1.Text = "12345" Then
VB编程常用代码大全讲解学习
V B编程常用代码大全
VB编程常用代码大全
1.数值型函数：
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示：&Hxx 最大8位
oct(num): 返回八进制值直接表示：&Oxx 最大8位
sqr(num): 返回平方根 num>0
int(num): 取整 int(99.8)=99; int(-99.2)=100
fix(num): 取整 fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位 round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2
log(num): 取以e为底的对数 num>0
exp(n): 取e的n次幂通常用 num^n
sin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num)
2.字符串函数：
len(str)：计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
VB 考点整理,期末复习
程序设计：
1.题目：（事件）双击窗体
（响应）求1+5+10+15+……+500的和，并将结果输出到窗体上。
将结果存入到SUM中
Private Sub Form_dblClick()
Dim sum As Long
sum = 1
'**************Begin************
For i = 5 To 500 Step 5
sum = sum + i
Next i
Print sum
'**************end************
TestFunc (sum)
End Sub
2.题目：求两个数m，n的最大公约数p和最小公倍数q
注意：在指定的事件内编写代码。
Private Sub Form_Load()
Show
Dim p, q As Integer
Dim m, n, As Integer
Dim t, r As Integer
m = 21
n = 28
'**************Begin************
If m
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
p = n
q = 28 * 21 / p
'**************end************
Print "最大公约数=", p
Print "最小公倍数=", q
testfunc p, q
End Sub
3.题目：（事件）单击窗体
（响应）我国现有人口13亿，设年增长率为1%，计算多少年后增加到20亿。并将结果输出在窗体上，将结果存入变量year中。
使用do while……loop语句完成程序。
vb编程代码大全.doc
vb编程代码大全
1.数值型函数：
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示：&Hxx 最大8位
oct(num): 返回八进制值直接表示：&Oxx 最大8位
sqr(num): 返回平方根num>0
int(num): 取整int(99.8)=99; int(-99.2)=100
fix(num): 取整fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2
log(num): 取以e为底的对数num>0
exp(n): 取e的n次幂通常用num^n
sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num)
2.字符串函数：
len(str)：计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串
vb编程代码大全
vb编程代码大全
1.数值：
abs(num): 返回
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回值直接表示：&Hxx 最大8位
oct(num): 返回值直接表示：&Oxx 最大8位
sqr(num): 返回 num>0
int(num): 取整 int(99.8)=99; int(-99.2)=100
fix(num): 取整 fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位 round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2
log(num): 取以e为底的 num>0
exp(n): 取e的n次幂通常用 num^n
sin(num): ，以为值计算 (角度*Pai)/180=弧度 con(num);
tan(num); atn(num)
2.：
len(str)：计算字符串xx 中文字符xx也计为一！
mid(str,起始字符,[读取xx])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlenxx子字符串
right(str,nlen)：从右边起截取nlenxx子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串
vb编程代码大全【范本模板】
vb编程代码大全
1.数值型函数：
abs(num): 返回绝对值
sgn（num）：num>0 1；num=0 0；num<0 -1；判断数值正负
hex(num）：返回十六进制值直接表示：＆Hxx 最大8位
oct(num）: 返回八进制值直接表示：＆Oxx 最大8位
sqr（num)：返回平方根num〉0
int(num)：取整int(99。8）=99; int（-99.2）=100
fix（num)：取整fix(99。8）=99；fix（-99.2)=99
round（num，n)：四舍五入取小数位round(3。14159,3)=3。142 中点数值四舍五入为近偶取整round（3。25，1)=3.2
log（num）: 取以e为底的对数num〉0
exp（n）: 取e的n次幂通常用num^n
sin(num）: 三角函数,以弧度为值计算(角度＊Pai）/180=弧度con（num）; tan（num）; atn （num）
2.字符串函数：
len(str)：计算字符串长度中文字符长度也计为一!
mid（str，起始字符,［读取长度］)：截取字符串中间子字符串
left(str,nlen）：从左边起截取nlen长度子字符串
right（str，nlen)：从右边起截取nlen长度子字符串
Lcase（str）：字符串转成小写
Ucase（str）：字符串转成大写
trim(str）:去除字符串两端空格
Ltrim(str）：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
replace(str,查找字符串，替代字符串,［起始字符，替代次数，比较方法]):替换字符串
VB编程常用代码大全（精品）
VB编程常用代码大全（精品）
VB编程常用代码大全
ＶB编程常用代码大全
１.数值型函数：
ａｂｓ(nuｍ)：返回绝对值
sgn(num): ｎum>０１; nｕm＝0 0; nuｍ＜0 -1；判断数值正负hex(ｎum)：返回十六进制值直接表示:&Ｈxx 最大８位oｃｔ(ｎｕｍ): 返回八进制值直接表示:&Oxx 最大8位sqｒ(ｎum): 返回平方根ｎｕm>0
int(num）: 取整 iｎt（9９．８)=9９； iｎt(-99.2)=100 fix(ｎｕm): 取整fix(９９.8）=９9; ｆix(-99.2)＝99 round(ｎum,n)：四舍五入取小数位rouｎd(3.１4１５9，3)=3．14２中点数值四舍五入为近偶取整 rｏund(3.２５,1)=３.2
lｏｇ(num): 取以e为底的对数 nｕm>0
exp(n): 取ｅ的ｎ次幂通常用 num＾n
sｉn(nｕm): 三角函数,以弧度为值计算 (角度*Pai)/1８
0=弧度 con(num); taｎ(ｎuｍ); aｔn(ｎuｍ)
2.字符串函数:
leｎ(ｓtr)：计算字符串长度中文字符长度也计为一!
miｄ(str,起始字符,[读取长度])：截取字符串中间子字符串
left(ｓtr,nlen)：从左边起截取nleｎ长度子字符串
ｒight(sｔr，ｎleｎ)：从右边起截取nlen长度子字符串Lcase(st ｒ）:字符串转成小写
Ｕcase(str）:字符串转成大写
triｍ(str):去除字符串两端空格
Ltｒim（str）：去除字符串左侧空格
VB试题代码 完整版
1.Private Sub Command1_Click() Timer1.Enabled = True
Timer1.Interval = 50
End Sub
Private Sub Command2_Click() End
End Sub
Private Sub Timer1_Timer() Label1.Left = Label1.Left - 50
If Label1.Left < 0 Then
Label1.Left = Form1.Width
End If
End Sub
2.Dim st As String
Private Sub Command1_Click() st = Text1.SelText
Text1.SelText = ""
End Sub
Private Sub Command2_Click() st = Text1.SelText
End Sub
Private Sub Command3_Click()
Text1.SelText = st
End Sub
Private Sub Command4_Click() Text1.FontName = "黑体" End Sub
Private Sub Command5_Click() Text1.FontSize = 20
End Sub
Private Sub Command6_Click() End
End Sub
3.Dim c!, f!
Private Sub Command1_Click() f = Val(Text1.Text)
c = 5 / 9 * (f - 32)
VB编程题代码43例
VB编程题代码43例
1、求100以内的素数。
Private Sub Form_Click()
Dim i%, j%
For i = 2 To 100
For j = 2 To i - 1
If i Mod j = 0 Then Exit For
Next j
If j = i Then Print i
Next i
End Sub
2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。
Private Sub Command1_Click()
Dim a$, I%, c$, d$, n%
a = InputBox$("输入字符串")
n = Len(a)
For I = 1 To Int(n \ 2)
c = Mid(a, I, 1)
Mid(a, I, 1) = Mid(a, n - I + 1, 1)
Mid(a, n - I + 1, 1) = c
Next I
Print a
End Sub
3、计算0~200之间所有能被11或5整除的数之和
Private Sub Form_Click()
Dim n%, i%
n = 0
For i = 1 To 200
If i Mod 11 = 0 Or i Mod 5 = 0 Then
n = n + i
End If
Next i
Print n
End Sub
4、输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）
Private Sub Command1_Click()
VB编程常用代码大全(精品)
VB编程常用代码大全
ＶB编程常用代码大全
１.数值型函数：
ａｂｓ(nuｍ)：返回绝对值
sgn(num): ｎum>０１; nｕm＝0 0; nuｍ＜0 -1；判断数值正负
hex(ｎum)：返回十六进制值直接表示:&Ｈxx 最大８位oｃｔ(ｎｕｍ): 返回八进制值直接表示:&Oxx 最大8位sqｒ(ｎum): 返回平方根ｎｕm>0
int(num）: 取整 iｎt（9９．８)=9９； iｎt(-99.2)=100 fix(ｎｕm): 取整fix(９９.8）=９9; ｆix(-99.2)＝99 round(ｎum,n)：四舍五入取小数位rouｎd(3.１4１５9，3)=3．14２中点数值四舍五入为近偶取整 rｏund(3.２５,1)=３.2
lｏｇ(num): 取以e为底的对数 nｕm>0
exp(n): 取ｅ的ｎ次幂通常用 num＾n
sｉn(nｕm): 三角函数,以弧度为值计算 (角度*Pai)/1８
0=弧度 con(num); taｎ(ｎuｍ); aｔn(ｎuｍ)
2.字符串函数:
leｎ(ｓtr)：计算字符串长度中文字符长度也计为一!
miｄ(str,起始字符,[读取长度])：截取字符串中间子字符串
left(ｓtr,nlen)：从左边起截取nleｎ长度子字符串
ｒight(sｔr，ｎleｎ)：从右边起截取nlen长度子字符串Lcase(stｒ）:字符串转成小写
Ｕcase(str）:字符串转成大写
triｍ(str):去除字符串两端空格
Ltｒim（str）：去除字符串左侧空格
Ｒtrim(str):去除字符串右侧空格
vb编程代码大全
v b编程代码大全-CAL-FENGHAI.-(YICAI)-Company One1
vb编程代码大全
1.数值型函数：
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示：&Hxx 最大8位
oct(num): 返回八进制值直接表示：&Oxx 最大8位
sqr(num): 返回平方根 num>0
int(num): 取整 int(99.8)=99; int(-99.2)=100
fix(num): 取整 fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位 round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2
log(num): 取以e为底的对数 num>0
exp(n): 取e的n次幂通常用 num^n
sin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num)
2.字符串函数：
len(str)：计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.Private Sub Command1_Click()
Dim r As Double, c As Double, s As Double
Dim pi As Double
pi = 3.1415926
r = Val(Text1.Text)
c = pi * 2 * r
s = pi * r * r
Label3.Caption = "圆的周长为" + Str(c) + "厘米"
Label4.Caption = "圆的面积为" + Str(s) + "平方厘米"
End Sub
2.（5秒5分倒计时）
Dim n As Integer
Private Sub Command1_Click()
If Option1.Value Then n = 5
If Option2.Value Then n = 300
Timer1.Enabled = True
Frame1.Enabled = False
Command1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
n = n - 1
Text1.Text = Str(n \ 60) & "分" & Str(n Mod 60) & "秒"
If n <= 0 Then
Timer1.Enabled = False
Frame1.Enabled = True
Text1.Text = "时间到"
End If
End Sub
3.心想事成
Dim x As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Timer1.Enabled = False
Command1.Caption = "开始"
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
x = -100
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + x
If Label1.Left <= 0 Then x = 100
If Label1.Left >= Form1.ScaleWidth -
Label1.Width Then x = -100
End Sub
4.我的调色板（滚动条）
Private Sub Command1_Click()
Label5.ForeColor = Label4.BackColor End Sub
Private Sub HScroll1_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
5.字形字体颜色（复选框，单选）Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
Private Sub Check2_Click()
If Check1.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub
Private Sub Check3_Click()
If Check1.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub
Private Sub Option1_Click()
Text1.FontName = Option1.Caption End Sub
Private Sub Option2_Click()
Text1.FontName = Option2.Caption End Sub
Private Sub Option3_Click()
Text1.FontName = Option3.Caption End Sub
Private Sub Option4_Click()
Text1.ForeColor = vbRed
End Sub
Private Sub Option5_Click()
Text1.ForeColor = vbBlue
End Sub
Private Sub Option6_Click()
Text1.ForeColor = vbGreen
End Sub
6.（加减乘除计算）
Private Sub Command1_Click()
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub
Private Sub Option1_Click()
Label1.Caption = Option1.Caption
Text3.Text = Val(Text1.Text) +
Val(Text2.Text)
End Sub
Private Sub Option2_Click()
Label1.Caption = Option2.Caption
Text3.Text = Val(Text1.Text) -
Val(Text2.Text)
End Sub
Private Sub Option3_Click()
Label1.Caption = Option3.Caption
Text3.Text = Val(Text1.Text) *
Val(Text2.Text)
End Sub
Private Sub Option4_Click()
Label1.Caption = Option4.Caption
If Val(Text2.Text) = 0 Then
MsgBox "除数不得为零"
Else
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If
End Sub
7.（输入密码，你有3次机会）
Private Sub Command1_Click()
Static x As Integer
If Text2.Text = "123" Then
Form2.Show
Form1.Hide
Else
x = x + 1
If x > 2 Then
Label3.Caption = "密码错误，禁止输入，请退出程序"
Text2.Enabled = False
Command1.Enabled = False
Else
Label3.Caption = "密码错误，您还有" & 3 - x & "次机会"
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text2.Text = ""
End Sub