- 博客(21)
- 收藏
- 关注
RSS订阅原创 动态添加、删除Textbox
学习的动态添加、删除textbox按钮，这是件很有意思的事，从中我也知道了学习vb语言是件很有用的事，对我们以后的学习与工作都是很有用的，动态添加、删除textbox的操作过程，如下： Dim with.events mytextbox As
2012-05-31 14:14:14
631
原创 随机生成n个不同的数字-小组合作编写
今天老师让我们合作，来完成一个任务，于是，我们在团支书给分配的组中，我们自己协商，自己做自己的，到最后整合都一台电脑上。窗体下的编程如下： Private Sub Command1_Click() n=InputBox("请输入一个正整数") Dim Str2 As String Call GetNI
2012-05-31 14:12:48
365
原创 求给定数组中的最大值
对于求vb中的用vb编写给定数组中的最大值，我的编程如下：Public Function calcMax( a() As Integer) As Integer max=0 For Each aArrayElement in a If max max=aArrayElement E
2012-05-31 14:10:18
309
原创 递归思想求和
这次，我有一些崇拜VB了，我觉得它好神奇哦，可以变幻莫测的用另一种方法，用另一种思维来求解平常都熟知的一些套路。代码编写：Print Sub Command1_click() Me,Fontsize=18 Print Sum(100)End Sub Private Function Sum(n As Integer) As Integer
2012-05-31 14:09:22
272
原创 随机产生不同数
代码编写：Option ExplicitPrivate Sub Command1_click() Dim a(10) As Integer, i As Integer, k as Integer ,t As Integer Dim mystr As String Dim printstr As String a(1)=
2012-05-31 14:08:03
313
原创 1000~2000之间能同时被17和37整除的数的编程
代码编写：Function Judge (N as Integer) as BooleanJudge =N Mod 17*37=0End Function Private Sub Command1_()Dim i as IntegerFor i=1000 To 2000If Judge (i) thenPrivate
2012-05-31 14:05:37
1263
原创 设计一个个人纳税计算程序
代码编写：Private Sub Command1_click()Dim w as Long Dim s as LongDim y as Longw=Val(Text1.Text) s=w-800Select case sCase isy=s*5/100Case isy=s*10/100Case isy=s
2012-05-31 14:03:41
381
原创 两个数和三个数比较得出最大数
代码编写：If a>b then print a else print b End if 三个数比较输出最大值的编程如下： If a>b then max=a else max=b end if if c
2012-05-31 14:02:08
552
原创 程序实现输出最大值
编写代码：Private Sub Command1-Click() Dim max as Integer Dim f(9) as integer Dim mystr as String mystr=" " For i=0 to 9 f(i)=Int(Rnd()*1000+
2012-05-30 21:09:02
420
原创 编写将出生日期转换为周几的程序
代码编写：Dim Year as IntegerDim Month as IntegerDim Day as IntegerDim Dayofweek as ByteDim Birthday as DateYear=Int(Val(Text1.Text))Month=Int(Val(Text2.Text))Day=Int(Val(Text3.Text)
2012-05-30 21:07:50
485
原创 两位数惩罚编程
代码编写：Private Sub Command1_Click() Dim numberlengh As Integer Dim Firstnumbers() As Integer Dim Secondnumbers() As Integer numberlengh = Len(Text1.Text) ReDim Firstnumbers(
2012-05-30 21:06:26
378
原创 两位数活多位乘法的计算编程
代码编写;Option Base 1Private Sub Command1_Click()Dim M As StringDim N As StringM = Trim(Text1.Text)N = Trim(Text2.Text)Dim Number1() As ByteDim Number2() As ByteReDim Number1(Len(M))R
2012-05-30 21:05:11
940
原创 能动的图形
用VB绘制图形并使其运动绘制圆形并运动的程序代码Dim g As BooleanDim x As LongPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()g = Truex = Shape1.LeftEnd SubPrivate Sub Time
2012-05-30 21:03:37
169
原创 显示各位数
编写程序代码:双击命令按钮，输入:Dim star as stringStar=text1.textText2.text=left(stra,1)Text3.text=mid(stra,2,1)Text4.text=right(stra,1)
2012-05-30 21:02:00
144
原创 大小写的转换
实验步骤：1. 在窗体中放置三个命令按钮，在属性值中分别输入“转大写”“转小写”“还原，”在放置一个标签，在属性值中输入“请输入英文字母”，并在后面输入一个文本框2. 编写代码：（1）在通用声明段中输入;dim x as string（2）在代码窗口中选择form控件的load事件，代码如下：x=text1.text（3）在代码窗口中选择command1控件的click事件
2012-05-30 21:00:28
249
原创 生成随机数
实验步骤：1． 在窗体上放置三个文本框并在其后输入三个文本框，分别用于输入随机数的下界和上界，并在属性值中输入“请输入随机数的下界”“请输入随机数的下界”“显示生成的整数”。放置一个命令按钮，并在属性值中输入“生成随机数”。2． 编写程序代码 双击窗体中的命令按钮在代码窗口编写click事件过程，代码如下：Dim M as IntegerDim N as Integ
2012-05-30 20:57:25
272
原创 随机生成图形
代码编写：Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub Private Sub Timer1_Timer()Randomize Cls Dim MaxX As Long Dim MaxY As Long MaxX = Form1.ScaleWidth Max
2012-05-30 20:54:55
373
原创 动态制作添加、删除
动态添加、删除Text一、编写程序Dim with.events mytextbox As VB.TextBoxPrivate Sub Command1_Click()Dim myTextBox As VB.TextBoxset mytextbox = me.controls.Add("VB.TextBox","mytextbox)my textb
2012-05-30 17:47:11
319
原创 VB中几位数的相乘的编程
今天上的事计算机课程，所以少不了要制作VB工程，今天的课程是制作两个几位数的相乘，过程中遇到了很多的问题，但是也是经过不懈努力，额，当然有上网问一下百度大婶啦，不过今天有一点不给力，我们都不知道怎么做，后来还是我们老师教我们做的一个大概，不过，海华丝留给我们一些个小细节，让我们去补充，让我们呢去完美它，最后还是做出来了。嘿嘿，挺好的…… Option Base 1 Priva
2012-03-28 11:44:56
687
原创 我做的第一个工程
第一次接触工程，自己设计软件，额，虽然这个软件不是设计的，但是当看到自己的劳动成果的时候，真的很骄傲，觉得很开心！ 不过，毕竟是第一次做，额，费了很多的时间不说，第一次做出来的竟 然是错的，额，，当时那个流汗啊，还好有指导我们的学长，他检查了一遍后，意味深长的说道：“你检查一遍吧，没有技术性错误，只有拼写性错误。”后来自己就一个一个字的才对照呢，最后检查出来了，才知道自己的错误原来
2012-03-27 21:10:32
292
原创 我的VB作业
计算机实验报告 专业：11级教育学 班级：一班 姓名：郭飘云 学号：11110141004 日期：2011.3.21 实验一：显示各位数一、实验目的：充分认识vb的语言及其能够处理的数据类型。二、 实验内容：1. 做三位数的显示，在窗体中放置三个标签，并在其属性值中
2012-03-27 21:07:18
715
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人