![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
vb
MAHYBZ
这个作者很懒,什么都没留下…
展开
-
VB作业:显示各位数
一、实验目的:充分认识vb的语言及其能够处理的数据类型。二、 实验内容:1.做三位数的显示,在窗体中放置三个标签,并在其属性值中分别输入“个位”,“十位”“百位”,并放置三个文本框,用于显示各位数,一个命令按钮,将其属性值设置为“显示”点击显示个位,十位,百位。2. 编写程序代码:双击命令按钮,输入:Dim star as stringStar=text原创 2012-04-08 13:18:24 · 739 阅读 · 0 评论 -
VB作业之比较三个数的大小
下面是我编写的程序代码:Private Sub Command1_Click() Dim A As Integer Dim B As Integer Dim C As Integer Dim max As Integer A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text)原创 2012-05-11 07:35:35 · 10238 阅读 · 0 评论 -
VB作业之比较两个数的大小
下面是我编写的“计算”代码:Private Sub Command1_Click()Dim M As Integer, N As Integer M = Val(Text1.Text) N = Val(Text2.Text) If M > N Then Print M Else Print N End IfEnd Sub然后再编写原创 2012-05-11 07:25:32 · 4254 阅读 · 0 评论 -
设计一个输出10位不同的数的程序
今天老师要求我们设计一个输出数组的程序,且这十个数不能重复。下面是我编写的代码:Private 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原创 2012-05-09 14:15:40 · 687 阅读 · 0 评论 -
3.3课后第九题——设计一个个人纳税计算程序
首先建立应用程序界面与设置对象属性,然后编写程序代码;首先编写“计算”按钮的单击事件:Private Sub Command1_Click() Dim M As Single, N As Single, S As Single, Y As Single M = Val(Text1.Text) N = M - 800 Select Case N Ca原创 2012-04-19 13:13:09 · 918 阅读 · 0 评论 -
设计一个计算生日是星期几的程序
这个程序是当你输入自己的出生年月份后,程序会帮您分析出具体是星期几。下面是代码:Private Sub Command1_Click()Dim year As Integer Dim month As Integer Dim day As Integer Dim birthday As Date Dim dateofweek As Byteyear = Int原创 2012-04-27 22:56:43 · 1720 阅读 · 0 评论 -
VB作业之6.5习题10
题目要求为:输入学生的姓名、学号及语文、数学、英语的成绩,计算每名学生的个人平均分,并显示学生的各科成绩。要求定义一个求平均值的函数,参数为数组。下面是我编写的代码:Private Sub cmdadd_Click() List1.AddItem Text1+" "+Text2+" "+Text3+" "Text4+" "+Text5End SubPriva原创 2012-04-12 08:02:45 · 712 阅读 · 0 评论 -
编写输出1000-2000之间所有能同时被17和37整除的数
本周的计算机课,老师给我们留了课后2道题,其一即为此。下面是我编写的程序。首先在通用中写:Function Judge(N As Integer)As BooleanJudge=N Mod 17 * 37=0End Function然后编写代码:Private Sub Command1_Click()Dim i As IntegerFor i = 1000 to 2000I原创 2012-04-12 07:41:55 · 2736 阅读 · 0 评论 -
VB作业之成绩输入统计
随着进一步接触程序设计,慢慢感觉有点入门了,对于VB的学习又增加了几分信心,不错,继续努力咯!原创 2012-04-08 15:07:19 · 1193 阅读 · 0 评论 -
VB作业之随机生成图形
一、 实验内容Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Randomize Cls Dim MaxX As Long Dim MaxY As Long MaxX = Form1.ScaleWi原创 2012-04-08 15:02:51 · 834 阅读 · 0 评论 -
VB作业之求两个整数的公约数
这应该算是第一次自己设计程序,虽然感觉对VB一窍不通,但在老师的指导下还是顺利地完成了作业,感觉不错、挺好玩,嘿嘿。原创 2012-04-08 13:47:46 · 960 阅读 · 0 评论 -
VB作业之素数
这次的作业按照书上的步骤完成得很顺利,不过,如果是自己独立完成,应该就没那么容易了,好吧,努力吧。原创 2012-04-08 15:16:48 · 837 阅读 · 0 评论 -
VB作业之字母大小写的转换
完成作业期间遇到的问题和解决的方法:运行时总是提示“代码错误”检查后发现把“text”写成了“test”,改正后程序正常运行。不管做什么都应该学会仔细,否则一个小小的失误足以毁掉全部。原创 2012-04-08 13:26:02 · 2301 阅读 · 0 评论 -
VB作业之计算圆的面积
对于程序设计,他的步骤大致是一样的,我觉得最主要的应该还是把代码编辑好。原创 2012-04-08 15:09:49 · 5042 阅读 · 0 评论 -
VB作业之生成随机数
一. 实验步骤:1. 在窗体上放置三个文本框并在其后输入三个文本框,分别用于输入随机数的下界和上界,并在属性值中输入“请输入随机数的下界”“请输入随机数的下界”“显示生成的整数”。放置一个命令按钮,并在属性值中输入“生成随机数”。2. 编写程序代码 双击窗体中的命令按钮在代码窗口编写click事件过程,代码如下:Dim M as Integer原创 2012-04-08 15:00:36 · 7927 阅读 · 1 评论 -
VB作业之比较10个数的大小
下面是我编写的代码: Dim max As Integer Dim f(9) As Integer Dim mystr As String mystr = "" For i = 0 To 9 f(i) = Int(Rnd() * 1000 + 5) mystr = mystr + " " + Str(f(i))原创 2012-05-11 07:41:57 · 1453 阅读 · 0 评论