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 r = 1 / 2 * (a + b + c)
Label1.Caption = "
Else
Label2.Caption = "
角形"
End If
End Sub
2.三个数排列代码：Option Explicit
Dim x!, y!, z!, t!
Private Sub Command1_Click() x = InputBox("输入第一个数
y = InputBox("输入第二个数
z = InputBox("输入第三个数Print "排序前
If y < z Then
t = y: y = z: z = t
If x < y Then
t = x: x = y: y = t
"; z & " " & y & " " & x
请输入一元二次方程
请输入一元二次方程
请输入一元二次方程a≠0，你输入的a＝0，请重新
" & a; b; c & "的一元二次" & "x1=" & x1 & " " &
"
4.利用Select Case
份计算属相代码：
Option Explicit
Private Sub Command1_Click()
Integer
Y = InputBox("
i = Y Mod 12
Select Case i
Case Is = 0
x = "猴"
Case Is = 1
x = "鸡"
Case Is = 2
x = "狗"
Case Is = 3
x = "猪"
Case Is = 4
x = "鼠"
Case Is = 5
x = "牛"
Case Is = 6
x = "虎"
Case Is = 7
x = "兔"
Case Is = 8
x = "龙"
Case Is = 9
x = "蛇"
Case Is = 10 马"
羊"
;
输入年份")
这年为闰年"
这年为平年"
"
"
输入年份")
"
Print "这年为闰年" Else
Print "这年为平年" End If
End Sub
6.三种方法计算下式
y 的代码：
法一：Option Explicit
Dim x!,y!
x = InputBox("x=", "输入x
If x <> 0 Then
- 1)) / x
Else
Print "所输入的x
End If
Else
Print "除数不能为零"
End If
End Sub
法二：
x = InputBox("x=", "输入x Select Case x
Case Is = 0
Print "除数不能为零" Case Is >= 1, Is <= -1
所输入的x不在定义域"
输入x的值")
所输入的x不在定义域" 除数不能为零"
所输入的x不在定义域"
x
Loop Until r = 0
Print m1 & "," & n1 & "是" & m
Print m1 & "," & n1 & "是" & m1 * n1 / m
End Sub
(2)辗转相除法
Private Sub Command9_Click() Dim n%, m%, r%, m1%, n1%
n1 = InputBox("输入n")
m1 = InputBox("输入m")
If m1 > n1 Then
m = m1: n = n1
Else
m = n1: n = m1
End If
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Print m1; ","; n1; "
Print m1; ","; n1; "
/ n
End Sub
9. 输出一列“*”Private Sub Command2_Click() For i = 1 To 8
Print "*" 张若干大面积的纸厚
0.2mm，
0.4mm，如果对折了
输入的n值")
100m处高度自由
10共经过多少m？第10
Private Sub Command5_Click() Dim i%, s!, h!
h = 50
s = 100
i = 2
Do Until i > 10
s = s + h * 2
h = h / 2
i = i + 1
Loop
Print "十次落地经过的路程", "第十次落地反弹的高度
End Sub
12.
Private Sub Command6_Click() Dim i%, x1%, x2%
x1 = 1
x2 = 0
i = 1
Do Until i > 9
x2 = (x1 + 1) * 2
x1 = x2
" & x2
e的近似值,近:
e=1+1/1!+1/2!+1/3!+…
（1）求其误差小于0.00001时的值；
（2）计算到第10项。
t = 1
Do While 1 / t > 0.00001 e = e + 1 / t
i = i + 1
t = t * i
Loop
Print "e="; e
End Sub
14.
到999
单重循环:Option Explicit
Private Sub Command1_Click() Dim a%, b%, c%, i%
For i = 100 To 999
If i = a ^ 3 + b ^ 3 + c ^ 3 Then
Print i
End If
Next i
End Sub
三重循环
Dim a%, b%, c%
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
Then
Print a * 100 + b * 10 + c
End If
Next c
For c = 0 To (100 - 50 * a - 20 * b) \ 10 For d = 0 To (100 - 50 * a - 20 * b
For e = 0 To (100 - 50 * a -
For f = 0 To 100 - 50 * a
If a * 50 + b * 20 +
n = n + 1
End If
m = m + 1
Next f
Next e
Next d
Next c
总共有" & n & "种方法。" & 共计算了" & m & "次。"
For c = 0 To (100 - 50 * a - 20 * b) \ 10 For d = 0 To (100 - 50 * a - 20 * b
For e = 0 To (100 - 50 * a -
20 * b - 10 * c - 5 * d) \ 2
Next e
Next d
Next c
Next b
Next a
Label1.Caption = "总共有" & n & " " " & "共计算了" & m & "次。"
End Sub
16输入一个数，
为素数。
Option Explicit
Private Sub Command1_Click()
Dim n!, j!
n = Val(Text1)
j = 2
Do While j <= Sqr(n) And n Mod j <> 0 j = j + 1
Loop
If j > Sqr(n) Then
Print n; "是素数"
Else
Print n; "是合数"
End If
End Sub
17.求100~200
的素数。
Option Explicit
Dim i%, j%, c%
Private Sub Command1_Click()
For i = 101 To 199 Step 2
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next
If j > Sqr(i) Then 输入大于6的偶数"))
'判断N1是否是素数
'如果N1为素数，将N分解为'判断N2是否是素数
' 如果N2也为素数，则打
End If
End If
Next N1
End Sub
19.验证100~200
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer
k: x = Val(InputBox("请输入一个数"))
If x < 6 And x Mod 2 <> 0 Then GoTo k
Else
Print x
For y = 2 To x / 2
z = x - y
For i = 2 To y - 1
If y Mod i = 0 Then Exit For Next i
If i > y - 1 Then
For j = 2 To z - 1
If z Mod j = 0 Then Exit For Next j
If j > z - 1 Then
Print y; "+"; z
End If
End If
Next y
End If
End Sub
20.输出一个5三角形
Option Explicit
Dim A() As Integer
Dim n As Integer, i, j% Private Sub Command1_Click() ReDim A(6, 6) C
C H
C H I
C H I N
C H I N A
n矩阵等腰三角形，
二行3个，……
Option Explicit
Dim i!,j!,T$,x$
Private Sub Command1_Click() For i = 0 To 3
x = ""
For j = 1 To (7 - Abs(i) * 2)
x = x & "*"
Next
Print T
Next
End Sub
23.先成一个10
50]
码。
Option Explicit
Dim k%,i%,j%,t%,m%,n%
Private Sub Command1_Click() Dim x%(1 To 5, 1 To 10)
For m = 1 To 5
For n = 1 To 10
Randomize
' t = x(i): x(i) = x(j): x(j) = t '大数
Randomize
x(k) = Int(Rnd * 41 + 10)
产生10个随机数
Picture1.Print x(k);
Next k
For i = 1 To 9
For j = 1 To 10 - i
If x(j) > x(j + 1) Then
两比较,大数换到后面
End If
Next j
Next i
For m = 1 To 10
Picture2.Print x(m);
'打印排列后的顺序
Next m
End Sub
24.生成一个50
元素值为[100，2000]。1
信息。2
输入一个数，在50找到了" Else Label2 = "没
t = False
For m = 1 To 5
For n = 1 To 10
If x(m, n) = h Then
s = s + 1
t = True
End If
If t Then Label2 = "找到了, s & "次" Else Label2 = "没找到"
Next n
Next m
End Sub
26.
理）。
法一：Private Sub Command1_Click() Dim A%,c%,b$
c = Val((InputBox("
A = c Mod 12
b = Mid("猴鸡狗猪鼠牛虎兔龙蛇马羊
Print "你的出生的属相是"; b
End Sub
法二：Private Sub Command2_Click() Dim tyea As Integer
Dim x(11) As String
Dim A As Integer
x(0) = "猴"
x(1) = "鸡"
x(2) = "狗"
x(3) = "猪"
x(4) = "鼠"
请输入你的出生年份")))
"; x(A)
)!
(!
!
N
M
N
M
-
、N在程序运行时输入。
'计算
" & t
n
n?
-
+
+
?
+)1
(
4
3
其中：n
入。
Option Explicit
Dim n%, t%
Private Sub Command1_Click() n = Val(Text1) '计算1*2+3*4+^^^(N-1)*N
t = f(n)
Label1 = "计算结果是" & t
End Sub
Private Function f&(ByVal n%)
If n = 2 Then
f = 2
Else
f = f(n - 1) + n * (n - 1)
End If
End Function
30.
波那切数列：
斐波那切数列：1、1 5、8、13、……、Option Explicit
Dim n%, t%
Private Sub Command1_Click()
n = Val(Text1) '
t = h(n)
Label1 = "计算结果是" & t
End Sub
Private Function h&(ByVal n%) 100~200之间所
'验证100~200之间
g = False
End If
Next s
End Function
32.
斜、下划线）。
Integer)
A = Index
Select Case A
Case 0
Case 1
Case 2
Case 3
End Sub
Private Sub Command4_Click() Call ff
e = "+"
End Sub
Private Sub Command5_Click() Call ff
e = "-"
End Sub
Private Sub Command6_Click() Call ff
e = "*"
End Sub
Private Sub Command7_Click() Call ff
e = "/"
End Sub
Private Sub Command8_Click() Call ff
End Sub
Select Case Index
Case 0
Text1 = Text1 + "0" Case 1
Text1 = Text1 + "1" Case 2
Text1 = Text1 + "2" Case 3
Text1 = Text1 + "3"
b = c
End If
Text1 = "" Text1.SetFocus Picture1.Cls Picture1.Print c End Sub
vb代码大全
用VB5实现窗口图象缩放、滚动技巧 成都理工学院计算机工程系 洪志全 ---- Visual Basic 是Windows 平台中最常用的应用软件开发语言, 窗口图像缩放、滚动是图像处理、多媒体数据库等应用软件开发中的基本功能。本文将介绍如何用VB 5.0 实现地窗口图像缩放和滚动技巧, 供读者在各种语言系统开发中参考。 ---- 一、获取图像 ---- 本文所介绍的图像缩放并没有对真正的图像进行缩放, 而是复制一幅窗口图像的真实画面, 对这个窗口图像附本进行局部缩放和滚动, 获取窗口图像可使用Windows 的API 函数来实现。具体来说, 实现窗口图像缩放、滚动需要用GetDeskTopWindow() 函数获取桌面窗口句柄, 再通过GetDC() 函数转换为描述表句柄, 则用BitBlt() 函数把桌面图像复制到任意图形容器控件中, 桌面图像复制完成后, 再用ReleaseDC 释放窗口描述表, 各API 函数的具体使用方法参见本文的例子程序。 ---- 本文所用的API 函数包含在WIN95/98 的GDI32.DLL 和USER32.DLL 动态链接库中, 在使用时可通过VB5.0 的TEXT VIEWER 复制到所开发的应用程序中。 ---- 二、图像缩放 ---- 图像缩放显示的基本原理就是把原图像的一部分缩放后再送入窗口的图形容器控件中, 在VB 中可用内部命令PaintPicture 来进行, 语法格式为: PaintPicture Pic,DestX,DestY,DestWidth, DestHeight,ScrX,ScrY,ScrWidth,ScrHeight ---- 其中,Pic 为图片对象, 如图形控件对象等; DestX,DestY为目标图像起始坐标; DestWidth,DestHeight为目标图像幅面尺寸; ScrX,ScrY为源图像起始坐标; ScrWidth,ScrHeight为源图像剪裁尺寸。 ---- 该命令就是把一个源图像资源任意复制到指定的区域, 其功能相当于API 函数的BitBlt, 但使用更简单, 若复制时改变源图像的ScrWidth,ScrHeight 或目标图像的DestWidth,DestHeight 可使复制后的图像尺寸发生变化, 实现窗口图像的缩放显示。若ScrWidth,ScrHeight 或
VB程序设计习题
练习一 一、选择题 1、下面列出的程序设计语言中（A ）是面向问题的语言。 A、机器语言 B、汇编语言 C、高级语言 D、0、1二进制语言 解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言 2、下面列出的程序设计语言中（C ）不是面向对象的语言。 A、C B、C++ C、Java D、VB 3、下列（D ）不属于VB 6.0的版本。 A、学习版 B、专业版 C、企业版 D、共享版 解释：VB6.0共有三个版本：标准版、专业版、企业版。而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。 二、填空题 1、从程序设计语言发展过程的角度来分类，计算机程序设计语言分：机器语言、汇编语言和高级语言。 2、VB 6.0采用了面向对象、事件驱动（可视化编程）的编程机制。 3、启动VB 6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。 练习二 一、选择题 1、如果窗体对象的名称为Forma1，Backcolor是窗体对象的一个属性，用来设置窗体的背景色，那么设置窗体背景色为蓝色的语句正确的是（ A ） A、Forma1.Backcolor=vbBlue B、Backcolor= vbBlue C、Forma1 =vbBlue D、Forma1′s Backcolor is vbBlue. 2、下面方法中，不能打开编码编辑器的是（D） A、单击“视图”菜单中的“代码窗口”命令。 B、双击窗体设计器的窗体或控件。 C、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。 D、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。 3 、保存VB应用程序时，下列方法中正确的是（Ａ） A、先保存窗体文件，再保存工程文件。 B、先保存工程文件，再保存窗体文件 C、直接保存窗体文件，系统会自动按顺序先保存窗体文件再保存工程文件。 D、直接保存窗体文件，系统会自动按顺序先保存工程文件再保存窗体文件。 二、填空题 1、VB工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。 2、选中工程资源管理器中的窗体对象，再单击按钮可打开窗体设计器。 3、在VB中，按下工具栏中的“启动”按钮或
VB程序代码(简单小程序)
实验一（带有进度条的倒计时程序） Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If (ProgressBar1.Value + ProgressBar1.Maximum / timers < ProgressBar1.Maximum) Then ProgressBar1.Value += ProgressBar1.Maximum / timers Else Timer1.Enabled = False ProgressBar1.Value = ProgressBar1.Maximum MessageBox.Show("进度完成！") End If temp += 1 Label1.Text = temp.ToString() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load timers = 30 End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0)) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub End Class 实验二（定时器控制蝴蝶飞舞） Public Class Form1 Dim t As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ’Dim t As Boolean ' If t = True Then ' PictureBox3.Image = PictureBox2.Image
vb常见题型汇总代码
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
VB程序设计的常用算法填空题
VB程序设计的常用算法 例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 将程序编写在一个GetTJput过程中，代码如下： Public Sub GetTJput() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer '产生100个[0，99]范围内的随机整数，每行10个打印出来 For i = 1 To If a(i) < 10 Then Form1.Print Space(2); a(i); Else Form1.Print Space(1); a(i); End If If Then Next i '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来For i = 1 To 100 p = a(i) Mod 10 ' 求个位上的数字 If p = 0 Then p = 10 Next i Form1.Print "统计结果" For i = 1 To 10 p = i If i = 10 Then p = 0 Form1.Print "个位数为" + Str(p) + "共" + Str(x(i)) + "个" Next i End Sub 二、求两个整数的最大公约数、最小公倍数 m=inputBox("m=") n=inputBox("n=") nm=n*m If m < n Then r=m mod n Do While m=n n=r
VB程序代码(简单小程序)
实验一:(带有进度条的倒计时程序) Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Timer1、Tick If(ProgressBar1、Value + ProgressBar1、Maximum / timers < ProgressBar1、Maximum) Then ProgressBar1、Value += ProgressBar1、Maximum / timers Else Timer1、Enabled = False ProgressBar1、Value = ProgressBar1、Maximum MessageBox、Show("进度完成！") End If temp += 1 Label1、Text = temp、ToString() End Sub Private Sub Form1_Load(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles MyBase、Load timers = 30 End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0)) End Sub Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Timer1、Enabled = True End Sub End Class 实验二(定时器控制蝴蝶飞舞) Public Class Form1 Dim t As Integer Private Sub Timer1_Tick(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Timer1、Tick ’Dim t As Boolean ' If t = True Then ' PictureBox3、Image = PictureBox2、Image ' t = False 'Else ' PictureBox3、Image = PictureBox1、Image ' t = True 'End If Select Case t Case 0 PictureBox3、Image = PictureBox1、Image
VB函数大全_基本函数大全
VB函数大全_基本函数大全 Abs 函数返回数的绝对值。 And 运算符执行两个表达式的逻辑连接。 Array 函数返回含一数组的变体。 Asc 函数返回字符串首字母的ANSI 字符代码。 赋值运算符(=) 给变量或属性赋值。 Atn 函数返回数的反正切值。 调用语句将控制移交Sub 或Function 过程。 CBool 函数返回已被转换为Boolean 子类型的变体的表达式。 CByte 函数返回已被转换为字节子类型的变体的表达式。 CCur 函数返回已被转换为货币子类型的变体的表达式。 CDate 函数返回已被转换为日期子类型的变体的表达式。 CDbl 函数返回已被转换为双精度子类型的变体的表达式。 Chr 函数返回指定ANSI 字符码的字符。 CInt 函数返回已被转换为整数子类型的变体的表达式。 Class 对象提供对已创建的类的事件的访问。 Class 语句声明类名 Clear 方法清除Err 对象的所有属性设置。 CLng 函数返回已被转换为Long 子类型的变体的表达式。 颜色常数颜色常数列表。 比较常数用于比较运算的常数列表。 连接运算符(&) 强制两个表达式的字符串连接。 Const 语句声明用于字母值的常数。 Cos 函数返回角度的余弦值。 CreateObject 函数创建并返回对“自动”对象的引用。 CSng 函数返回已被转换为单精度子类型的变体的表达式。 CStr 函数返回已被转换为字符串子类型的变体的表达式。 日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。日期格式常数用于日期和时间格式的常数列表。 Date 函数返回当前系统日期。 DateAdd 函数返回加上了指定的时间间隔的日期。 DateDiff 函数返回两个日期之间的间隔。 DatePart 函数返回给定日期的指定部分。 DateSerial 函数返回指定年月日的日期子类型的变体。 DateValue 函数返回日期子类型的变体。 Day 函数返回日期，取值范围为1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时，重复一语句块。Empty 表示尚未初始化的变量值。 Eqv 运算符使两个表达式相等。 Erase 语句重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象含有关于运行时错误的信息。 Eval 函数计算并返回表达式的值。 Execute 方法根据指定的字符串，执行正则表达式的搜索。 Execute 语句执行单个或更多的指定语句。 Exit 语句退出Do...Loop、For...Next、Function 或Sub 代码块。 Exp 函数返回e （自然对数的底）的多少次方。 自乘运算符(^) 指数函数，幂为自变量。 False 关键字，其值为零。
VB键盘常量大全 256个虚拟键码
Public Const VK_LBUTTON = &H1 Public Const VK_RBUTTON = &H2 Public Const VK_CANCEL = &H3 Public Const VK_MBUTTON = &H4 Public Const VK_BACK = &H8 Public Const VK_TAB = &H9 Public Const VK_CLEAR = &HC Public Const VK_RETURN = &HD Public Const VK_SHIFT = &H10 Public Const VK_CONTROL = &H11 Public Const VK_MENU = &H12 Public Const VK_PAUSE = &H13 Public Const VK_CAPITAL = &H14 Public Const VK_ESCAPE = &H1B Public Const VK_SPACE = &H20 Public Const VK_PRIOR = &H21 Public Const VK_NEXT = &H22 Public Const VK_END = &H23 Public Const VK_HOME = &H24 Public Const VK_LEFT = &H25 Public Const VK_UP = &H26 Public Const VK_RIGHT = &H27 Public Const VK_DOWN = &H28 Public Const VK_Select = &H29 Public Const VK_PRINT = &H2A Public Const VK_EXECUTE = &H2B Public Const VK_SNAPSHOT = &H2C Public Const VK_Insert = &H2D Public Const VK_Delete = &H2E Public Const VK_HELP = &H2F Public Const VK_0 = &H30 Public Const VK_1 = &H31 Public Const VK_2 = &H32 Public Const VK_3 = &H33 Public Const VK_4 = &H34 Public Const VK_5 = &H35 Public Const VK_6 = &H36 Public Const VK_7 = &H37 Public Const VK_8 = &H38 Public Const VK_9 = &H39 Public Const VK_A = &H41 Public Const VK_B = &H42 Public Const VK_C = &H43 Public Const VK_D = &H44
VB程序设计知识点归纳
第一章 1 从功能上讲，Visual Basic 6.0有3种版本，即：学习版、专业版、企业版 2 与传统的程序设计语言相比，Visual Basic最突出的特点是事件驱动编程机制。 3 Visual Basic 6.0集成环境的主窗口中含有标题栏、菜单栏、工具栏 4用标准工具栏中的工具按钮不能执行的操作是打印源程序。 5关于Visual Basic"方法"的概念错误的是方法是对事件的响应 6在Visual Basic中，称对象的数据为属性 7Visual Basic应用程序可以用解释方式执行也可以用编译方式执行 第二章 1 计时器控件的Interval属性用于设置Timer事件发生的时间间隔，为了暂时关闭计时器，应把该计时器的Enabled 属性设置为False ，如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于1000 2 利用Ctrl + G操作可以打开立即窗口。 3 假定窗体上有一个标签，名为Lable1。为了使该标签透明并且没有边框，则正确的属性设置为：Lable1.BackStyle = 0 Lable1.BorderStyle = 0 4在设计阶段，当双击窗体上的某个控件时，所打开的窗口是代码窗口 5 在Visual Basic中，窗体文件的扩展名为FRM 6 窗体的Name属性指定窗体的名称，用来标识一个窗体 7 改变控件在窗体中的上下位置，应修改该控件的属性是Top 8 表示滚动条控件取值范围最大值的属性是Max 9 如果要改变窗体的标题，则需要设置的属性是Caption 10 在文本框（Text）中，通过ForeColor属性来设置字体颜色 11 若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置Passwordchar属性值 为* 12 能够改变复选框中背景颜色的属性是Backcolor 13 图片框是不具有Picture属性的对象 14 窗体的Name属性指定窗体的名称，用来标识一个窗体 15 要想返回文本框中输入的内容则可利用text属性进行编程 第三章 1用于从字符串左边截取字符的函数是Left( )，设a="Visual Basic"，使b="Basic"的语句是b=Left(a,8,5)。 2下列符号中哪个是VB程序中合法的变量名：A ab7 B 7ab C If D a*bc （A）数字开头，关键字，* 3X是小于100的非负数，用VB表达式表达正确的是0<=X and X<100 4设有如下变量声明Dim TestDate As Date 为变量TestDate正确赋值的表达方式是 TextDate=#1/1/200 2# 5表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是5，设a=3,b=5，则表达式(a>b)Or(b>0)值为真。5/5.25 为1 如果除数与被除数不是整数时，系统会自动对其进行取整运算，取整是有规律的：如果整数部分为偶数，大于 0.5的就进位，小于等于0.5的就直接把小数去掉，5舍6入；如果整数部分为奇数，4舍5入。例如： 5\2.5等价于5\2 5\2.6等价于5\3 6函数String(n，"str")的功能是返回由n个字符组成的字符串 7设有如下声明： Dim X As Integer 如果Sgn(X) 的值为-1，则X的值是小于0的数Sgn(3-5)=-1 Sgn(5-3)=1 8Integer类型的数据由2字节组成，Long类型的数据由4字节组成。 9已知X＜Y，A＞B，正确表示它们之间关系的式子是Sgn(Y-X)-Sgn(A-B)=-2 10在一个有①逻辑运算②算术运算及③关系运算混合在一起的表达式(无括号)中，其运算顺序为②③①
VB代码大全
隐藏form1： form1.hide 显示form1： form1.show --------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出： Private Sub Form_Unload(Cancel As Integer) Dim iAnswer As Integer iAnswer = MsgBox("真要退出吗?", vbYesNo) If iAnswer = vbNo Then Cancel = True Else End End If End Sub ---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码： Private Sub From_Unload(Cancel As Integer) Cancel = true End Sub ------------------------------------------------------------------------------------------------ 点击command1打开33IQ网： Dim strURL Private Sub Command1_Click() strURL = "错误！超链接引用无效。 Shell "explorer.exe " & strURL, 1 End Sub ------------------------------------------------------------------------------------------------ 运行c:\1.exe shell "c:\1.exe" 执行c:\1.bat shell "c:\1.bat" 注：只适用于大部分exe和全部bat。
VB 做简易计算机程序代码
VB 做简易计算机程序代码 Private Sub Command1_Click() '每点击一下该按钮,就在文本框的尾部加字符"0" '如果txtLabel为空,则说明现在正在输入的第一个数字 '负责表示输入的是第二个数字 If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "0" Else txtSecond.Text = txtSecond.Text + "0" End If End Sub Private Sub Command10_Click() If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "8" Else txtSecond.Text = txtSecond.Text + "8" End If End Sub Private Sub Command11_Click() If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "9" Else txtSecond.Text = txtSecond.Text + "9" End If End Sub Private Sub Command12_Click() txtLabel.Text = "加" End Sub Private Sub Command13_Click() txtLabel.Text = "减" End Sub Private Sub Command14_Click() txtLabel.Text = "乘" End Sub Private Sub Command15_Click() txtLabel.Text = "除"
vb程序设计试题(含答案)
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
vb简单的计算机源代码
vb简单的计算机源代码.txt如果青春的时光在闲散中度过，那么回忆岁月将是一场凄凉的悲剧。杂草多的地方庄稼少，空话多的地方智慧少。即使路上没有花朵，我仍可以欣赏荒芜。Private Sub Command1_Click() = "欢迎使用智能计算器" '载入默认正常显示 If = "0" Then '1类分歧ElseIf = "" Or = "" Then '2类分歧 = "xataliq kuruldi" = "运算数值不能为空" ElseIf = "" And = "" Then '2类分歧 = "xataliq kuruldi" = "运算数值不能为空" Else '2类分歧 Dim a, b, c As Double a = Val
b = Val c = a + b = c = "" = "" End If If = "1" Then '1类分歧ElseIf = "" Or = "" Then '2类分歧 = "xataliq kuruldi" = "运算数值不能为空" ElseIf = "" And = "" Then '2类分歧 = "xataliq kuruldi" = "运算数值不能为空" Else '2类分歧
Dim d, e, f As Double d = Val e = Val f = d + e = f End If End Sub Private Sub Command2_Click() = "欢迎使用智能计算器" If = "1" Then ElseIf = "" Or = "" Then = "xataliq kuruldi" = "运算数值不能为空" ElseIf = "" And = "" Then = "xataliq kuruldi"
VB程序练习题整理稿剖析
1．退出Visual Basic 的快捷键是______。A. Ctrl+Q B.Shift+Q C.Alt+Q 2．窗体设计器是用于设计______。 A．应用程序的界面 C．应用程序的代码D. Ctrl+Alt+Q B. 对象的属性D. 窗体的代码 3．启动Visual Basic 后,VB为用户建立的第一个窗体是______。 A．Form1 B.Form C．窗体1 D. 窗体 4．启动Visual Basic 后,VB为用户新建立的工程的名字是______。 A．窗体1 B. 工程1 C．窗体 D. 工程 5．工程资源管理器窗口包含的文件类型有______种。 A．1 B.2 C．3 D. 4 6．如果VB环境中缺少某个窗口，一般应从主菜单______的下拉菜单中找到相应的激活命令。 A．编辑C．调试B. 文件D. 视图 7．能够通过标准工具栏打开的窗口是______。 A．代码窗口 C．属性窗口 8．窗体文件的扩展名______。B. 设计器窗口D. 窗体布局窗口 A．.bas B. vbp C．.exe 9．工程文件的扩展名______。 A．.com D. frm B. vbp C．.exe D. bas 10．Visual Basic的编程机制是______。 A．面向过程C．事件驱动B. 面向对象D. 可视化 （三）练习题 使用VB建立一个应用软件的全过程有哪些步骤？。1．具体过程如下（1）在窗体上建立用户窗口（界面）对象。 （2）分别对对象设置属性。 （3）分别对对象事件的过程编程且完成代码输入。 （4）运行程序和调试程序。 （5）保存程序。 1． 2．保存VB文件，至少要保存几个文件？应先保存什么文件？2．至少保存2个文件，先保存窗体文件，后保存工程文件。
VB编程常用代码 大一练习专用
A,B,C排序由大到小 Dim a As Single,b As Single,c As Single a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) If b>a Then d=a:a=b:b=d End If If c>a Then d=a:a=c:c=d End If If c>b Then d=b:b=c:c=d End If Text4.Text=a Text5.Text=b Text6.Text=c End Sub Private Sub Command2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" Text5.Text="" Text6.Text="" End Sub 计算a+b Private Sub Command1_Click() Text4.Text=Val(Text2.Text)+Val(Text3.Text) Text1.Text="欢迎新同学" End Sub 清除
Private Sub Command2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" End Sub 奇偶数显示器 显示 Private Sub Command1_Click() Dim a As Integer a=Val(Text1.Text) If a/2=Int(a/2)Then Text2.Text="您输入的数是偶数" Else Text2.Text="您输入的数是奇数" End If End Sub 清除 Private Sub Command2_Click() Text1.Text="" Text2.Text="" End Sub 奇偶数判断 Dim a,b As Integer Dim result As Integer a=Val(InputBox("请输入一个整数","数的输入",300,400)) b=Val(InputBox("请输入一个整数","数的输入",300,400)) If a/2=Int(a/2)Then result=MsgBox("您输入的数:"&a&"是一个偶数",1,"判断结果") Form1.Print rusult Else m="您输入的数:"&a&"是一个奇数" result=MsgBox("您输入的数:"&a&"是一个奇数",1,"判断结果") Form1.Print result End If If b/2=Int(b/2)Then result=MsgBox("您输入的数:"&b&"是一个偶数",1,"判断结果") Form1.Print rusult Else result=MsgBox("您输入的数:"&b&"是一个奇数",1,"判断结果")
vba常用代码大全
前言 我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。 而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。 第1.1例 ASC函数 一、题目： 要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。 二、代码： Sub 示例_1_01() Dim myNum1%, myNum2% myNum1 = Asc("Excel") '返回69 myNum2 = Asc("e") '返回101 [a1] = "myNum1= ": [b1] = myNum1 [a2] = "myNum2= ": [b2] = myNum2 End Sub 三、代码详解 1、Sub 示例_1_01()：宏程序的开始语句。 2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。 也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。Integer 的类型声明字符是百分比符 号 (%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。 Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。 语法 Asc(string) 必要的 string（字符串）参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。 4、myNum2 = Asc("e")：把Asc函数的值赋给变量myNum2。这里返回小写字母e 的ASCII代码101。 5、[a1] = "myNum1= ": [b1] = myNum1：把字符串“myNum1= “赋给A1单元格，把变量myNum1的值赋给B1单元格。 6、[a2] = "myNum2= ": [b2] = myNum2：把字符串“myNum2= “赋给A2单元格，把变量myNum2的值赋给B2单元格。 7、End Sub：程序的结束语句，和“Sub示例_1_01（）”相对应。 第1.2例 Chr函数 一、题目""： 要求编写一段代码，运用Chr函数将ASCII值转换为对应的字符。 二、代码： Sub 示例_1_02() Dim myChar1$, myChar2$ myChar1 = Chr(69) ' 返回 E。 myChar2 = Chr(101) ' 返回 e。 [a1] = "myChar1= ": [b1] = myChar1 [a2] = "myChar2= ": [b2] = myChar2