- 博客(14)
- 收藏
- 关注
原创 计算机作业
今天学的是添加动态按钮,就是点击按钮并且生成一个按钮: Dim Withevents Dim muyxommand As VB.Command Button Private Sub Command1_Click Set mycommand=Me.Controls.Add(" VB.Command Button", " cmdNew" &
2012-05-27 21:22:39
163
原创 计算机作业
今天,老师教给我们的作业是团体合作完成上次的作业,就是随机生成10个正整数,然后,我就跟张姝静同学一起合作完成了程序,我是负责制作主要框架,加上背景制作,而她是负责代码还有程序总体修改。一下就是我们的操作。首先,我们先打开了程序,在窗体上放置了一个flame,在flame里面放置了一个label。并且,我在吧flame的caption修改为随机生成10个正整数。把label的caption
2012-05-16 16:02:57
371
原创 计算机作业
今天老师教了我们制作一个程序,有关生成随机数的程序,代码如下:Dim a(1 To 10) As Integer Private Sub Command1_Click()Form_Load End Sub Private Sub Form_Load()Dim p As String 'p用来表示随机生成的10个数字 Randomizep = "
2012-05-16 15:13:02
228
原创 计算机作业
两个数的比较Private Sub Command1_Click() a = Text1.Text b = Text2.Text If a > b Then Print a Else Print b End If End Sub 三个数的比较Private Sub Command1_Click()
2012-04-29 23:24:49
212
原创 计算机作业
输出比较大小后的数字Option Base 1Dim a(10) As Integer Private Sub Command1_Click()For i = 1 To 10 a(i) = InputBox("输入第" & i & "个数")Next i End Sub Private Sub Command2_Click() Dim ma
2012-04-29 23:23:09
246
原创 计算机作业
Private Sub Command1_Click()Dim i As IntegerDim s As Integers = 0 For i = 2 To 100 If sushu(i) Then s = s + i Next i Print s End Sub Function sushu(n As Integer) As Bo
2012-04-29 23:18:13
292
原创 计算机作业
今天学习了程序,这个是老师给我任务,后来通过咨询完成了。Private Sub Command1_Click()Dim N As IntegerDim M As Integer N = Trim(Text1.Text)M = Trim(Text2.Text) Dim number1() As IntegerDim number2() As Integer
2012-04-29 23:13:08
279
原创 计算机作业
上节课我们做的是随机两位正整数的乘法运算,老师先给我们一个代码后来我们自己改变自己操作,下面是我的代码: Private Sub Command1_Click()Dim N As IntegerDim M As Integer N = Trim(Text1.Text)M = Trim(Text2.Text) Dim number1() As IntegerD
2012-04-04 23:32:42
170
原创 计算机作业
今天上机我们没有自己做程序,而是根据老师的要求做了实验二、三。实验二是关于数据类型、运算符、表达式和函数。运算符和表达式。实验二中包括设计圆的面积和周长的程序。还有生成指定范围的随机整数。还有在立即窗口练习内部函数和表达式的使用。一、圆的周长和面积代码。Privete Sub Command1_Click()Dim r As SingleDim s As SingleDim
2012-04-04 23:26:11
243
原创 计算机作业
求最大公约数代码Option ExplicitPrivate Sub Command1_Click()Dim M As IntegerDim N As IntegerM=Int(Val(Text1.Text))N=Int(Val(Text2.Text))Dim TemporyValue As IntegerIf MTemporyValue=MM=NN=T
2012-04-04 23:04:47
198
原创 计算机作业
今天学习了N多知识,脑子有点不够使了,各种复杂的程序,后来上机的作业是计算两位正整数的乘法结果,后来我捉摸了很久,硬是没有把正整数给弄出来。然后我果断毅然选择了练习实验8实验9.上课我摘了一些笔记,这些程序还是不错的,而且很实用。代码如下:1、计算1——100的整数加法。首先要设置基本的按钮。然后就是输入代码:Dim sum AS IntegerDim index As Int
2012-04-04 22:49:13
314
原创 计算机作业
今天我们学习了图形与绘图操作,老师跟我们分析了坐标系统,也教会我们通过属性的设置可以控制窗体颜色或控件颜色。分析了基本的操作步骤后,老师通过在屏幕上的操作,绘制了各种变化的图形,随机的图形。然后让我们在电脑上自己让程序随机不定时间生成随机种类的图形并且生成多个。我在电脑上通过下列代码,绘制了多个图形。Private Sub Form_MouseDown(Button As Int)
2012-04-04 22:47:42
216
原创 计算机作业
今天上机我做了一个有关数字判断的问题,就是判断哪个数是不是素数。首先,要先绘制一个Lable,并且把它的Caption改成请您属兔一个正整数,我来帮你分析它是不是一个素数。然后插入一个空白的Text,并且清空里面的内容。载加上一个Lable。还有一个Command.代码是:Dim M As Integer Dim N As Integer Dim flag As Bool
2012-04-04 22:41:31
299
原创 计算机作业
今天老师让我们做了一个简易程序,就是一个计时器。一个倒计时的程序。早上六年课是时候,老师把大概讲了一次。我上机后,通过自己的尝试,终于把这个程序做出来了。步骤是这样的,先插入一个小闹钟,一个命令按钮。1、 把小闹钟属性窗口进行设置,吧En开头的不知道全名叫什吗的改成False,然后把Inter改成1000,就是1秒。双击小闹钟,出现代码窗口,输入:Lable1.Caption=Time
2012-04-04 22:37:30
177
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人