VB程序设计代码

visual studio的vb程序编程【实用版】目录1.Visual Studio 简介2.VB 编程语言概述3.使用 Visual Studio 进行 VB 程序设计4.总结正文一、Visual Studio 简介Visual Studio 是微软公司推出的一款集成开发环境（IDE），它为开发人员提供了创建、调试和发布应用程序所需的一切工具。

Visual Studio 支持多种编程语言，如 C++、C#、 等，适用于 Windows 平台的应用程序开发。

二、VB 编程语言概述Visual Basic（简称 VB）是一种事件驱动的编程语言，其设计初衷是为了简化 Windows 应用程序的开发过程。

VB 具有语法简单、易学的特点，非常适合初学者入门。

然而，随着编程需求的不断发展，VB 已经逐渐被更先进的编程语言（如 C#）所取代。

三、使用 Visual Studio 进行 VB 程序设计1.安装 Visual Studio首先，需要从微软官方网站下载并安装 Visual Studio。

在安装过程中，可以选择所需的编程语言，如 。

2.创建 VB 项目打开 Visual Studio，点击“文件” - “新建” - “项目”，在弹出的对话框中选择“Visual Basic”模板，并为项目取一个名称，然后点击“创建”。

3.设计用户界面在解决方案资源管理器中双击“窗体 1.vb”，进入设计器视图。

在这里，可以拖动工具箱中的控件（如按钮、文本框等）到窗体上，以设计应用程序的用户界面。

4.编写代码在代码编辑器中，可以编写事件处理程序以及业务逻辑。

例如，当用户点击某个按钮时，可以编写相应的代码来实现功能。

5.调试与运行在开发过程中，可以使用 Visual Studio 的调试功能来查找和修复代码中的错误。

调试完成后，可以点击“调试” - “开始调试”来运行应用程序。

四、总结虽然 已不再是主流编程语言，但通过 Visual Studio 这个强大的开发工具，仍然可以编写和运行 VB 程序。

vb程序设计登陆界面代码详例Imports System.Data.SqlClientPublic Class frmMagementMain'Inherits System.Windows.Forms.FormDim constr As String = "User ID=sa;pwd=a;Initial Catalog=zbb;Data Source=(local)" '定义一个变量，连接字符串Dim sqlstr As String = "select * from manid" '定义一个变量，SQL语句Dim mycon As New SqlConnection(constr) '定义一个变量，为一个连接对象Dim mycom As New SqlCommand(sqlstr, mycon) '定义一个变量，为命令对象Dim myReader As SqlDataReader '定义一个变量，阅读器Dim i As Integer = 0Dim userIDsys() As ArrayPrivate Sub frmMagementMain_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Loadmycon.Open() '打开这个联接myReader = mycom.ExecuteReader '把这个命令的连接送入阅读器myReader.Read()Dim k As Integer = 0While myReader.Read 'while 为遍历集合的每一项，用阅读器的read的方法来读取'定义一个变量的第一项k = k + 1'MsgBox(myReader.Item(1))End WhileMsgBox(k)End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click' Visual Basic 2005' Declare a new TextBox.Dim TextBox2 As New TextBox' Set the location below the first TextBoxTextBox2.Left = 102TextBox2.Top = 242' Add the TextBox to the form's Controls collection.Me.Controls.Add(TextBox2)TextBox2.Text = "这可是我动态加的控件呀"End SubPrivate Sub mnu_magement_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles mnu_magement.ClickDim frmlogin As frmlogin = New frmloginfrmlogin.Show()'GBmagemetPeple.Left = 8'GBmagemetPeple.Top = 28'GBmagemetPeple.Visible = TrueEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.ClickEnd SubEnd Class/////////////////////////////////////Imports System.Data.SqlClientPublic Class frmloginDim i As Integer = 0Dim constr1 As String = "" '定义一个变量，连接字符串Dim sqlstr1 As String = ""Dim mycon1 As New SqlConnection(constr1) '定义一个变量，为一个连接对象Dim mycom1 As New SqlCommand(sqlstr1, mycon1) '定义一个变量，为命令对象Dim myReader1 As SqlDataReader '定义一个变量，阅读器Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles OK_Button.ClickIf txtUsename.Text = "" Or txtPassword.Text = "" ThenMsgBox("请输入用户名和密码")Exit SubEnd Ifsqlstr1 = "select * from mgpep where usernameID='" & txtUsename.Text & "' andpasswordID='" & txtPassword.Text & "'" '定义一个变量，SQL语句constr1 = "User ID=sa;pwd=a;Initial Catalog=SaleCD;DataSource=(local)" '定义一个变量，连接字符串mycon1.ConnectionString = constr1mandText = sqlstr1mycon1.Open() '重新打开这个联接myReader1 = mycom1.ExecuteReader '第二次把这个命令的连接送入阅读器If myReader1.VisibleFieldCount = 0 ThenMsgBox("密码不对请重新输入～")Exit SubEnd IfmyReader1.Read() '阅读器重新使用read方法On Error GoTo ssIf myReader1(0) > 0 ThenfrmMagementMain.GBmagemetPeple.Visible = Truesqlstr1 = "select * from mgpep"If mycon1.State = 1 Thenmycon1.Close()End Ifmycon1.Open()myReader1 = mycom1.ExecuteReader '把这个命令的连接送入阅读器Dim userIDsys(myReader1.VisibleFieldCount - 1, 2)'ReDim userIDsys(10, 2)Dim k As Integer = 0While myReader1.ReadfrmMagementMain.CmbUser.Items.Add(myReader1(0)) For i = 0 To 2userIDsys(k, i) = myReader1.Item(i)Nextk = k + 1End WhileMsgBox("已经成功登录～")mycon1.Close()Me.Close()Exit SubElseMsgBox("您没有权限登录～")mycon1.Close()Me.Close()Exit SubEnd Ifss:MsgBox("您没有权限登录～")Me.Close()End SubPrivate Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Cancel_Button.ClickMe.Close()End SubEnd ClassPublic ADOcn As ConnectionPublic Sub main()Dim strSQLServer As StringstrSQLServer = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=图书销售管理系统;DataSource=longmingxue\SQLEXPRESS"Set ADOcn = New ConnectionADOcn.Open = strSQLServerFrmMain.ShowEnd SubPrivate Sub Command1_Click()Dim ADOrs As New RecordsetDim strSQL As StringDim strXB As StringADOrs.ActiveConnection = ADOcnADOrs.Open "select 学号 from 学生表"If Not ADOrs.EOF ThenMsgBox "该学号已经存在，不能继续添加～", vbCritical + vbOKOnly, "信息提示"ElseIf Option1.Value ThenstrXB = "男"ElsestrXB = "女"End IfstrSQL = "Insert Into 学生表( 学号,姓名,性别)"strSQL = strSQL + " Values('" + Text1 + "','"strSQL = strSQL + Text2 + "','" + strXB + "')"ADOcn.Execute strSQLMsgBox "添加成功～", vbOKOnly, "信息提示"End IfEnd Sub。

VB实例第一天、使用VB收发电子大叔：我说LOLI呀，既然你已经学习过VB的基础知识，也做过一些简单的程序，那么我也就不浪费口水教你认识界面、了解控件和学习语法了。

不如我来教教你怎么样制作出一些切实可用的程序，这样既能够加深对VB 的认识，还可以让你拥有十足的成就感呢！LOLI：好呀，那做一些什么程序呢？大叔：当然不会像我哥哥当年那样简单至极的程序，而是一些具有实用性的程序，也可以做一个小游戏之类的，你看怎么样？LOLI：好的，不过今天别教我做游戏，不然明天就没有心思学了。

大叔：这个我自然知道，那我们就开始动手制作一个收发电子的程序吧。

LOLI：收发电子？这个会不会很难呢？大叔：正所谓会者不难，难者不会，有我这位名师指点，你还怕什么呢？开始动手吧！一、准备工作大叔：在VB中编写电子程序需要通过调用微软公司的MAPI（Me ssaging Application Programming Interface，消息应用程序编程接口），这需要借助两个实现电子收发功能的核心控件：MAPI会话控件和MAPI消息控件。

MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和收发消息。

此外，Windows系统中必须要有遵从MAPI的系统，比如Exchange、Outlook等软件，而还要进行一番设置，确保系统可以正常使用。

LOLI：呵呵，没关系，我用的就是Outlook，正好符合要求。

不过你说的MAPI控件在哪里找呢？大叔：在VB中就有现成的，不过程序没有直接放置在工具箱里，需要我们自己将MAPI控件加入VB工具箱。

首先直接在VB左边的控件栏中右击鼠标，并在弹出菜单中选择“部件”命令，这时可以激活部件设置窗口，在其中的“控件”列表框中选取“Microsoft MAPI Controls”一项（如图1所示），接着按下“确定”按钮之后可以发现工具箱中将多出了两个图标，这就是MAPI会话控件和MAPI消息控件的图标（如图2所示）。

您更加惬意地控制 VCD； （8）屏幕可随意拖动，画面可任意放缩。 VCD 中的影像文件都在光盘的 MPEGAV 目录下，文件名只有两种：AVSEQ01.DAT
或 MUSIC01.DAT（如果是音乐版的卡拉 OK，则还有 MUSIC02.DAT 等。）。 可视动画控件 ActiveMovie 是 Microsoft 公司的控件，从不成熟的 1.0、1.2 到 2.0，
巧用 VB 编程使 XMPLAYER 自动播放 VCD（缺少）
用 VB 5.0 实现多画面播放功能
2000-07-15· ·请作者与我们联系··学 vb 找王国荣
font size=2> 所谓动态画中画，指的是在大画面视频播放时，小画面在大画面中也播放另外的画
面，或者是两个画面都在做某种活动。 笔者前段时间用 VB 5.0 开发了一个 VCD 播放程序，可以实现以下功能： （1）可以多屏播放，也就是画中画功能，可同时播放几个不同的画面； （2）可以同时播放 CD-ROM 中的视频音频文件（当然，在硬盘中播放速度会更快
我们再增加一个主菜单项：“屏幕”（SCREEN）及其子菜单项：“全屏 A” （FULLSCREENA），用来控制屏幕大小：
Private Sub FULLSCREENA_Click() On Error Resume Next ActiveMovie1.FullScreenMode = True ActiveMovie1.Run ActiveMovie1.MovieWindowSize = amvMaximized End Sub FullScreenMode 用来控制画面是否为全屏，当它为 TRUE 时则以全屏方式播放 VCD，为 FALSE 时则取消全屏方式。 MovieWindowSize 也是控制屏幕的大小：（1）全屏大小： ActiveMovie1.MovieWindowSize = amvMaximized；（2）正常大小： ActiveMovie1.MovieWindowSize = amvOriginalSize；（3）倍屏： ActiveMovie1.MovieWindowSize = amvDoubleOriginalSize；（4）1/2 屏： ActiveMovie1.MovieWindowSize = amvOneHalfScreen；（5）1/4 屏： ActiveMovie1.MovieWindowSize = amvOneFourthScreen；（6）1/16 屏： ActiveMovie1.MovieWindowSize = amvOneSixteenthScreen。 我们可以随意控制屏幕，下面让我们再把声音控制一下吧！

能否被本模 不能 块的其他过 程存取 能否被其他 不能 模块存取
窗体/模块 的“通用 声明”段
能
窗体/模块的“通用 声明”段
能
不能
能，但在变量 能 名前加窗体名
3.3.3 变量
No Image
3. 隐式声明变量:
是指使用的变量未用声明语句进行声明而直接使用
• 未声明直接使用的变量均默认为Variant型
LIKE 'Jan%I ' m VisualN Basic a 程序o 设计ge
No Image
No Image
No Image
3.4.1 运算符
No Image
Is运算符 用来比较两个对象 。
语比法 较运算符
result = object1 Is object2
Object：任意对象名称。 Is 运算符示例
No Image
No Image
No Image
3.3.1 数据类型
No Image
1.数值数据类型
Integer; Long ; Single; Double; Currency; Byte
2.Boolean型:
True (-1) 占2个字节，只有两个值 False ( 0)
3.String型:
• 也可在变量名后加一个规定数据类型的说明符加以说明
4. Option例E：xpDliimciSttr语1 句As String
(1)作用：强SStt制rr21显==式""声计计明算算变机机量程程。序序设设计计"" 即使用St任r3何%＝一个12变3 量必须“先声明,后使用”
(2)增加OpPtiroinntExStprli1c,it语St句r2的, 方St法r3：

模（一二）1.从键盘上输入3个数分别放入x y z中，编程使x中的数最大，z中的数最小。

Private Sub Form_Click()x = Val(InputBox("请输入x"))y = Val(InputBox("请输入y"))z = Val(InputBox("请输入z"))If x < y Then t = x: x = y: y = tIf y < z Then t = y: y = z: z = tIf x < y Then t = x: x = y: y = tPrint x; y; zEnd Sub2.用近似公式求自然对数e的值，精确到1/n!<F,F由用户输入。

e=1+1/1!+1/2!+……1/n! Private Sub Form_Click()Dim F#, e#, n%, t&e = 1: n = 1: t = 1F = Val(InputBox("输入F值"))Doe = e + 1 / tn = n + 1t = t * nLoop Until 1 / t <= FPrint eEnd Sub3.将d:\a.txt复制为d:\b.txt,要求不能直接使用Filecopy语句。

Private Sub Command1_Click()Dim sline As StringOpen "d:\a.txt" For Input As 1Open "d:\b.txt" For Output As 2While Not EOF(1)Line Input #1, slinePrint #2, slineWendClosePrint "Copy finished"End Sub4.统计200~300中素数的个数，显示在窗体上，素数的判断用自定义函数judge来实现。

第5章 基本的控制结构
For循环
例2: 求10！
例1:求1+2+3+4+ …+10之和. 分析: •重复过程(循环体): + •初值、终值和增量:1、10、1 Dim I, s As Integer For I = 1 To 10 s=s+I Next I Print I, s
分析:
•重复过程:* •初值、终值与增量不变 Dim I, s As Integer s=1 For I = 1 To 10 Fors=1 =1 1 To To 10 10 For II = s=s*I Next I Print I, s
循环体的执行次数是多少 ? 输出的I、S的值是多少 ? For I = 1 To 10执行多少次？
初值与终值换位 可以吗？
程序代码： Dim I%, s % ForI I=10 To Step For = 1 To 10 1 step 1 -1
s=s+I
Next I Print I, s
Visual Basic 程序设计
visualbasicvisualbasic程序设计程序设计第第55章章基本的控制结构基本的控制结构第第55章章基本的控制结构基本的控制结构累加和平均值累加和平均值求素数求素数求数的质因数求数的质因数穷举法穷举法递推法递推法55visualbasicvisualbasic程序设计程序设计第第55章章基本的控制结构基本的控制结构第第55章章基本的控制结构基本的控制结构例1
优：Mark ≥ 90 等级： 通过：60 ≤ Mark ＜ 90 未通过：<60
思考?
Visual Basic 程序设计
第5章 基本的控制结构

VB程序设计－整除统计并换行输出（作者：草原飞狼 2014年5月28日）声明：仅供学习与交流使用，高手请飘过，谢谢！所有代码都是个人亲自编写并调试成功。

布局运行界面（1）运行界面（2）源代码如下：Private Sub Command1_Click()Rem 求1-1000之间能够被13整除的数，每10个换行显示Dim i, j As Integerj = 0 '行输出控制变量For i = 1 To 1000If i Mod 13 = 0 ThenPicture1.Print i;Rem 以下三行控制行输出数量，也可以直接使用变量ij = j + 1If j Mod 10 = 0 Then '把j换成i也正确Picture1.PrintEnd IfEnd IfNext iEnd SubPrivate Sub Command2_Click()Rem 清空Form1.Picture1.ClsEnd SubPrivate Sub Command3_Click()Rem 退出Dim int_msg As Integerint_msg = MsgBox("单击“是”退出程序，单击“否”程序将返回！", vbYesNo + vbQuestion + vbDefaultButton1, "退出提示")If int_msg = vbYes ThenUnload MeElseMsgBox "你选择不退出，程序将继续进行！", vokonly + vbExclamation, "返回程序"End IfEnd SubPrivate Sub Form_Load()Rem 初始化，设置picture1字体With Form1Picture1.FontName = "宋体"Picture1.FontSize = 16FontBold = TrueEnd WithLabel1.Caption = "求1-1000之间能够被13整除的数，每10个换行显示"Label1.ForeColor = vbRedEnd Sub。

界面设计窗口
代码设计窗口
（3）运行程序 标准工具栏中启动程序按钮 ，或按[F5]键。
（4）保存工程(P14) 保存VB程序需要保存窗体文件和工程文件。 至少包括：工程文件(.vbp )和窗体文件(.frm)
例二 计算1～10的和值。
(1)界面设计 在界面设计窗口添加1个标签控件、1个文本框控 件、1个命令按钮控件。
‘赋值号左侧不是变量
(2) 设置控件属性
Form1.Width=400 √ Command1.Left=Command1. Left -100 √ Form1.Left=Form1.Left+300 √
小结
空格的书写
（1）单个常量或变量。 Dim x As Integer Print 123 ; “ABC”; x
（2）计算表达式后输出。 x=10 : y=20 Print 2*(x+y)
（3）一种有提示的输出方式。 Print x*x+2*x+1 Print “y=”; x*x+2*x+1 ‘比较两式
2 Print语句使用符号进行输出格式控制 （1）分号，紧凑的输出方式，如Print “x=” ; x （2）逗号，分散的输出方式，如Print “y=” , x^2 （3）无符号，如Print 。则实现光标换行显示
Dim N1 As Long ‘给变量取名为N1，变量 N1中存储的数据类型为长整数类型
Dim Str1 As String , Str2 As String*10 ‘定义Str1为变长字符串 , Str2为定长字 符串 , Str2字符长度为10
一般来说，变量应遵从先定义后使用的原则。 注意，变量定义后默认初始值为0或空字符串。 错误的写法：Dim i , j as Integer

1、判断素数Dim x%,i%x = Val(Text1.Text)For i = 2 To x - 1If x Mod i = 0 Then Exit ForNext iIf i = x ThenMsgBox x & "是素数"ElseMsgBox x & "不是素数"End If＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝勾股数For a = 1 to 100For b = a to 100c = sqr( a * a + b * b )if c = fix( c ) and c <= 100 then print a,b,cNext bNext a＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝3、求最大公约数，最小公倍数法一dor=m mod nm=nn=rloop until r=0print “最大公约数是：”；m法二Private Sub Command1_Click()Dim a As Integer, b As IntegerDim MaxDeno As IntegerDim MinComMulti As Integera = Text1.Textb = Text2.TextMaxDeno = gcd(a, b)MinComMulti = a * b / MaxDenoPrint MaxDeno; MinComMulti End SubPrivate Function gcd(ByVal x As Long, ByVal y As Long)Dim r As Longr = x Mod yIf r = 0 Thengcd = yElsex = yy = rgcd = gcd(x, y)End IfEnd Function＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝4、常用排序法（OP：>为升序；<为降序）选择排序法For i = 1 To N - 1For j = i + 1 To NIf Sort(i) OP Sort(j) Thentemp = Sort(i)Sort(i) = Sort(j)Sort(j) = tempEnd IfNext jNext i 直接排序法For i = 1 To N - 1pointer = iFor j = i + 1 To NIf Sort(pointer) OP Sort(j) Then pointer = j Next jIf i <> pointer Thentemp = Sort(i)Sort(i) = Sort(pointer)Sort(pointer) = tempEnd IfNext i冒泡排序法For i = 1 To N - 1For j = 1 To N - iIf S(j) OP S(j + 1) Thent = S(j)S(j) = S(j + 1)S(j + 1) = tEnd IfNext jNext i＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝5、常用的查找法顺序查找For i = 1 To UBound(search)If search(i) = x Then Exit For Next iIf i <= UBound(search) ThenPrint "找到了X"ElsePrint "没找到X"End If 二分查找flg = FalseLeft = 1Right = UBound(S)Do While Left <= RightMid = (Left + Right) / 2If x = S(Mid) Thenflag = TrueExit DoElseIf x > S(Mid) ThenLeft = Mid + 1ElseRight = Mid - 1 End IfLoop＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝6、有关数组的算法还有：1)求一维数组a（n）元素的和s = 0For i = 1 To ns = s + a(i)Next i2)求二维数组a（n，m）各元素的和s=0For i=1 to nfor j=1 to ms=s+a(I,j)next jNext I 3)求二维数组a(m,n)周边元素的和s = 0For i = 1 To ns = s + a(1, i) + a(m, i)Next iFor i = 2 To m - 1s = s + a(i, 1) + a(i, n)Next j4)求二维数组a（n，n）主对角线元素的和s = 0For i = 1 To ns = s + a(i, i)Next i5)求二维数组a（n，n）次对角线元素的和s = 0For i = 1 To ns = s + a(i, n + 1 - i)Next＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝7、求最大数，最小数Min = x(0)Max = x(0)For i = 1 To ubound（x）If x(i) < Min Then Min = x(i)If x(i) > Max Then Max = x(i)NextPrint "最大数="; Max & vbCrLf & "最小数 ="; Min＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝。

计算机的多媒体技术已经广泛普及, 对于一般的用户来说, 采用可视化编程工具是最好的选择, VB程序设计语言就是其中一个典型的代表。Visual Basic是Microsoft Windows的编程语言。Visual Basic是在一个集成开发环境（IDE）中创建的，IDE使得程序员可以方便地创建、运行和调试Visual Basic程序。Visual Basic是世界上使用最广泛的快速应用程序开发语言。为提高大家学习VB的兴趣，在这里，我们以一个简单的加法程序来体验一下VB的强大功能。
第二步：双击"计算"按钮，会出现如下的代mand1_Click()和End Sub之间写上如下代码：
M = Val (Text1.Text)
N = Val (Text2.Text)
K = Val (Text3.Text)
If m + n = k Then
首先我们启动VB，在出现"新建工程"对话框后，选择"标准EXE"，单击"打开"按钮，即进入如下图的VB开发环境。
第一步：单击工具箱中的"TextBox(文本框)"图标 ，移动鼠标指针到窗体Form1上，这时鼠标指针变成了"+"形状。拖出3个并排的有一点间距的方框出来，里面有text1、text2、text3的字样，分别选中它们，按鼠标退格键删除这些字样。再单击"Label(标签)"图标A，在刚才的3个方框之间拖2个标签框，分别键入加号"+"和等于号"="，最后单击"Command（命令按钮）"图标 ，在窗体的下方拖出一个按钮出来，拖出一个带有Command1字样的按钮，直接写上"计算"二字。如图所示：

【关键字】精品常见vb程序设计代码作者: 窦振山1、猴子每天吃掉的桃子是所有桃子的一半多一个，到第七天发现只剩下一个了，问最开始有几个桃子？、、Private Sub Command1_Click()Dim m(1 To 7)m(1) = 1For i = 2 To 7m(i) = (m(i - 1) + 1) * 2NextFor i = 1 To 7Print "第" & i & "天的桃数是"; m(i)NextEnd Sub2、百元百鸡问题：公鸡三元一只，母鸡两元一只，小鸡一元两只，现用百元买一百只鸡Private Sub Command1_Click()Dim x As IntegerDim y As IntegerFor x = 1 To 100For y = 1 To 100If 3 * x + 2 * y + (100 - x - y) / 2 = 100 ThenPrint "公鸡 "; x; "母鸡"; y; "小鸡"; 100 - x - yEnd IfNextNextEnd Sub1、综合运用一维数组、二维数组、动态数组和控件数组的有关知识编写程序，要求能输入学生的学号、姓名、性别、年龄等个人简况，输入的学生人数不限，并可按学号或姓名查询。

界面设计用到了三个command即“添加”、“查询”和“退出”，八个label和四个text 用来输入学号、姓名、成绩和年龄，一个frame，一个picturebox图片框用来显示结果其程序代码设计如下：Private Type stuid As Integernam As Stringsco As Singleage As IntegerEnd TypeDim students(100) As stuDim s As IntegerPrivate Sub Command1_Click()Static i As IntegerIf Text1.Text = "" ThenMsgBox ("student's id can't be null!")Exit SubElsestudents(i).id = Val(Text1.Text)students(i).nam = Text2.Textstudents(i).sco = Val(Text3.Text)students(i).age = Val(Text4.Text)End IfIf i > 10 Then Exit SubPicture1.Print Tab(2); students(i).id; Tab(13); students(i).nam; Tab(24); students(i).sco; Tab(36); students(i).agePicture1.Printi = i + 1End SubPrivate Sub Command2_Click()s = Val(InputBox("enter the searched student's id"))For j = 0 To 10If students(j).id = s ThenPicture1.ClsPicture1.Print Tab(2); students(j).id; Tab(13); students(j).nam; Tab(24); students(j).sco; Tab(36); students(j).ageExit ForEnd IfIf j = 100 Then MsgBox ("Student does not exit!")NextEnd SubPrivate Sub Command3_Click()EndEnd Sub产生50个60到100的随机数，统计其中被6整除余2的个数，并输出这些数Private Sub Command1_Click()Dim x As Integer, n%Dim counter As IntegerRandomize TimerFor n = 1 To 50x = Rnd() * Rnd() * 41 + 60If x Mod 6 = 2 ThenPrint xcounter = counter + 1End IfNext nPrint counterEnd Sub输入一个数，判断是不是素数：Private Sub Command1_Click()Var = Val(InputBox("请输入一个数"))For i = 2 To Var - 1If Var Mod i = 0 ThenMsgBox ("这不是素数")Exit ForEnd IfNextIf i = Var Then MsgBox ("这是素数")End Sub此文档是由网络收集并进行重新排版整理.word可编辑版本！。

计算器的VB程序设计要求：1）设计一个可以进行四则运算的简单计算器。

该计算器可以进行加、减、乘、除、求模（取余）等简单的四则运算，并具有符合计算器日常使用习惯的容错纠错功能。

具体步骤如下：①在界面上建立按钮控件数组：首先在窗体中置入一个命令按钮控件后，将其激活并点击右键通过“复制”、“粘贴”的方法依次产生19个一样的命令按钮控件，其中在创建第一个“粘贴”控件时VB会询问“是否要创建控件数组？”回答“是”即可开始依次创建该控件数组。

②按钮属性的设置：将各按钮的caption属性分别设置为0，1，2……9，＋、－、×，/，Mod，＝，cls,Exit，注意在设置这些属性时其值与按钮控件的Index属性的对应性。

③其它控件的属性设置：文本框作为显示操作数和结果的控件，应遵循一般计算器的显示习惯，将其Alignment即对齐属性设置为“Right”，此外，将各控件相关的字体、字号等设置为统一风格。

④在程序的通用区定义四个窗体层变量：num1、num2、sum、act、前三个为双精度、act为整型变量。

⑤编写进行四则运算所需的程序作为命令按钮的单击事件过程。

实验三参考代码一：•Dim num1 As Double, num2 As Double•Dim sum As Double•Dim act As Integer•Private Sub Form_Load()•num1 = 0•num2 = 0•sum = 0•End Sub•Private Sub Command1_Click(Index As Integer)•Select Case Index•Case 0• If Text1.Text = "" Then• Text1.Text = "0"• Text1.Text = Text1.Text + "0"• End If•Case 1• If Text1.Text = "" Then• Text1.Text = "1"• Else• Text1.Text = Text1.Text + "1" End If•Case 2• If Text1.Text = "" Then• Text1.Text = "2"• Else• Text1.Text = Text1.Text + "2"• End If•Case 3• If Text1.Text = "" Then• Text1.Text = "3"• Else• Text1.Text = Text1.Text + "3"• End If• If Text1.Text = "" Then• Text1.Text = "4"• Else• Text1.Text = Text1.Text + "4"• End If•Case 5• If Text1.Text = "" Then• Text1.Text = "5"• Else• Text1.Text = Text1.Text + "5"•End If•Case 6• If Text1.Text = "" Then• Text1.Text = "6"• Else• Text1.Text = Text1.Text + "6"• End If•Case 7• If Text1.Text = "" Then• Text1.Text = "7"• Else• Text1.Text = Text1.Text + "7"• End If•Case 8• If Text1.Text = "" Then• Text1.Text = "8"• Else• Text1.Text = Text1.Text + "8"• End If•Case 9• If Text1.Text = "" Then• Text1.Text = "9"• Else• Text1.Text = Text1.Text + "9"• End If•Case 10• If Text1.Text = "" Then• Text1.Text = "."• Else• Text1.Text = Text1.Text + "."• End If•Case 11• num1 = CDbl(Text1.Text) ‘强制转换双精度型• act = 1•Case 12• num1 = CDbl(Text1.Text)• Text1.Text = ""• act = 2•Case 13• num1 = CDbl(Text1.Text)• Text1.Text = ""• act = 3•Case 14• num1 = CDbl(Text1.Text)• Text1.Text = ""• act = 4•Case 15• num1 = CDbl(Text1.Text)• Text1.Text = ""• act = 5•Case 16• num1 = 0• num2 = 0• sum = 0•Case 17• num2 = CDbl(Text1.Text)•Select Case act• Case 1• sum = num1 + num2• Case 2• sum = num1 - num2•Case 3• sum = num1 * num2• Case 4• sum = num1 / num2• Case 5• sum = num1 Mod num2• End Select• Text1.Text = ""• Text1.Text = CStr(sum)•Case 18• End•End Select•End Sub。

有关Format函数的使用，结合后边例子再讲
计算机软件技术基础 Visual Basic 程序设计
3．Rem、Stop、End语句 ⑴ Rem语句 P76
格式：Rem 注释内容 或 ˊ 注释内容 功能：用来在程序中加入注释内容。 说明：① 注释内容可以是包含任何注释文本的内容。Rem和注 释内容之间要加一个空格。
第4章 VB程序设计 基础
计算机软件技术基础 Visual Basic 程序设计
本章主要内容
Visual Basic语言作为结构化程序设 计语言，提供了三种控制流来控制程序 的流程：顺序，条件分支和循环语句。 本章重点介绍三种结构程序设计的特点 和方法，并讲解常见算法的程序实现。计算机软件技术基源自 Visual Basic 程序设计
计算机软件技术基础 Visual Basic 程序设计
① 数值格式化 数值格式化是将数值表达式的值按“格式字符串”指
定的格式输出。 ② 日期和时间格式化
将日期或数值表达式的值按“格式字符串”指定的格 式转换。 ③ 字符串格式化
将字符串按指定的格式进行转换。 上述三种格式符请参考课本P72、P73页表格。
错。例如；
n%=“123” ‘n中的结果是123，与n%=Val(“123’)效果相同
n%=“1a23” ‘出现“类型不匹配”的错误
④ 赋值语句中的“=”与关系运算符中的“=”的作用截然不同。
例如： A=7=9 其中，
第一个“=”是赋值运算符，第二个“=”是关系运算符。
赋值语句a=b和b=a是两个结果不同的赋值语句；而在关系
为0；反之，当数值型赋给逻辑型时，非0转换为True，0转换
为False.
⑦ 任何非字符类型的值赋给字符变量时，系统自动转换

4．代码设计（1）引入命名空间：Imports System.Drawing.Drawing2D（2）在FrmPaint类里定义全局变量和mSelect枚举结构：1.Private g As Graphics '绘图句柄2.Private pstart As Point, pend As Point '定义画图的起始点，终点3.Private mChoice As Integer'选择图形枚举4.Private mWidth As Integer'画笔宽度5.Private mIcon As Icon '用户选择图标6.Private Enum mSelect '选择图形类别枚举7. Pencil '铅笔8. Line '直线9. Ellipse '椭圆10. FillEllipse '填充椭圆11. StyleEllipse '风格椭圆12. Rec '矩形13. FillRec '填充矩形14. StyleRec '风格矩形15. Icon '图标16. Eraser '橡皮17.End Enum（3）在FrmPaint的Load事件中初始化全局变量和Graphics对象：1.Private Sub FrmPaint_Load(ByVal sender As System.Object, _2.ByVal e As System.EventArgs) Handles MyBase.Load3.4. g = Me.picPaint.CreateGraphics '获取PictureBox的绘图句柄5. mChoice = mSelect.Pencil '默认选择选铅笔作为绘图工具6. mWidth = 1 '初始化画笔宽度7.End Sub（4）定义转换坐标起点和终点的过程Convert_Point()。

第一题设计程序，从文本框中输入一个整数n（n<500），单击“处理”按钮是产生3个1~n的随机整数，并分别显示在3个标签中。

程序如下：Private Sub Form_Load()‘加载Dim n As Integer,a As Integer‘定义随机变量Dim b As Integer,c As IntegerRandomize‘使rnd函数产生不同序列的随机数n=Val(InputBox("请输入一个正整数n（n<500）"))'inputbox函数产生对话框供用户输入数值a=Int(n*Rnd)‘在小于n的数内随机选取一树值“下同”b=Int(n*Rnd)c=Int(n*Rnd)Label1.Caption=a‘随机选取的数值n显示在标签上面“下同”Label2.Caption= bLabel3.Caption= cEnd Sub‘结束运行第二题设计程序，在窗体上建立5个文本框和1个命令按钮，利用4个文本框输入4个数，单击命乏按钮进行处理，求出这4个数中的最大数显示在第5个文本框中[提示]①数值的数据类型可以定义为单精度型；②可以参考例4.2的处理方法；也可以分两组数（2个数为一组）进行比较，再从两组数中的较大数中求出最大数.程序如下：Private Sub Command1_Click()'执行Dim m As Single,a As Single'定义变量为单精度Dim b As Single,c As SingleDim d As Singlea=Val(Text1.Text)'为变量赋值b=Val(Text2.Text)c=Val(Text3.Text)第三题设计程序，在窗体上建立一个列表框Listl和一个“显示”命令按钮Commandl。

列表框中已有5个列表项，依次为“表项1”~“表项5”。

程序运行后，可以通过多次单击来选中多个列表项。