- 博客(23)
- 收藏
- 关注
原创 个人信息的输入
Private Type studentname As String * 3stuNo As String * 11sex As Booleanage As Byteprof As String * 2grade As SingleEnd TypePrivate Sub Command1_Click()Dim qiehuimin As studentqi
2016-06-16 17:46:08
437
原创 登录界面的设计
代码如下Option ExplicitConst MaxLoginTimes As Integer = 3Private Sub cmdLogin_Click() Static loginTimes As Integer loginTimes = loginTimes + 1If loginTimes On Error GoTo ppp D
2016-06-16 17:38:58
311
原创 鞍点的计算
生成五行六列的数(在1~100之间),即分别定义i,j,通过循环生成二维数组。找出每一行的最大值并标记,通过循环,若a>b为假,不交换两个数,如果a>b为真,把b的值给a.假设第一行第一列的数最大,那么在第一行此数会依次与第二行、第三行。。。进行比较,如果后一个数比前一个数大,那么此数的列号会被记录。(其他行也用此方法找出行最大数)分析上步所得的行最大数是不是所在列的列最小
2016-06-16 17:36:19
728
原创 比较数的大小(选择法)
Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 1000)Print a(i);Next iPrintFor j = 1 To 9For i = j + 1 To 10
2016-05-07 17:39:12
737
原创 比较数的大小(冒泡法)
Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 1000)Print a(i);Next iPrintFor i = 1 To 9For j = 1 To 10 - i
2016-05-07 17:38:20
403
原创 转存到文档
Private Sub Command1_Click()Dim c As ByteDim a() As ByteDim b As StringDim changdu As Integer, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To changdub = Mid(Me.Text1.
2016-05-07 17:36:52
210
原创 15电气郄慧敏转化为16进制数
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 1230: b = 16While a yushu = a Mod bIf yushu s = yushu & sElses = Chr(yushu + 55) &
2016-05-07 16:54:37
188
原创 15电气郄慧敏vb作业二进制的转换
Private Sub Command1_Click()Print erjinzhi(2)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim returns As StringDim shang As ByteDim yu
2016-04-28 16:42:41
462
原创 15电气郄慧敏多位数乘以一位数
1打开vb2建立两个text,一个commandbutton3双击commandbutton,输入Private Sub Command1_Click()Dim c As ByteDim a() As ByteDim b As StringDim changdu As Integer, i As Longchangdu = Len(Text1.Text)Re
2016-04-21 16:53:19
354
原创 15电气郄慧敏两位数乘以一位数
2Me.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 Dim tempResult As Byte n1Len = Len
2016-04-14 17:39:36
332
原创 15电气郄慧敏vb作业计算一位数乘以一位数
1打开软件,建立两个text,一个commandbutton,双击,在窗口中输入以下内容。2Dim n1 As ByteDim n2 As ByteDim shang As ByteDim yushu As ByteDim tempresult As Byten1 = Int(Val(Me.Text1.Text))n2 = Int(Val(Me.Text2.Te
2016-04-14 17:23:42
326
原创 15 电气 郄慧敏 vb 作业 循环程序计算10个随机数的和
1 打开桌面上的vb软件。2 在窗口中建立一个commandbutton,双击此窗口,在弹出的窗口中输入以下内容:1 Private Sub Command1_Click()ClsDim n As IntegerDim s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)
2016-04-07 17:35:04
413
原创 15电气郄慧敏vb作业循环结构计算十个数的和
1 打开桌面上的vb软件。2 在窗口中建立一个commandbutton,双击此窗口,在弹出的窗口中输入以下内容:1 Private Sub Command1_Click()ClsDim n As IntegerDim s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)
2016-04-07 17:34:27
381
原创 15电气郄慧敏 高级排序
1打开电脑桌面上的vb2点击左面的command button,在窗体中建造一个窗口,3点击此窗口,修改command 1为通用,输入以下内容Option Base 1Private Sub Command1_Click()ClsDim n As IntegerDim size As Integersize = Int(Val(Me.Text1.Text))
2016-03-31 17:36:50
291
原创 15电气郄慧敏最小的数排在最后
1打开电脑上的vb2点击右侧的工具栏中的command button3双击此窗口输入 以下ClsDim n As IntegerDim wzs(10) As IntegerDim swap As Integern = 1While n wzs(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n If w
2016-03-31 17:23:05
274
原创 15电气郄慧敏vb作业,生成10个数
1打开电脑桌面上的vb2鼠标单击工具栏中的command button3双击此处,再出现的对话框中输入以下内容:ClsDim n As IntegerDim wzs(10) As Integern = 1While n wzs(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print wzs(n)
2016-03-31 16:32:35
621
原创 15电气郄慧敏vb作业715个数的大小排序
实验名称;15个数的大小排序1打开电脑桌面上的vb。2单击左侧的commd button,在form1种制作一个小窗口。3双击此窗口,输入以下内容;ClsMe.Font.Size = 50Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim
2016-03-26 20:23:37
293
原创 15电气郄慧敏vb作业6比较两个数的大小
实验名称;比较两个数的大小1打开电脑桌面上的vb。2鼠标单击左侧工具栏中的command button,在form1中,按住鼠标左键拖曳,直到出现一个小窗口。3双击此窗口,在弹出的窗口中输入以下内容;clsme.font.size=50dim a as integerdim b as integerdim swap as integer'用来交换的a=int(r
2016-03-26 19:40:48
436
原创 15电气郄慧敏vb作业5比较两个数的大小
实验名称;比较两个数的大小1 打开电脑桌面上的vb软件。2单击工具中的command button按钮,在form1中的合适位置,单击鼠标左键拖曳,直到出现小窗口为止。修改caption为"排序了".3单击工具中的text box,按照同样的方法在form1中建立一个窗口。4双击command button,在弹出的对话框中输入编程:cllsme.font.size=50
2016-03-26 17:39:47
483
原创 15电气郄慧敏vb作业4VB中数字的交换
实验名称:VB中数字的交换启动电脑桌面上的VB软件。在工具箱窗口找到command button的图标,单击图标并在窗体的适当位置创建,在属性窗口中找到caption并把其后面改为“交换”。在窗体中双击“交换”,并在弹出的对话框中输入ClsDim b As Integer, c As IntegerDim d As Integ
2016-03-26 17:33:13
545
原创 15电气郄慧敏vb作业3红糖水白糖水的交换
实验名称:红糖水白糖水的交换打开电脑桌面上的VB软件在工具箱窗口找到Label,单击图标并在窗体中适当位置创建,在属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中,双击forecolor将后面字体颜色改为红色,双击 font将后面的字体调整为适当大小,双击backcolor将背景颜色改为灰色。在工具箱窗口找到Label,单击图
2016-03-26 17:22:49
362
原创 15电气郄慧敏vb作业1在VB中制作计时器
实验名称:在VB中制作计时器实验步骤:在桌面中双击VB6.0打开程序。在工具箱窗口找到计时器timer的图标,单击图标并在窗体中创建计时器。在窗体中双击计时器图标,在弹出的对话框中输入“屏幕1.caption=time( )”然后关闭窗口。选定计时器timer,在属性窗口中找到interval并将后面的数值改为1000。
2016-03-25 17:12:47
408
原创 15电气郄慧敏vb作业2在VB中制作计时器2
实验名称:在VB中制作计时器实验步骤:在桌面中双击VB6.0打开程序。在工具箱窗口找到计时器timer的图标,单击图标并在窗体中创建计时器。在窗体中双击计时器图标,在弹出的对话框中输入“屏幕1.caption=time( )”然后关闭窗口。选定计时器timer,在属性窗口中找到interval并将后面的数值改为1000。在
2016-03-25 17:09:39
569
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人