tkf
2016-03-24 16:39
141 查看
Cls
Me.Font.Size = 50
Dim a As Integer
Dim a As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
Me.Text1.Text = "a<b"
Else
Me.Text1.Text = "a>=b"
If a = b Then
Me.Text1.Text = "a=b"
Else
Me.Text1.Text = "a>b"
End If
End If
Me.Font.Size = 50
Dim a As Integer
Dim a As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
Me.Text1.Text = "a<b"
Else
Me.Text1.Text = "a>=b"
If a = b Then
Me.Text1.Text = "a=b"
Else
Me.Text1.Text = "a>b"
End If
End If
相关文章推荐
- SQL Server双机热备之后项目的FailOver自动连接
- 求数组中最大子数组的和01
- Android开发之MD5加密
- Map接口的实现类--Hashtable和HashMap及TreeMap的区别--------(java复习)
- vb 学习
- vb 学习
- 创建第一个应用
- iOS中飞行模式或无网提示
- 关于Activity的生命周期的一些见解
- Dubbo 应用容器
- 使用广播接收者接收短信
- spring mvc 基于注解的使用总结
- 关于16进制字符串转为单精度浮点数和双精度浮点数的运算(一)
- 自建小站之路:文件上传$_FILES参数类型
- mysql 修改密码
- 不高兴的小明
- Python中如何在继承的类中调用基类的方法
- 6.自定义图文跑马灯
- springMVC 整合ueditor
- iOS 异步图片加载优化与常用开源库分析