- 博客(9)
- 收藏
- 关注
RSS订阅原创 suijishu
Private sub command1_click() Dim m as integer Dim n as integer M=val（text1.text） N=val(text2.text) Text3.text=m+int(rnd*(n-m+1)) End sub 在空白处双击，编写程序如下： Private sub form_load() Randomize End
2012-05-30 19:50:57
264
转载 随机生成n个数
Private Sub command1_click() Dim a() As Integer n = InputBox("请输入一个整数n,n>=1") ReDim a(1 To n) Dim p As String Randomize p = "" For i = 1 To n Do
2012-05-30 19:49:09
421
原创 数比较大小
两个数比较大小 在窗体上插入两个标签，两个文本框，一个按钮。输入代码： Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text If a > b Then Print a Else Print b End If
2012-05-30 19:47:15
298
翻译 两位数的乘法拆分
Private Sub Command1_Click() Dim numberlengh As Integer Dim Firstnumbers() As Integer Dim Secondnumbers() As Integer numberlengh = Len(Text1.Text) ReDim Firstnumbers(numberlengh)
2012-05-30 19:45:18
2511
原创 两位数乘法
Option Base 1 Private Sub Command1_Click() Dim M As String Dim N As String M = Trim(Text1.Text) N = Trim(Text2.Text) Dim Number1() As Byte Dim Number2()
2012-05-30 19:43:19
221
翻译 会动的圆
Dim g As Boolean Dim x As Long Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() g = True x = Shape1.Left End Sub Private Sub Timer1_Timer() If g Th
2012-05-30 19:41:30
199
转载 大小写转换
一·实验目的 实现英文字母大小写转换。 二·实验内容 1. 建立窗体，再创提上画出一个Label,输入文字如下：“英文字母如下：”，再画出一个Text，再画出三个command按钮，分别输入以下文字“转大写”，“转小写”，“还原”。 2. 编写代码：在通用生命段中输入程序语言，如下：dim x as string 点击Text编写如下程序： Private sub fo
2012-05-30 19:40:32
362
原创 1000-2000内能被17和37整除的数
Private Function judge(N As Integer) As Boolean judge = (N Mod 17 = 0 And N Mod 37 = 0) End Function Private Sub Form_Click() Dim i As Integer For i = 1000 To 2000 If judge(i) Then Print
2012-05-30 19:37:36
414
翻译 100以内素数的和
Private Sub Form_Load() Dim s As Integer, n As Integer Show s = 0: n = 2 Do While n s = s + n n = m Dim x As Integer Dim flag As Boolean x = m - 1 flag = False While x >= 2
2012-05-30 19:33:17
226
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人