- 博客(6)
- 收藏
- 关注
原创 16进制
Private Sub Command1_Click() Font.Size = 70 Dim a As Integer a = 1230 Print Hex(a) End Sub
2016-05-07 18:16:30 244
原创 16进制
Private Function f(yushu As Byte) As String If yushu f = yushu Else Select Case yushu Case 1, 34, 78, 45, 12, 13 f = Chr(yushu + 55) End
2016-05-07 18:09:39 202
原创 15位随机数由大到小依次排序程序
2016-03-25 18:37:14 Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Int
2016-03-28 14:29:04 674
原创 红糖水 白糖水 互换
1.打开VB软件2.在工具箱窗口找到Label,在窗体中适当位置创建,在右侧窗口中找到“caption”一栏并将后面改为“红糖水”。在右侧窗口中,双击forecolor将后面字体颜色改为红色,双击 font将字体调整为适当大小,双击backcolor将背景颜色改为黑色。3.在工具箱窗口找到Label,在窗体中适当位置创建,在右侧窗口中找到“caption”一栏并将后面改为“白糖水”。在右侧
2016-03-26 10:16:57 317
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人