vb各种程序

1级数数列求和

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim m, i, n As Integer

Dim s, j As Double

n = InputBox("请输入n的值" & n)

i = 0

m = 1

s = 2

For i = 1 To n

i = i + 1

m = m + i

j = 1 + 1 / i

s = s + j

Next

MsgBox(Str(s))

End Sub

End Class

2求回文数

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i, ww, qw, sw, gw, k As Integer

Dim str1 As String

str1 = ""

For i = 10000 To 50000

ww = i / 10000

qw = (i Mod 10000) / 1000

sw = (i Mod 100) / 10

gw = i Mod 10

If ww = gw And qw = sw Then

k = k + 1

If k Mod 5 = 0 Then

str1 = str1 + Str(i) + vbCrLf

Else : str1 = str1 + Str(i)

End If

End If

Next

MsgBox(Str(k) + vbCrLf + str1)

End Sub

End Class

3求素数

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i, j, k, s As Integer

Dim str1 As String

str1 = ""

For i = 3 To 100

For j = 2 To i - 1

If i Mod j = 0 Then

Exit For

End If

Next j

If j = i Then

k = k + 1

If k Mod 5 = 0 Then

str1 = str1 + Str(i) + vbCrLf

Else : str1 = str1 + Str(i)

End If

End If

Next

MsgBox(str1)

End Sub

End Class

求完全数

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i, j, k, s As Integer

Dim str1 As String

str1 = ""

For i = 2 To 10000

s = 0

For j = 1 To i / 2

If i Mod j = 0 Then

s = s + j

End If

Next

If i = s Then

k = k + 1

If i Mod 5 = 0 Then

str1 = str1 + Str(i) + vbCrLf

Else : str1 = str1 + Str(i)

End If

End If

Next

MsgBox("k=" + k.ToString() + vbCrLf + str1)

End Sub

End Class

矩阵最大元素查找

Dim a(,), n, m, i, j As Integer

Dim max, row, col As Integer

Dim str1 As String

n = Val(InputBox("请输入矩阵行数n="))

m = Val(InputBox("请输入矩阵列数m="))

ReDim a(n - 1, m - 1)

For i = 0 To n - 1

For j = 0 To j - 1

a(i, j) = Val(InputBox("请输入" & i & "行" & j & "列元素的值")) str1 = str1 + Str(a(i, j)) + Space(4)

Next j

str1 = str1 + Chr(10) + Chr(13)

Next i

max = a(0, 0)

For i = 0 To n - 1

For j = 0 To m - 1

If a(i, j) > max Then

max = a(i, j)

row = i

col = j

End If

Next j

Next i

TextBox1.Text = str1

TextBox2.Text = max

TextBox3.Text = row

TextBox4.Text = col

2、习题7-7 矩阵转置

Dim a(,), b(,), n, m, i, j As Integer

Dim str1, str2 As String

n = Val(InputBox("请输入矩阵行数n="))

m = Val(InputBox("请输入矩阵列数m="))

ReDim a(n - 1, m - 1)

ReDim b(m - 1, n - 1)

For i = 0 To n - 1

For j = 0 To m - 1

a(i, j) = Val(InputBox("请输入" & i & "行" & j & "列元素的值")) str1 = str1 + Str(a(i, j)) + Space(4)

Next j

str1 = str1 + Chr(13) + Chr(10)

Next i

For i = 0 To m - 1

For j = 0 To n - 1

b(i, j) = a(j, i)

str2 = str2 + Str(b(i, j)) + Space(4)

Next j

str2 = str2 + Chr(13) + Chr(10)

Next i

TextBox1.Text = str1

TextBox2.Text = str2

3、习题7-8 矩阵输入/输出，行/列求和，元素对换

Dim a(3, 3), i, j As Integer

Dim str1, str2 As String

For i = 0 To 3

For j = 0 To 3

a(i, j) = Val(InputBox("请输入" & i & "行" & j & "列元素的值")) If i = j And i + j = 3 Then

str1 = str1 + Str(a(i, j))

End If

Next

Next

MsgBox(str1)

Dim s1, s2 As Integer

Dim a(3, 3), i, j As Integer

s1 = s2 = 0

For i = 0 To 3

For j = 0 To 3

a(i, j) = Val(InputBox("请输入" & i & "行" & j & "列元素的值")) s1 = a(0, j) + s1

s2 = s2 + a(i, 0)

Next

Next

MsgBox(s1)

TextBox1.Text = s2

Dim t As Integer

Dim a(3, 3), i, j As Integer

Dim str1 As String

For i = 0 To 3

For j = 0 To 3

a(i, j) = Val(InputBox("请输入" & i & "行" & j & "列元素的值")) t = a(0, j)

a(2, j) = t

str1 = str1 + Str(a(i, j))

Next

Next

4、习题7-12 输出“杨辉三角形”

Dim a(,), n, m, i, j As Integer

Dim str1 As String

ReDim a(11, 11)

For i = 1 To 11

For j = 1 To i

If i = j Then

a(i, j) = 1

Else

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

End If

str1 = str1 + Str(a(i, j)) + Space(4)

Next

str1 = str1 + Chr(13) + Chr(10)

Next

TextBox1.Text = str1 Dim a(3, 3), i, j As Integer

Dim str1, str2 As String

For i = 0 To 3

For j = 0 To 3

a(i, j) = Val(InputBox("请输入" & i & "行" & j & "列元素的值")) If i = j And i + j = 3 Then

str1 = str1 + Str(a(i, j))

End If

Next

Next

MsgBox(str1) Dim s1, s2 As Integer

编写程序，建立并输出一个10*10的矩阵，

该矩阵主对角线和副对角线为1，其余元素为0,

结果显示在textbox1文本框中。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a(9, 9), i, j, n As Integer Dim str1 As String = ""

For i = 0 To 9

For j = 0 To 9

a(i, j) = n

If i = j Or i + j = 9 Then a(i, j) = 1

Else

a(i, j) = 0

End If

str1 = str1 + Str(a(i, j))

n = n + 1

Next

str1 = str1 + vbCrLf

Next

TextBox1.Text = str1

End Sub

VB程序代码(简单小程序)

实验一：(带有进度条的倒计时程序) Public Class Forml Dim timers As In teger Dim temp As In teger Private Sub Timer1_Tick(ByVal sender As System.Object, ByVai e As System.EventArgs) Han dies Timerl.Tick If (ProgressBarl.Vaiue + ProgressBarl.Maximum / timers < ProgressBarl.Maximum) The n ProgressBarl.Vaiue += ProgressBarl.Maximum / timers Else Timerl.E nabled = False ProgressBarl.Vaiue = ProgressBarl.Maximum MessageBox.Show(”进度完成！") End If temp += 1 Labell.Text = temp.ToStri ng() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVai e As System.EventArgs) Han dies MyBase.Load timers = 30 End Sub Private Sub Butto n2_Click(ByVal sender As System.Object, ByVai e As System.Eve ntArgs) Han dies Butt on 2.Click timers = Val(I nputBox(" 输入"," 请输入总时间。",30, 0, 0)) End Sub Private Sub Butto n1_Click(ByVal sender As System.Object, ByVai e As System.Eve ntArgs) Han dies Butt on I.Click Timerl.E nabled = True End Sub End Class 实验二(定时器控制蝴蝶飞舞) Public Class Forml Dim t As In teger Private Sub Timer1_Tick(ByVal sender As System.Object, ByVai e As System.EventArgs) Han dies Timerl.Tick 'Dim t As Boolean 'If t = True Then ' PictureBox3 .Im age = PictureBox2 .Im age 't = False 'Else ' PictureBox3 .Im age = PictureBoxI .Im age

《VB选择结构程序设计》教学设计

《VB选择结构程序设计》教学设计 山东省临清市第二中学吴焕英 【案例背景】 高中信息技术新课程的实施，其课程目标定位于全面提升学生的信息素养，其课程的设置从知识与技能、过程与方法、情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何更有效地开展新课程教学，成为老师们迫切需要解决的问题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的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 ' t = False 'Else ' PictureBox3、Image = PictureBox1、Image ' t = True 'End If Select Case t Case 0 PictureBox3、Image = PictureBox1、Image

vb趣味程序课程教案

教学进度表

一、了解计算机语言 各种软件，包括Windows、Word、PowerPoint、各种游戏等都是计算机语言编写出来的。（演示）如贪吃蛇游戏、健康指标计算器等等。 常见的高级语言 1.BASIC。入门者首选语言。指令少，容易上手，易于掌握。 2.PASCAL。适合科学计算、数据处理，运行编译速度快。 3.C语言。主要适用于应用软件的开发，计算机专业人员的必修课。 4.JAVA、.Net、PHP、C#、HTML…… 二、VB语言介绍 VB是Visual Basic的简称，它对学习者的要求不高，但本身效率高、功能强大、实用性强。主要有如下特点：面向对象、事件驱动、软件的集成式开发、结构化。 面向对象和面向过程的区别： 例如五子棋，面向过程的设计思路就是首先分析问题的步骤： 1、开始游戏， 2、黑子先走，

四、制作QQ登录界面 【学生练习】 完成QQ登录界面的制作，并保存工程提交。 教学 后记 授课时间2014年9月23日第4周星期2 总第2课时课题VB程序设计的过程 课型新授课教学时数1课时 教学（一）知识与技能：

目标了解计算机语言； 熟悉VB开发环境 了解VB中的对象、属性、事件 学会编写窗体的设计代码，并能运行程序 （二）过程与方法： 通过QQ登陆窗体的制作了解并掌握程序编写的整个过程 （三）情感、态度与价值观： 通过制作学生最熟悉的QQ登录界面，使学生对VB程序设计产生浓厚的兴趣。 教材分析 重点属性、方法和事件 难点VB的集成开发环境 教学方法讲授法、演示法、练习法、任务驱动法 教学情景设计 【新课引入】 【新课讲授】 对象名称属性、方法或事件(属性、方法或事件)作用说明 登陆窗体Form1 Height属性、Width属 性窗体的高度和宽度

VB整人小程序：让整个屏幕雪花飘飘(改进)

当前位置：首页>VB 小程序> 让整个屏幕雪花飘飘（改进） 58. VB整人小程序：让整个屏幕雪花飘飘（改进） 这是我以前写的小程序让整个屏幕雪花飘飘的改进，本程序是一个模拟下雪的小程序：大小不同随风飘荡的雪花从屏幕上方不断落下，飘满整个屏幕。雪花可在任何窗口上飘荡，包括任务栏、开始菜单、弹出菜单等地方。 本程序与原程序的主要改进之处是：落下的雪花不会消失，会在屏幕底部不断堆积，双击屏幕底部的积雪可使积雪消失。 本程序编译成 exe 文件运行后，只能通过系统“任务管理器”才能终止运行。程序运行效果截图如下: '' '本程序包含两个窗体，Form1 和 Form2，其中 Form1 是启动窗体。代码在在 VB6 调试通过： ''下面是 Form1 窗体代码：===================================== '' 注意：在属性窗口将窗体的 BorderStyle 属性设置为 0，即窗体是无边框窗体 '' 在窗体上放置一个控件：Timer1，不必设置任何属性 ''本人原创，转载请注明文章来源：https://www.wendangku.net/doc/a412919994.html,/100bd/blog/item/fbb5bdd5f0564910a08bb740.html Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Dim ctSnow() As tySnow, ctSnowS As Long, ctSeChange As Long Private Type tySnow '定义表示雪花的数据类型 X As Single: xV As Single 'x 坐标、水平移动速度

VB教案(全套)

教学过程一、导入新课（提问法） 1、教师提出疑问：如何打开并关闭vb程序，从而导入课题？ 软件开发就是一门新兴得朝阳产业，而期中程序设计就就是它得最基础部分，这学期我们通过学习vb来掌握程序开发。 二、讲授新课（讲授演示法） 1、启动与退出vb 1.1启动vb：桌面上双击快捷图标，执行“开始——程序——microsoft Visual basic 6、0中文版”命令。 教师讲解，有以下四种启动方式。 方法1、使用“开始”菜单得“程序”命令； 方法2、使用“我得电脑”图标，找到“vb6、exe”并双击它； 方法3、使用“开始”菜单得“运行”命令； 方法4、利用快捷方式。 1、2 退出vb：执行“文件——退出”命令，点击标题栏得关闭按钮 2、认识vb工作环境 Vb工作环境包括：标题栏、菜单栏、常用工具栏、工具箱以及窗口。 教师讲解，有以下两种退出方式。 1、“文件”菜单－>“退出” 2、Alt＋Q 系统将提示就是否存盘，根据需要回答“Y” / “ N” 3、设置vb工作环境 用户可以根据自己需要对vb程序进行相关设置，执行“视图”菜单中得命令，可以打开或关闭相应得窗口。 4、运行示例程序 演示“泡沫”、“飞舞得蝴蝶”、“计算器”。

形成性测试1、把vb工具箱中得每个控件得英文名对应得中文名标注出来 小结本课我们主要学习vb程序得基本知识： 一、启动与退出vb 二、认识vb工作环境 Vb工作环境包括：标题栏、菜单栏、常用工具栏、工具箱以及窗口。板书设计第一课vb 开发环境简介 一、认识vb 二、演示示例程序 作业练习 课后反思

课题第1课vb 开发环境简介课类信息技术 教学目标1、知识目标： ●了解程序设计得一些术语 ●熟悉vb开发环境 ●掌握启动与退出vb得方法 2、能力目标：培养学生得观察能力、自我探索、自主学习得能力与团体协作得能力。 3、情感目标：通过具体实例，让学生自我展示、自我激励、体验成功，在不断尝试中激发求知 欲，在不断摸索中陶冶情操。 前提诊测1、如何打开并关闭vb程序 导入新课软件开发就是一门新兴得朝阳产业，而期中程序设计就就是它得最基础部分，这学期我们通过学习vb来掌握程序开发。 教学方法任务驱动法、演示操作法 教学重点认识vb开发环境 教学难点Vb界面中各部分得功能 教学过程一、上机练习 二、知识点补充 1、程序设计语言：机器语言，汇编语言与高级语言 2、visual basic：可视化basic语言。编写程序时，可以通过鼠标操作用控件组成程序得窗口界 面，然后再编写相应得程序代码。 形成性测试1、把vb工具箱中得每个控件得英文名对应得中文名标注出来 小结本课我们主要学习vb程序得基本知识： 一、启动与退出vb 二、认识vb工作环境 Vb工作环境包括：标题栏、菜单栏、常用工具栏、工具箱以及窗口。 板书设计第一课vb 开发环境简介 一、认识vb 二、演示示例程序 作业P 课后反思

vb程序设计实例

vb程序设计实例 2009-5-22 15:37 提问者：淘淘的某在|悬赏分：20 |浏览次数：1688次 编写程序，设银行定期存款的年利率为：1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法： ①存一次5年期； ②存一次3年期，一次2年期； ③存一次3年期，两次1年期； ④存两次2年期，一次1年期； ⑤存一次2年期，三次1年期； ⑥存五次1年期. 分别计算各种存法5年后到期的本息合计，如图所示 2009-5-22 17:06 最佳答案 Private Sub Form_Activate() '1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法： Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288 Dim x As Double x = Val(InputBox("")) Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5) Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2) Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1) Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1) Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1) Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1) End Sub Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double ss = a + a * c * b End Function Private Sub Form_Load()

VB条件判断结构程序设计教学案

《VB条件判断结构程序设计》教学案例 职高一计算机王攀【案例背景】 职业高中计算机课程的实施，其课程目标定位于全面提升学生的计算机专业知识，其课程的设置从知识与技能，过程与方法，情感态度与价值观三个方面实施这个课程目标。然而面对学生素质的薄弱，要求教师要结合简单的生活实例，引导学生进行探索式学习，问题从简单的生活实例入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 控制结构是《VisualBasic语言程序设计基础》中最重要的章节之一，本节主要研究最基本的条件判断结构，旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “条件判断结构”是《VisualBasic语言程序设计基础》第七章第一节的内容，共分三课时，本课为第一课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法、这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适

VB6.0的小程序计算器

的小程序计算器 对于刚入门学习VB6 的朋友来说肯定会做些小程序吧，这里就是给大家演示个简单的计算器程序，仅供参考啦。 界面上加减乘除四个按钮分别是cmdAdd cmdPlus、cmdMultiple、cmdDevide，小数点按钮是cmdDot,负号按钮是cmdMinuse,数字0?9为了偷懒，用了控件数组cmdNumber(O)~ cmdNumber(9)，上面txtShow 是显示数字和结果用的，txtOperate 是显示中间步骤的。 思路大致是这样, 点加减乘除这类操作符的时候, 把当前txtShow 的值保存在模块变量mstrParam1 里,同时把操作符保存到mstrOperate 里,按等于号时把先把当前txtShow 的值保存在模块变量mstrParam2 里,然后对mstrParam1 和mstrParam2 进行运算,当然要记得设法把String 转换成数值进行运算。 转换的过程要注意,这里是用的Variant 数据类型, vParam1 和vParam2 都是Variant 类型,保存的是mstrParam1 和mstrParam2 的数值。之所以不用integer 、long 、double 这些标准类型，是因为这些类型都有大小限制，做出来用着不方便，VB最大的整型long才 到47 ,这意味着计算器的计算结果只能限制在9位到10位。而Variant类型可以支持非常 大的数，具体多大不清楚，但起码几十位是能够支持的。另外，最后算完的结果也要做格式化，因为如果数值非常大的话，VB会自动转成科学计数法，所以要用Format函数进行调整。 如果需要源代码的话在我百度空间里留言。Explicit Private Const mstrFORMATDEFAULT As String = "#.##" Private mstrParam1 As String, mstrParam2 As String Private mstrOperate As String Private Sub cmdAdd_Click() mstrParam1 = Trim mstrOperate = "+" ___ nil = & mstrParam1 & vbCrLf = & mstrOperate & vbCrLf End Sub Private Sub cmdPlus_Click() mstrParam1 = Trim mstrOperate = "-" ____ Illi

VB教案(全套)

第1课vb 开发环境简介 课题 教学目标1、知识目标： ●了解程序设计的一些术语 ●熟悉vb开发环境 ●掌握启动与退出vb的方法 2、能力目标：培养学生的观察能力、自我探索、自主学习的能力和团体协作的能力。 3、情感目标：通过具体实例，让学生自我展示、自我激励、体验成功，在不断尝试中激发求知 欲，在不断摸索中陶冶情操。 授课课时4个课时 教学方法任务驱动法、演示操作法 教学重点认识vb开发环境 教学难点Vb界面中各部分的功能

教学过程一、导入新课（提问法） 1、教师提出疑问：如何打开并关闭vb程序，从而导入课题？ 软件开发是一门新兴的朝阳产业，而期中程序设计就是它的最基础部分，这学期我们通过学习vb来掌握程序开发。 二、讲授新课（讲授演示法） 1、启动与退出vb 1.1启动vb：桌面上双击快捷图标，执行“开始——程序——microsoft Visual basic 6.0中文版”命令。 教师讲解，有以下四种启动方式。 方法1.使用“开始”菜单的“程序”命令； 方法2.使用“我的电脑”图标，找到“vb6.exe”并双击它； 方法3.使用“开始”菜单的“运行”命令； 方法4.利用快捷方式。 1.2 退出vb：执行“文件——退出”命令，点击标题栏的关闭按钮 2、认识vb工作环境 Vb工作环境包括：标题栏、菜单栏、常用工具栏、工具箱以及窗口。 教师讲解，有以下两种退出方式。 1.“文件”菜单－>“退出” 2.Alt＋Q 系统将提示是否存盘，根据需要回答“Y” / “ N” 3、设置vb工作环境 用户可以根据自己需要对vb程序进行相关设置，执行“视图”菜单中的命令，可以打开或关闭相应的窗口。 4、运行示例程序 演示“泡沫”、“飞舞的蝴蝶”、“计算器”。

VB小程序代码实例

1.打印负数并分别计算正负数只和： 有如下10个数： -2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他数值) 打印出其中的每个负数，分别计算并输出正数和负数的和。 程序如下： Sub Form_Click() Dim number AS Integer NegativeSum=0:PostiveSum=0 For i=1 To 10 number=InputBox("Enter data: ") If number<0 Then Print number; NegativeSum=NegativeSum+number Else PostiveSum=PostiveSum+number End If Next i print print "NegativeSum=";NegativeSum Print "PostiveSum=";PostiveSum End Sub 2.打印九九表： 在窗体上打印九九表： 程序如下： Print Sub Form_Click() FontSize=12 Print Tab(30);"9*9 Table" Print:Print '输出两个空行 Print "* "; For i=1 To 9 Print Tab(i*6);i; '打印横行序号 Next i For j=1 To 9 Print j;" "; '打印竖行序号 For k=1 To j temp=j*k Print Tab(k*6);temp;" "; '打印乘积 Next k Print '输出一个空行 Next j End Sub

3.打印人员名册 打印人员名册: Private Sub Form_Click() Print:Print FontName="魏碑" FontSize=16 Print "姓名";Tab(8);"年龄";Tab(16);"职务";Tab(24);"单位";Tab(32);"籍贯" Print Print "张得功";Tab(8);"25";Tab(16);"科长";Tab(24);"劳动科";Tab(32);"北京" Print "李德生";Tab(8);"32";Tab(16);"处长";Tab(24);"科研处";Tab(32);"上海" End Sub 4.单选按钮设置字体类型和大小 单选按钮设置字体类型和大小: 在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。 编写时间过程如下： Ptivate Sub Form_Load() Form1.Caption="框架用法示例" Command1.Caption="确定" Command2.Caption="结束" Frame1.Caption="字体类型" Frame2.Caption="字体大小" Option1.Caption="魏碑" Option2.Caption="幼圆" Option3.Caption="16" Option4.Caption="24" Text1.Text="Visual Basic 程序设计" End Sub Private Sub Command1.Click_() If Optoion1 Then Text1.FontName="魏碑" Else Text1.FontName="幼圆" End IF If Option3 Then Text1.FontSize=16 Else Text1.FontSize=24

VB简单小程序

Option Explicit Dim a As Single Dim b As Single Dim c As Single Private Sub cmdCount_Click() Dim count1 As Integer Static count2 As Integer count1 = count1 + 1 count2 = count2 + 1 Label3.Caption = "普通局部变量计数值：" & count1 Label4.Caption = "静态局部变量计数值：" & count2 End Sub Private Sub Command1_Click() a = Val(Text1. Text) b = Val(Text2.Text) c = a * b Text3.Text = c End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Command3_Click() Const pi As Double = 3.1415926 Dim rad As Integer Dim area As Double Dim pre As Double rad = 10 ‘此处改为rad=val(InputBox("输入数值"))试一下 area = rad * rad * pi pre = 2 * pi * rad Text4.Text = "半径=" & rad & "周长=" & pre & "面积=" & area End Sub Private Sub Command4_Click() Dim x As Integer

VB程序设计公开课教案

《VB程序设计》公开课教案 ——FOR…NEXT循环语句 教师： 授课班级：网络13班 授课时间：2014-10-22，上午第一节 授课地点：1座502电脑室 一、教学目标 教学目标 ①认知目标：掌握FOR…NEXT语句的使用，理解FOR…NEXT语句执行过程。 ②能力目标：培养学生分析问题，解决问题的能力。 ③情感目标：激发学生的学习兴趣，提高学生的学习积极性。 二、重点、难点 重点：掌握FOR…NEXT循环语句的使用格式。 难点：理解FOR…NEXT语句的执行过程，即循环变量和循环体是如何变化的。 三、教材分析 教材是选用南开大学出版社的《Visual Basic程序设计教程》（“十二五”全国职业教育规划教材）。程序设计中很重要的是要掌握好三种基本的程序结构。循环结构是程序设计中的一种很重要的程序结构，其作用是使一段程序反复执行。FOR…NEXT语句是循环运算的专家，在程序设计中频繁出现。通过本次课的学习，使学生对循环结构有一个更深刻的理解，并能进一步提高学生编写程序的能力。 四、学情分析 网络13班的学生高二级计算机班学生，他们刚考完全国计算机一级证，有一定的计算机基础知识。他们普遍对理论性强的知识点不重视、对具体操作比较容易接受，对通俗易懂的语言比较理解。但也具备一定抽象思维能力和动手操作能力。在学习本课之前，他们已经初步了解了VB程序设计的基本常识和程序设计的一些基本知识。 五、教法和学法 本课采用的教学方法是讲练结合、案例教学法。新课程理论指导下的主体式教学模式，通过教师设置的案例，让学生在学习的过程中，自己动手，有机结合各种知识，以案例教学的方式发展能力。使教学内容合理流动，水到渠成。教学中，启发、诱导赏识贯穿始终，创造学生自主探究学习的平台，使学生变被动学习为主动愉快的学习。 本课教给学生的学法是尝试操作法、主动探究学习法及小组协作学习法。学生通过自我探索，自主学习，使学生在完成任务的过程中不知不觉实现知识的融会贯通，提高自己的理解和分析能力。 六、教具 多媒体机房，多媒体平台，投影，PPT课件等。 七、教学过程 1．创设问题情境，引入新课 1）用前面学过的知识，如何画出这个图形(画5个竖行排列的“*”)？ 2）如果我想画10行，100行，1000行“*”呢？难道就这样顺序写下去吗？ 备注：疑问是建构教学的起点。新课开始，就提出一个真实的问题，力求创设一种教学情境，它可以激起学生的未知欲，有利于建立新的认识结构。 2．给出程序，并通过流程图加以理解 出示上题程序代码并通过流程图分析：

VB大作业(各种小程序编程)

一、鸟巢绘制 Private Sub Form_Click() Cls Dim r, xi, yi, xj, yj, x0, y0, aif As Single r = Form10.ScaleHeight / 2 x0 = Form10.ScaleWidth / 2 y0 = Form10.ScaleHeight / 2 n = 16 aif = 3.14159 * 2 / n For i = 1 To n xi = r * Cos(i * aif) + x0 yi = r * Sin(i * aif) + y0 For j = i To n xj = r * Cos(j * aif) + x0 yj = r * Sin(j * aif) + y0 Line (xi, yi)-(xj, yj), QBColor(i - 1) PSet (xi, yi) Print i - 1 Next j Next i End Sub Private Sub Form_Load() Print "要求："; Print "1.将圆周等分成16份；" Print "2.每个等分点要标记成0-16的数字；" Print "3.按样本图的图案画图。" End Sub 附图：

二、加密 Function code(ByVal s$, ByVal key%) Dim c As String * 1, iAsc% code = "" For i = 1 To Len(s) c = Mid$(s, i, 1) Select Case c Case "A" To "Z" iAsc = Asc(c) + key If iAsc > Asc("Z") Then iAsc = iAsc - 26 code = code + Chr(iAsc) Case "a" To "z" iAsc = Asc(c) + key If iAsc > Asc("z") Then iAsc = iAsc - 26 code = code + Chr(iAsc) Case Else code = code + c End Select Next i End Function Private Sub close_Click() Form11.Hide Form1.Show End Sub Private Sub Jiami_Click() Text2 = code(Text1, 2) End Sub

VB趣味小程序

VB趣味小程序 1. 空心三角形 Dim i%, j% Print Space(20); "*" For i = 2 To 9 Print Space(21 - i); "*"; Space(2 * i - 3); "*" Next Print Space(10); For i = 1 To 10 Print Space(1); "*"; Next 扩展程序 Const n = 15 Dim a(1 To n) As Integer Dim i%, j%, t% Randomize For i = 1 To n a(i) = Int(100 * Rnd) '生成15个0～100的随机整数存入数组Next Print "排序前：" For i = 1 To n Print a(i);

Next Print For i = 1 To n - 1 For j = i + 1 To n If a(j) < a(i) Then t = a(j): a(j) = a(i): a(i) = t Next Next Print "排序后：" For i = 1 To n Print a(i); Next 2. 六角星 Dim i%, j%, k% For i = 1 To 10 If i < 4 Or i > 6 Then Print Space(20 - i); For j = 1 To i Print "○"; Next j Else Print Space(6 + i); For k = 14 - i To 1 Step -1

Print "○"; Next k End If Print Next i For i = 3 To 1 Step -1 Print Space(20 - i); For j = 1 To i Print "○"; Next j Print Next i 3. 球来回弹 在窗体上添加一shape空间，shape为circle，计时器空间inteval=10 通用 Dim bz Private Sub Timer1_Timer() If Shape1.Left >= Form1.ScaleWidth - Shape1.Width Then bz = 1 If Shape1.Left <= 0 Then bz = 0 If bz = 0 Then Shape1.Left = Shape1.Left + 10

vb程序设计教程第四版课后答案.doc

vb 程序设计教程第四版课后答案【篇一：visual_basic 程序设计教程(第4 版)_课后答案】 >第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述vb 的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述vb 的安装过程。 答：①向光驱中放入vb 安装光盘； ②计算机将运行自动安装程序，若没有，执行vb 目录下的 setup.exe ；③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动vb 。 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“microsoft visual basic 6.0 中文版”菜单项并单击； ②双击桌面上的vb6.0 快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动vb ； 第二章习题参考答案 一、选择题： 1-10 、dcacdbcbbc 11-20 、badcabbaab 21-29 、aacbbcddc 二、填空题 1．窗体、控件

2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6．form_click 第三章习题参考答案 一、选择题 1、b 2、c 3 、a4、b5、a6、c 7、c 二、填空题 1、11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、 逻辑型、日期型、对象型、变体型。string 、byte 、integer 、long 、single 、double 、currency 、boolean 、date 、object 、variant 2、双引号(英文)、# 3、ascii 、1、2 4、public 、通用、dim 、static 、private 、static 5、、+、+ 6、now() 、time 、日期型 三、解答题 1、(3) 2 、(1 ) 3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量 （7）字符串常量（8）变量（9）日期型常量（题目应是 #11/16/1999# ） （10）数值型常量（单精度） 4、31 5、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y) （3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、（1）13 （2）17 （3）#1999-11-12# （4）zxy123abc 8、（1）19（2）8.16666666666667 （3）5．25（4）2 9、（1）-4 （2）2 . 82842712474619 （3）-3（4）49 （5）”hello （”6）he

初二信息技术《程序设计》教案

第1章程序设计入门 第1节程序设计简介（2课时） 【教材内容】1计算机程序并不神秘 1.1什么是程序 1.2体验计算机程序 2程序设计语言 2.1程序设计语言分类 2.2解释与编译 3程序设计的过程 4程序与软件 【教学目标】 1．知识与技能 （1）了解程序设计的基本概念和用变成方法解决问题的一般过程 （2）了解计算机软件与程序设计的密切关系 （3）了解程序设计语言的三种类型 （4）掌握VB环境下编写程序的一般步骤 2.过程与方法 （1）通过实例让学生体会程序设计的基本过程与方法，理解算法思想，会用自然语言或流程图表达一些具体问题的算法。 （2）通过对现实问题的分析与解决，让学生认识到生活中到处是程序，而程序解决的往往就是生活中的现实问题，培养学生利用计算机解决实际问题的能力。 3.情感态度与价值观

（1）体验程序设计的内涵及魅力，产生对程序设计的求知欲，形成积极主动地学习态度。 （2）通过问题的分析与解决，帮助学生克服程序设计的畏难情绪，培养他们严谨、缜密、科学的程序设计作风。 【教学重难点】 程序设计的基本概念与学习程序设计的意义。 【教学方法】启发式、任务驱动、演示、实例、实践操作 【教学过程】 程序设计简介第一课时 一、问题导入，揭示教学内容 大家有没有玩过电脑游戏？有没有同学想过自己设计和编写游戏？ 游戏就是程序，要想设计、制作游戏，就应该学习“设计程序”。今天我们一起来认识和了解程序，它并不神秘，相反它会给我们带来很多乐趣。 二、趣味问题，了解什么是程序 问题1：猎人带着一只狼、一头羊和一些白菜过河，但渡船太小，一次只能带一样。因为……（课件展示问题） 学生：读题、小组讨论、得出解题思路、方法讲解（自然语言描述、符号描述……） 问题2：赵本山、宋丹丹小品，如何把大象关进冰箱 学生：方法讲解（自然语言描述、……） 总结：概括来说程序是有逻辑，有顺序的步骤的组合。开电脑，走路，吃饭，上课都是一系列步骤的有序有逻辑组合。 通过这些有序的指令（自然语言、符号语言等）完成了一项具体的工作，这些指令的集合就是程序。 问题3：体验计算机程序 利用BASIC语言编写的“三角形面积”程序（课件展示问题及具体的语句）