- 博客(16)
- 收藏
- 关注
RSS订阅原创 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
1452
原创 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
10234
原创 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
4246
原创 设计一个输出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
原创 设计一个计算生日是星期几的程序
这个程序是当你输入自己的出生年月份后，程序会帮您分析出具体是星期几。下面是代码：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
原创 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
原创 VB作业之6.5习题10
题目要求为：输入学生的姓名、学号及语文、数学、英语的成绩，计算每名学生的个人平均分，并显示学生的各科成绩。要求定义一个求平均值的函数，参数为数组。下面是我编写的代码：Private Sub cmdadd_Click() List1.AddItem Text1+" "+Text2+" "+Text3+" "Text4+" "+Text5End SubPriva
2012-04-12 08:02:45
709
原创 编写输出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
2734
原创 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
原创 VB作业之生成随机数
一． 实验步骤：1． 在窗体上放置三个文本框并在其后输入三个文本框，分别用于输入随机数的下界和上界，并在属性值中输入“请输入随机数的下界”“请输入随机数的下界”“显示生成的整数”。放置一个命令按钮，并在属性值中输入“生成随机数”。2． 编写程序代码 双击窗体中的命令按钮在代码窗口编写click事件过程，代码如下：Dim M as Integer
2012-04-08 15:00:36
7921
1
原创 VB作业之求两个整数的公约数
这应该算是第一次自己设计程序，虽然感觉对VB一窍不通，但在老师的指导下还是顺利地完成了作业，感觉不错、挺好玩，嘿嘿。
2012-04-08 13:47:46
957
原创 VB作业之字母大小写的转换
完成作业期间遇到的问题和解决的方法：运行时总是提示“代码错误”检查后发现把“text”写成了“test”，改正后程序正常运行。不管做什么都应该学会仔细，否则一个小小的失误足以毁掉全部。
2012-04-08 13:26:02
2299
原创 VB作业：显示各位数
一、实验目的：充分认识vb的语言及其能够处理的数据类型。二、 实验内容：1.做三位数的显示，在窗体中放置三个标签，并在其属性值中分别输入“个位”，“十位”“百位”，并放置三个文本框，用于显示各位数，一个命令按钮，将其属性值设置为“显示”点击显示个位，十位，百位。2. 编写程序代码:双击命令按钮，输入:Dim star as stringStar=text
2012-04-08 13:18:24
737
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人