qtgdrtefdrt-CSDN博客

原创个人信息的输入

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 421

原创登录界面的设计

代码如下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 304

原创鞍点的计算

生成五行六列的数（在1~100之间），即分别定义i,j，通过循环生成二维数组。找出每一行的最大值并标记，通过循环，若a>b为假，不交换两个数，如果a>b为真，把b的值给a.假设第一行第一列的数最大，那么在第一行此数会依次与第二行、第三行。。。进行比较，如果后一个数比前一个数大，那么此数的列号会被记录。（其他行也用此方法找出行最大数）分析上步所得的行最大数是不是所在列的列最小

2016-06-16 17:36:19 721

原创比较数的大小（选择法）

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 725

原创比较数的大小（冒泡法）

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 394

原创转存到文档

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 204

原创 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 184

原创 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 458

原创 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 351

原创 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 327

原创 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 317

原创 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 403

原创 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 375

原创 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 287

原创 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 271

原创 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 615

原创 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 290

原创 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 424

原创 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 471

原创 15电气郄慧敏vb作业4VB中数字的交换

实验名称：VB中数字的交换启动电脑桌面上的VB软件。在工具箱窗口找到command button的图标，单击图标并在窗体的适当位置创建，在属性窗口中找到caption并把其后面改为“交换”。在窗体中双击“交换”，并在弹出的对话框中输入ClsDim b As Integer, c As IntegerDim d As Integ

2016-03-26 17:33:13 538

原创 15电气郄慧敏vb作业3红糖水白糖水的交换

实验名称：红糖水白糖水的交换打开电脑桌面上的VB软件在工具箱窗口找到Label，单击图标并在窗体中适当位置创建，在属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中，双击forecolor将后面字体颜色改为红色，双击 font将后面的字体调整为适当大小，双击backcolor将背景颜色改为灰色。在工具箱窗口找到Label，单击图

2016-03-26 17:22:49 354

原创 15电气郄慧敏vb作业1在VB中制作计时器

实验名称：在VB中制作计时器实验步骤：在桌面中双击VB6.0打开程序。在工具箱窗口找到计时器timer的图标，单击图标并在窗体中创建计时器。在窗体中双击计时器图标，在弹出的对话框中输入“屏幕1.caption=time( )”然后关闭窗口。选定计时器timer，在属性窗口中找到interval并将后面的数值改为1000。

2016-03-25 17:12:47 402

原创 15电气郄慧敏vb作业2在VB中制作计时器2

实验名称：在VB中制作计时器实验步骤：在桌面中双击VB6.0打开程序。在工具箱窗口找到计时器timer的图标，单击图标并在窗体中创建计时器。在窗体中双击计时器图标，在弹出的对话框中输入“屏幕1.caption=time( )”然后关闭窗口。选定计时器timer，在属性窗口中找到interval并将后面的数值改为1000。在

2016-03-25 17:09:39 563

qhm15613688303的博客