- 博客(11)
- 收藏
- 关注
RSS订阅原创 生成不定的n个正整数
窗体编辑：Private Sub Command1-click()n = Inputbox("请输入一个正整数n，>=1")Dim Str2 As string Call getNInteger(n,str2) lable1.Caption = left(str2,len(str2)-1)End Sub模块编辑：Sub gettNInteger(Byval n A
2012-05-17 09:19:57
209
原创 实现输出10个数中最大的一个
Dim max as IntegrDim f(9) As IntegerDim mystr As string For i = 0 to 9 f(i) = Int(rnd() *1000 +5) mystr = "" mystr = mystr + " " + str(i) Pr
2012-04-29 13:09:34
289
原创 实现输出3个数中最大的一个
Dim a As Integer,b As Integer,c As Integer If a > b then max = a else max = b End If If c > max then max = c End If P
2012-04-29 12:35:17
374
原创 实现输出2个数中较大的一个
Dim a As IntegerDim b As Integer a = Int ( rnd() * 1000 + 5 ) b = Int (rnd() * 1000 + 5 ) If a > b Then Print a else Print b
2012-04-28 22:36:24
531
1原创 两个多位数相乘
Option Base 1Private Sub Command1_Click() Dim M As String Dim n As String M = Text1.Text n = Text2.Text Dim number1() As Byte Dim number2() As Byte ReD
2012-03-28 11:44:54
287
原创 五，能动的图形
一、 实验目的生成能动的图形二、 实验内容用VB绘制图形并使其运动绘制圆形并运动的程序代码Dim g As BooleanDim x As LongPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()g = Truex = Shape1.Le
2012-03-27 21:47:23
202
原创 四，随机生成图形
一、 实验目的让程序随机不定时间生成随机种类的图形并生成多个二、 实验内容Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub Private Sub Timer1_Timer()Randomize Cls Dim MaxX As Long Dim MaxY As
2012-03-27 21:45:48
223
原创 三，生成随机数
实验目的：1. 了解VB数据类型的基本概念2. 掌握变量的定义方法3. 掌握运算符和表达式用法一． 实验内容：生成指定范围内的随机整数。用Int和Rnd函数生成指定范围的随机整数，用randomize函数初始化随机数发生器，用Val函数将数字字符串转换为数值。二． 实验步骤：1． 在窗体上放置三个文本框并在其后输入三个文本框，分别用于输入随机数的下界和上
2012-03-27 21:44:42
282
原创 二，大小写转换
一、实验目的：1.明确赋值语句的意义，弄清赋值表达式与判断相等关系表达式的区别。2.熟悉数据输入与输出的操作，学习使用输入框和消息框。二、实验内容： 字母大小写转换。程序运行时单击“转大写”按钮，文本中英文全部转化为大写，单击“转小写”按钮，转为小写，单击“复原”按钮，复原为初始状态。三、 实验步骤：1. 在窗体中放置三个命令按钮，在属性值中分别输入“转大写”“转小写”
2012-03-27 21:43:47
488
原创 一，显示各位数
一、实验目的：充分认识VB的语言，能够处理简单的数据类型。二、 实验内容：1. 做三位数的显示，在窗体中放置三个标签，并在其属性值中分别输入“个位”，“十位”“百位”，并放置三个文本框，用于显示各位数，一个command按钮，将其属性值设置为“显示”点击显示个位，十位，百位。2. 编写程序代码:双击命令按钮,编写以下内容:Dim star as stringStar=
2012-03-27 21:42:14
247
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人