- 博客(6)
- 收藏
- 关注
原创 十进制换二进制
1.新建一个按钮,并输入Print erjinzhi(),在括号内输入变换的数字 2.在按钮的下面直接输入以下: Private Function erjinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 2 Dim returns As String Dim shang As Byte Dim yus
2016-04-28 17:36:55 982
原创 多位数乘一位数
1.新建一个按钮和两个Textbox,并把按钮改为‘乘法’ 2.双击按钮,输入以下: Private Sub 乘法_Click() Dim c As Byte Dim a() As Byte Dim b As String Dim changdu As Long, i As Long changdu = Len(Text1.Text) ReDim a(changdu) For i
2016-04-21 17:09:12 227
原创 十数求和
Dim sum As Integer Dim i As Integer Dim a As Integer Private Sub Command1_Click() sum=0 For i = 1 To 10 Randomize a=Int(1000*Rnd) sum=sum+a Next
2016-04-14 17:42:10 212
原创 两位数乘一位数
1.新建两个textbox和一个command 2.双击command,输入以下 Me.Font.Size = 70 Dim n1() As Byte, n1Len As Long Dim n2() As Byte, n2Len As Long Dim yushu1 As Byte, yushu2 As Byte Dim shang As Byte
2016-04-14 17:08:12 309
原创 如何制作时间程序 2016.3.3
如何制作时间程序 1.打开Visual Basic[设计]界面 2.点击左侧工具栏中闹钟的图标,并在Form1的窗口中创建一个闹钟 3.点击闹钟,并把右侧属性栏中的Interval项改为1000 4.点击左侧工具栏中‘A’的图标,并在Form1窗口中创建一个label框,单击该框,将右侧属性栏第一行(名称)输入“屏幕1” 5.双击该框,在所弹出的窗口中输入“屏幕1=caption=t
2016-03-31 17:25:34 272
原创 任意数比较大小
2016.3.31 1.在通用输入Option Base 1 2.新建一个按钮 3.在按钮中输入以下内容 Private Sub Command1_Click() Cls Font.size = 30 Dim n As Integer Dim size As Integer size = Int(Val(Me.Text1.Text))
2016-03-31 17:14:21 281
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人