大小的比较
来源:互联网 发布:湖南卫视知乎 编辑:程序博客网 时间:2024/05/17 06:28
一.比较a与b的大小
1点击“Text”文本框图标,再在右侧Form1中空白区域选择大小适宜的区域,画出文本框。
2点击“CommandButton”按钮,再在右侧Form1中空白区域选择大小适宜的区域,出现按钮型图标后,选中图标,在右下角,将表格中“Caption”后面的“Command1”改成“比较”,双击按钮型图标,输入如下内容.
Cls
Me.Text1.Font.Size=50
Dim aAs Integer
Dim bAs Integer
a=Int(Rnd×1000)
b=Int(Rnd×1000)
Ifa<b Then
Me.Text1.Text="a<b"
Else
If a=b Then
Me.Text1.Text="a=b"
Else
Me.Text1.Text="a>b"
End If
End If
二.十五个数的排序
1点击“CommandButton”按钮,再在右侧Form1中空白区域选择大小适宜的区域,出现按钮型图标后,选中图标,在右下角,将表格中“Caption”后面的“Command1”改成“排序”,双击按钮型图标,输入如下.
Dim a(15)As Integer
Dim i,jAs Integer
Dim TempAs Integer
Form1.Cls
Randomize
For i =1 To 15
a(i)= Int(Rnd×1000)
Next i
For i =1 To 15
For j =i + 1 To 15
If a(i)>a(j)Then
Temp = a(i)
a(i)= a(j)
a(j)= Temp
End If
Next j
Next i
PrintCls(14)
For i =1 To 15
Print a(i)
Next i
- 比较日期的大小
- 时间大小的比较
- 比较两位数的大小
- 比较字符串的大小
- 比较字符串的大小
- 比较时间的大小
- 比较时间的大小
- 比较分数的大小
- 比较字符串的大小
- Integer大小的比较
- 时间大小的比较
- Integer大小的比较
- 比较数的大小
- 比较字符串的大小
- 字符串的大小比较
- NSNumber的大小比较
- Integer的大小比较
- 大小的比较
- 第四周项目二:太乐了
- js的replace详解
- libcef(1)
- Spring第1天+mybatis注解:
- JAVA类动态载入的实现
- 大小的比较
- 如何在多台机器上共享IOS证书
- 【USACO题库】1.2.2 Transformations方块转换
- iOS开发学习之 - 照片框架详解
- C#中的多线程 - 基础知识
- RTP,RTCP协议浅析
- 插入Mysql异常之Value '0000-00-00 00:00:00' can not be represented as java.sql.Timestamp
- Caffe bug fixing List
- libcef mfc(2)