mahuirong2012-CSDN博客

原创求给定数组中的最大值

求给定数组中的最大值对于求vb中的用vb编写给定数组中的最大值，我的编程如下：Public Function calcMax( a() As Integer) As Integer max=0 For Each aArrayElement in a If max max=aArrayElem

2012-05-30 18:57:43 494

原创动态添加、删除Text

动态添加、删除Textbox今天学习的动态添加、删除textbox按钮，这是件很有意思的事，从中我也知道了学习vb语言是件很有用的事，对我们以后的学习与工作都是很有用的，动态添加、删除textbox的操作过程，如下： Dim with

2012-05-30 17:29:41 551

原创随机生成n个不同的数字小组合作编写

随机生成n个不同数字的编程这次计算机vb编程课，我们学习了编写随机生成n个不同数字的程序。计算机老师要求我们学会分工合作的编写程序，一般三或四个人一组，我们组总共有三个人，包括马会荣，张璐，以及耿学会。我们做了如下的分工：我负责制作窗体以及最后的汇总工作，及把三人的个个成果汇总在一起，然后运行出来：张璐负责把窗体的编程编写出来：学会负责把添加的模块中的编程编写出来：然后我在将我三

2012-05-17 08:49:07 512

原创用递归的思想求和的编程

用递归的思想求和的编程从高中走来我们已经把前n项求和公式记得滚瓜烂熟，但那些毕竟需要一定量的计算，但如果我们能用计算机编写一套求和的程序，那么我们将会节约大量的计算时间去做别的事情，是我们的生活变得高效而充实，下面就是学习的用递归的思想编写的1到100的编程：Print Sub Command1_click() Me,Fontsize=18 Print

2012-05-10 08:45:29 582

原创随机产生不相同的数的编程

随机产生不同数的编程今天学习了用vb编写随机产生不同数的编程，发现vb也有自己专门的一套语言，我们应该掌握其基本的编写程序，以下是我学习的随机产生十个不同数的编程：Option ExplicitPrivate Sub Command1_click() Dim a(10) As Integer, i As Integer, k as Integer ,

2012-05-09 20:18:20 612

原创编写1000~2000之间能同时被17和37整除的数的程序

1000~2000之间能同时被17和37整除的数的编程今天学习编写某个区间之间同时被某几个数整除的编写程序，以下是1000~2000之间能同时被17和37整除的编写程序，比较简单但很有普遍性，很值得学习，我学习的编程如下： Function Judge (N as Integer) as BooleanJudge =N Mod 17*37=0End

2012-05-04 19:26:58 3170

原创设计一个个人纳税计算程序

设计一个个人纳税计算程序此次程序要求设计一个个人纳税计算程序。按规定：工资、薪金所得，使用超额累进税率。以每月的总收入减去800元后的余额，为应纳税所得额。以下即为我根据题目要求编写的计算程序： Private Sub Command1_click()Dim w as Long Dim s as Long Dim y as Long

2012-05-04 19:06:28 1500

原创两个数与三个数比较输出最大值编程

两个数与三个数比较输出最大值两个数与三个数比较输出最大值的编程时比较多个数的大小输出最大值的编程的基础，简单，易懂，是学习vb基础学者的必修课，两个数比较输出最大值的编程如下： If a>b then print a else print b End i

2012-04-26 17:27:09 2492

原创对十个数，通过编程语言输出最大值

10个数，程序实现输出最大值通过编写这个程序，我发现vb用处确实很大，我们真的很有必要学好它，让他为我们的工作学习更好的服务。以下就是我编写的程序：Private Sub Command1-Click() Dim max as Integer Dim f(9) as integer Dim mystr as String

2012-04-26 17:08:53 1021

原创请您输入您的出生日期，下面的程序将您出生的是周几

编写将出生日期转换为周几的程序通过编写这个程序我不仅知道自己是周几出生的，更重要的是我学到了vb知识，感觉挺有意思的，虽然编写过程挺难理解的，但我会一点点慢慢学习的。下面是编写过程：Dim Year as IntegerDim Month as IntegerDim Day as IntegerDim Dayofweek as B

2012-04-26 16:49:41 1279

原创 VB程序----两位数乘法

VB程序----两位数乘法编程两位数乘法运算编程操作过程如下： Private Sub Command1_Click() Dim numberlengh As Integer Dim Firstnumbers() As Integer Dim Secondnumbers() As Integer numberlengh = Le

2012-04-19 10:35:55 779

原创我的VB第一次作业

初学计算机课学的Visual Basic语言，上机时老师要求模仿一个最大公约数的工程。哇。。。看到那一堆符号都不知道什么意思。但，照葫芦画瓢还是会的，于是就一点点儿的“画”了起来，做的过程中是大错不犯，小错不断，但在学长的帮助下终于成功啦！那种兴奋之情溢于言表，哈哈。。。下面就是工程步骤：Step1.开始-----程序----Microsoft visual Basic6.0 中文版启动 V

2012-04-01 19:32:29 280 1

原创两位或多位数乘法的计算编程

两位或多位数的编程实验操作，通过编程语言将多位数的乘法运算变得简单，也是我更好的了解了vb编程的意义，学习VB是件很有挑战性且很有意义的事情。对于两位数或多位数乘法运算的操作如下：Option Base 1Private Sub Command1_Click()Dim M As StringDim N As StringM = Trim(Text1.Text

2012-04-01 19:22:37 785

原创能动的图形实验

实验五：能动的图形一、实验目的生成能动的图形二、实验内容用VB绘制图形并使其运动绘制圆形并运动的程序代码Dim g As BooleanDim x As LongPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPriva

2012-04-01 19:15:18 260

原创随机生成图形

实验四：随机生成图形一、实验目的让程序随机不定时间生成随机种类的图形并生成多个二、实验内容Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub Private Sub Timer1_Timer()Randomize Cls Dim MaxX

2012-04-01 19:14:24 1168

原创生成随机数实验

实验三：生成随机数实验目的：1. 了解vb数据类型的基本概念2. 掌握变量的定义方法3. 掌握运算符和表达式用法一．实验内容：生成指定范围内的随机整数。用int和rnd函数生成指定范围的随机整数，用randomize函数初始化随机数发生器，用val函数将数字字符串转换为数值。二．实验步骤：1．在窗体上放置

2012-04-01 19:13:23 840

原创大小写的转换

实验二：大小写的转换一、实验目的：1.明确赋值语句的意义，弄清赋值表达式与判断相等关系表达式的区别。2.熟悉数据的输入与输出的办法，学习使用输入框和消息框。二、实验内容：字母大小写转换。程序运行时单击“转大写”按钮，文本中英文全部转化为大写，单击“转小写”按钮，转为小写，单击“复原”按钮，复原为初始状态。三、实验步骤：1. 在窗体中放置三个命令按钮

2012-04-01 19:12:23 502

原创显示各位数实验

实验一：显示各位数一、实验目的：充分认识vb的语言及其能够处理的数据类型。二、实验内容：1. 做三位数的显示，在窗体中放置三个标签，并在其属性值中分别输入“个位”，“十位”“百位”，并放置三个文本框，用于显示各位数，一个命令按钮，将其属性值设置为“显示”点击显示个位，十位，百位。2. 编写程序代码:双击命令按钮，输入:Dim star as stri

2012-04-01 19:10:58 200

mahuirong2012的专栏