VB代码

VB代码

一、设计一个登录窗口如下图，完成如下功能：

1．在用户名中输入自己的姓名，密码中输入自己的学号后，单击“登录”按钮后，则在Label3中显示“登录成功！”，否则显示“用户名或密码错误，请重新登录！”；

2．单击“清空”按钮，则将用户名和密码文本框清空，并将焦点设置在用户名框中；3．单击“结束”按钮，退出程序运行。

4．窗体文件名为Login.frm，工程文件名为p1.vbp。

程序代码：

Private Sub Command1_Click()

Dim uName As String, Pass As String

uName = Text1.Text

Pass = Text2.Text

If uName = "张一平" And Pass = "1111111111" Then

Label3.Caption = "登录成功！"

Else

Label3.Caption = "用户名或密码错误，请重新输入！"

End If

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Label3 = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

二、在第一个文本框1中输入一个由二个单词（全部是大写字母）构成的短句，单击“转

换”按钮，要求将在文本框1中输入的短句中的每一个单词的第一个字母保留大写，其余均转换为小写字母，并显示在文本框2中。

程序代码：

Private Sub Command1_Click()

Dim s As String, t As String

Dim n As Single, m As Single

s = Text1.Text

m = Len(s)

n = InStr(s, " ")

t = Left(s, 1) & LCase(Mid(s, 2, n - 1)) & Mid(s, n + 1, 1) & LCase(Mid(s, n + 2, m - n - 1)) Text2.Text = t

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

三、如下图，求一元二次方程的根，要求如下：

a)“计算”按钮，输入系数a、b、c后，判断方程若有实根则输出结果，保留二位小

数；若没有则给出错误信息，重新输入系数；

b)“清空”按钮，将所有文本框清空，且第一个文本框获取焦点；

c)“退出”按钮，结束程序运行。

程序代码：

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single, e As Single, f As Single

a = V al(Text1)

b = V al(Text2)

c = V al(Text3)

If b ^ 2 - 4 * a * c < 0 Then

Print MsgBox("重新输入系数", 48, "提示信息")

Else

e = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)

f = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)

Text4.Text = Format(e, ".##")

Text5.Text = Format(f, ".##")

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

四、生成三个随机整数（100-500之间的数），按生成的顺序将三个数输出在窗体上；然后

通过比较交换按从大到小的顺序再输出结果。可以根据给出的流程图编程，也可以自行设计。

程序代码：

Private Sub form_Click()

Dim x As Single, y As Single, z As Single

Dim s As Single, t As Single, p As Single

Randomize

x = Int(501 * Rnd + 100)

y = Int(501 * Rnd + 100)

z = Int(501 * Rnd + 100)

Print x; y; z

If x < y Then

s = x: x = y: y = s

Else

End If

If x < z Then

t = x: x = z: z = t

Else

End If

If y < z Then

p = y: y = z: z = p

Else

End If

Print x; y; z

End Sub

五、用两种方法判断用户输入的正整数N是否为素数

程序代码：

Option Explicit

Dim N As Integer

Private Sub command1_click()

Dim k As Integer

For k = 2 To N - 1

If N Mod k = 0 Then Exit For

Next k

If N = k Then

Text2.Text = "是素数"

Else

Text2.Text = "不是素数"

End If

End Sub

Private Sub command2_click()

Dim k As Integer, i As Integer

k = 0

For i = 1 To N

If N Mod i = 0 Then k = k + 1

Next i

If k = 2 Then

Text3.Text = "是素数"

Else

Text3.Text = "不是素数"

End If

End Sub

Private Sub text1_change()

N = V al(Text1.Text)

End Sub

六、求1000以内的同构数。若一个数出现在它平方数的右边，则称此数为其平方数的同

构数，如5的平方为25,25的平方为625

程序代码：

Private Sub Command1_Click()

Dim i As Integer, n As Integer, k As Long

Dim s As String, x As String

For i = 0 To 1000 Step 1

s = CStr(i)

n = Len(s)

k = i ^ 2

x = CStr(k)

If i = V al(Right(x, n)) Then

Print i; k

End If

Next i

End Sub

七、数字时钟，如图3。

程序代码：

Private Sub Timer1_Timer()

Dim s As String, n As Integer

n = Weekday(Now, 2)

If n = 7 Then

s = "日"

ElseIf n = 6 Then

s = "六"

ElseIf n = 5 Then

s = "五"

ElseIf n = 4 Then

s = "四"

ElseIf n = 3 Then

s = "三"

ElseIf n = 2 Then

s = "二"

ElseIf n = 1 Then

s = "一"

End If

Label1.Caption = "今天是" & Y ear(Now) & "年" & Month(Now) & "月" & Day(Now) & "日" & "星期" & s

Label2.Caption = Time()

End Sub

八、编写个人所得税计算器，界面如图所示，要求：当输入税前收入后，单击“计算”按

钮，则将个人所得税金额和税后收入分别显示在相应的文本框中。个人所得税的计算公式为：

所得税额=（收入-2000）*纳税率- 速算扣除数

具体参数如表中所示。

个人所得税税率

程序代码：

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single

a = V al(Text1.Text)

If a > 102001 Then

b = (a - 2000) * 0.45 - 15375

ElseIf a >= 82001 Then

b = (a - 2000) * 0.4 - 10375

ElseIf a >= 62001 Then

b = (a - 2000) * 0.35 - 6375

ElseIf a >= 42001 Then

b = (a - 2000) * 0.3 - 3375

ElseIf a >= 22001 Then

b = (a - 2000) * 0.25 - 1375

ElseIf a >= 7001 Then

b = (a - 2000) * 0.2 - 375

ElseIf a >= 4001 Then

b = (a - 2000) * 0.15 - 125

ElseIf a >= 2501 Then

b = (a - 2000) * 0.1 - 25

ElseIf a >= 2001 Then

b = (a - 2000) * 0.05

End If

Text2.Text = b

Text3.Text = a - b

End Sub

Private Sub Command2_Click()

End

End Sub

九、编写程序实现奇偶数的统计和显示，如图所示，要求如下：

a)单击“生成”按钮，生成100个三位随机整数，分别将其中的偶数与奇数显示在二

个列表框中

b)单击“统计”按钮，将奇偶数的个数分别显示在二个文本框。

c)单击“清空“按钮分别将所有的文本框和列表框清空。

d)单击“结束”按钮，结束程序运行。

程序代码：

Private Sub Command1_Click() Dim i As Integer

Randomize

For k = 1 To 100

i = Int(Rnd * 900) + 100

If i Mod 2 <> 0 Then

List1.AddItem i

Else

List2.AddItem i

End If

Next

End Sub

Private Sub Command2_Click() Dim x As Integer, y As Integer Dim i As Integer

For k = 1 To 100

i = Int(Rnd * 900) + 100

If i Mod 2 <> 0 Then

x = x + 1

Else

y = y + 1

End If

Next

Text1.Text = x

Text2.Text = y

End Sub

Private Sub Command3_Click() List1.Clear

List2.Clear

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command4_Click()

End

End Sub

十、找出所有的三位素数，并以10个一行的形式输出在图片框中，并统计个数，将统计

结果输出在图片框中的最后一行上。

程序代码：

Private Sub Form_Click()

Dim n As Integer, i As Integer, k As Integer, Flag As Boolean

For n = 100 To 999

Flag = True

For i = 2 To Sqr(n)

If n Mod i = 0 Then Flag = False

' Exit For

Next

If Flag = True Then

k = k + 1

Picture1.Print n;

If k Mod 10 = 0 Then Picture1.Print

End If

Next

Picture1.Print

Picture1.Print Tab(15); "k="; k

End Sub

十一、参考下图设计个人信息注册界面，要求如下：

a)在窗体装载过程时，将性别、出生日期（年、月、日）、文化程度和职业中的内容

添加进去（内容可以自定）；

b)单击“注册”按钮，将所填写的信息添加到“个人信息”列表框中；

c)单击“删除”按钮，将“个人信息”列表框中选中的项目删除；

d)单击“清空”按钮，将“姓名”文本框和“个人信息”列表框中的所有项目清空。

程序代码：

Private Sub Command1_Click()

List1.AddItem Space(6) & Text1 & Space(6) & Combo1.Text & Space(6) & Combo2.Text & "年" & Combo3.Text & "月" & Combo4.Text & "日" & Space(5) & Combo5.Text & Space(10) & Combo6.Text

Command2.Enabled = True

End Sub

Private Sub Command2_Click()

If List1.ListIndex >= 3 Then

List1.RemoveItem List1.ListIndex

End If

End Sub

Private Sub Command3_Click()

Dim I As Integer

Text1.Text = ""

For I = List1.ListCount - 1 To 3 Step -1

List1.RemoveItem I

Next I

Text1.SetFocus

End Sub

Private Sub Form_Load()

Dim a As Integer, b As Integer, c As Integer, d As Integer

For a = 1915 To 2015

Combo2.AddItem a

Next

For b = 1 To 12

Combo3.AddItem b

Next

For c = 1 To 30

Combo4.AddItem c

Next

List1.AddItem String(72, "*")

List1.AddItem Space(6) & "姓名" & Space(6) & "性别" & Space(6) & "出生日期" & Space(6) & "文化程度" & Space(6) & "职业"

List1.AddItem String(72, "*")

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Command1.Enabled = True

Command3.Enabled = True

End Sub

十二、如图所示，在文本框1中输入一个大于1的正整数，找出它的所有因子（包括1和本身），显示在列表框List1中，并求出其所有因子的因子和显示在文本框2中且将因子的个数显示在文本框3中，“清空”按钮将所有文本框和列表框清空，文件名为sy8-1.frm。

程序代码：

Private Sub Command1_Click()

Dim i As Integer, k As Integer

Dim sum As Integer

i = V al(Text1)

For k = 1 To i

If i Mod k = 0 Then

List1.AddItem k

sum = sum + k

End If

Next

Text2 = sum

Text3 = List1.ListCount

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

List1.Clear

End Sub

Private Sub Command3_Click()

End

End Sub

十三、如图所示，随机生成100个三位整数，找出其中的素数按10个一行输出在图片框中，并统计素数的个数，显示在图片框中的最后一行上；“清空”按钮用于清空图片框中的内容（可以多试几次观察一下素数的个数），文件名为sy8-2.frm。

程序代码：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, d As Integer

Dim flag As Boolean

For a = 1 To 100

flag = True

b = Int(900 * Rnd) + 100

For c = 2 To b - 1

If b Mod c = 0 Then

flag = False

End If

Next c

If flag = True Then

d = d + 1

P1.Print b;

If d Mod 5 = 0 Then P1.Print b

End If

Next

P1.Print

P1.Print "100个随机数中有" & d & "个素数";

End Sub

Private Sub Command2_Click()

P1.Cls

End Sub

十四、求出所有三位的水仙花数，显示在列表框中。例如153=13+53+33。

程序代码：

Private Sub form_Click()

Dim a As Integer, x As Integer, y As Integer, z As Integer

Dim s As String, k As String

For a = 100 To 999

s = Str(a)

x = Left(s, 2)

y = Mid(s, 3, 1)

z = Right(s, 1)

If a = x ^ 3 + y ^ 3 + z ^ 3 Then

List1.AddItem a & "=" & x & " ^ " & "3" & "+" & y & "^" & "3" & "+" & z & " ^ " & "3"

End If

Next

End Sub

十五、如图所示，将所有大小写字母的ASCII码表按图示方式输出在图片框中。

程序代码：

Private Sub P1_Click()

Dim Ascii1 As Integer, Char1 As String

Dim k1 As Integer

Dim Ascii2 As Integer, Char2 As String

Dim k2 As Integer

Dim s As String

s = String(180, "*")

P1.Print s

P1.Print Tab(25); "字母ASCII码对照表"

P1.Print s

For Ascii1 = 65 To 90

Char1 = Chr(Ascii1)

P1.Print Tab(k1 * 10 + 3); Char1 & "=" & Ascii1;

k1 = k1 + 1

If k1 = 7 Then k1 = 0

Next

P1.Print Tab(10);

For Ascii2 = 97 To 122

Char2 = Chr(Ascii2)

P1.Print Tab(k2 * 10 + 3); Char2 & "=" & Ascii2;

k2 = k2 + 1

If k2 = 7 Then k2 = 0

Next

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 或

VBProject代码操作代码之常用语句

一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3．增加一个窗体，命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1．删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2．删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3．删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关： 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 方法1： 在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub

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程序代码(简单小程序)

实验一:(带有进度条的倒计时程序) 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、求半径为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

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常用命令大全

常用命令 FontStrikeThru属性是逻辑型，决定对象上正文是否加一删除线。 FontItalic属性是逻辑型，决定对象上正文是否是斜体。 窗体的其它常用属性 2．Icon 控制图标属性：返回或设置窗体左上角显示或最小化时显示的图标。 注意：此属性必须在ControlBox属性设置为Ture才有效 3．ControlBox控制菜单框属性：设置Ture为有，如设置为False则无控件菜单，同时窗体也无最大化按钮和最小化按钮，即使MaxButton属性和MinButton属性设置为Ture。 5. BorderStyle：边框风格, 通过改变BorderStyle 属性，可以控制窗体如何调整大小。 0-None：无边框； 1-Fixed Single：单线边框，不可以改变窗口大小； 2-Sizable：双线边框，可以改变窗口大小； 3-Fixed Double：双线框架，不可以改变窗口大小。 4-Fixed Tool Window:窗体外观与工具条相似。有关闭按钮，不可以改变窗口大小。 5-Sizable Tool Window：窗体外观与工具条相似。有关闭按钮，可以改变窗口大小。 6. WindowsState属性 用来设置窗体的运行状态。 0-Normal：正常窗口状态，有窗口边界； 1-Minimized：最小化状态，以图标方式运行； 2-Maximized：最大化状态，无边框，充满整个屏幕。 7. AutoRedraw属性 该属性决定窗体被隐藏或被另一窗口覆盖之后，是否重新还原该窗体被隐藏或覆盖以前的画面。即是否重画如Circle、Line、Pset和Print等方法的输出。 当为True时，重新还原该窗体以前的画面。 当为False时，则不重画AutoRedraw属性。 4 Resize事件 无论是因为用户交互，还是通过代码调整窗体的大小，都会触发一个Resize事件。 5 Activate事件：当窗体由非活动窗体变为活动窗体，即当窗体得到焦点时触发该事件。窗体常用的方法有： 打印输出Print 移动Move 清除Cls 显示Show 隐藏Hide等方法。 方法的使用的形式: [对象.]方法[参数] 1.Print方法 形式: [窗体名.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，] 作用: 在对象上输出信息 Spc(n)函数：插入n个空格，允许重复使用。 Tab(n)函数：从窗体第n列开始输出，允许重复使用。 ；(分号)：光标定位上一个显示的字符后(紧凑格式)。 ，(逗号)：光标定位在下一个打印区的开始位置处。每个打印区占14列(标准格式)。无；，换行。

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

常见vb程序设计代码

常见vb程序设计代码 作者 : 窦振山 1、猴子每天吃掉的桃子是所有桃子的一半多一个，到第七天发现只剩下一个了，问最开始有几个桃子？、、 Private Sub Command1_Click() Dim m(1 To 7) m(1) = 1 For i = 2 To 7 m(i) = (m(i - 1) + 1) * 2 Next For i = 1 To 7 Print "第" & i & "天的桃数是"; m(i) Next End Sub 2、百元百鸡问题：公鸡三元一只，母鸡两元一只，小鸡一元两只，现用百元买一百只鸡Private Sub Command1_Click() Dim x As Integer Dim y As Integer For x = 1 To 100 For y = 1 To 100 If 3 * x + 2 * y + (100 - x - y) / 2 = 100 Then Print "公鸡 "; x; "母鸡"; y; "小鸡"; 100 - x - y End If Next Next End Sub 1、综合运用一维数组、二维数组、动态数组和控件数组的有关知识编写程序，要求能输入学生的学号、姓名、性别、年龄等个人简况，输入的学生人数不限，并可按学号或姓名查询。界面设计用到了三个command即“添加”、“查询”和“退出”，八个label和四个text 用来输入学号、姓名、成绩和年龄，一个frame，一个picturebox图片框用来显示结果 其程序代码设计如下： Private Type stu id As Integer nam As String sco As Single age As Integer End Type Dim students(100) As stu Dim s As Integer Private Sub Command1_Click() Static i As Integer If Text1.Text = "" Then