ZHANGSHUO1242152414的博客

原创 求解？

Option Base 1Dim i As IntegerDim j As IntegerDim a(10) As IntegerPrivate Sub Command1_Click()Randomize              for i=1 to 10  a(i) = Int(100*Rnd) + 1        nexttext1.text=""f

原创 窗体的形成

窗体的生成姓名：张硕专业：电气工程与其自动化学号：15050342039实验目的：通过运用数据库，掌握基本的函数，并通过函数的运用，简化了过程。实验内容1.       打开vb2.       在form上单击右键，找到菜单编辑器，在标题和名称上写文件后确认，然后在写下编辑后确认。3.       点击最下方的编辑，然后点击上方的插入，再点击向右的箭头，后再标题和

原创 红糖水和白糖水

Private Sub Command1_Click()Dim s As Strings = Label1.CaptionLabel1.Caption = Label2.CaptionLabel2.Caption = sa = Label1.ForeColorLabel1.ForeColor = Label2.ForeColorLabel2.ForeColor = a

原创 红糖水白糖水

红糖水白糖水程序Private Sub Command1_Click()Dim s As StringDim s As LoadPictureColorConstantss = Label1.CaptionLabel1.Caption = Label2.CaptionLabel2.Caption = sa = Label1.ForeColorLabel1.For

原创 hao

原创 气泡法

Private Sub Command1_Click()ClsDim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = Int(Rnd * 100)Print a(i)Next iPrintFor i = 1 To 9    For j = 1 To 1

原创 16进制的转换

Private Sub Command1_Click()Me.Font.Size = 30Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 1230: b = 16While a     yushu = a Mod b    s = f(yushu) & s    a =

原创 几进制的转换

Private Sub Command1_Click()Me.Font.Size = 60Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 230: b = 2While a   yushu = a Mod b  s = yushu & s  a = a \ b

原创 以后记住

1.首先打开VB6.02.在窗体的适当位置创建一个commandbutton，并在其属性窗口中将caption改为“排序”。3.在窗体的适当位置创建一个textbox。4.在窗体中双击“排序”，并在弹出的对话框中输入代码。代码如下：Option Base 1Private Sub Command1_Click()ClsDim n As Integer

原创 2位数乘以一位数

Option Base 1Private Sub Command1_Click()     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 A

原创 vb中几种循环

Private Sub Command1_Click()ClsDim n As IntegerDim s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print a(n)n = n + 1Wend

原创 3位数相乘

End SubOption Base 1Private Sub Command1_Click()     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, yushu3 A

原创 一位数相乘

Private Sub Command1_Click()Dim a As ByteDim b As ByteDim c As ByteDim r As Byteb = Me.Text1.Texta = Int(Val(b))b = Me.Text2.Textc = Int(Val(b))r = a * cPrint rEnd Sub

原创 作业

一.输出五个随机数在左侧工具栏中，选择按钮型图标“CommandButton”按钮，再在右侧Form1中空白区域选择大小适宜的区域，出现按钮型图标后，选中图标，在右下角，将表格中“Caption”后面的“Command1”改成“输出”，双击图标，输入如下PrivateSub Command1_Click()ClsDimn As IntegerDima(5) As Integer

原创 15个数从大到小排列

我去

翻译 ////终于写完作业了////

dim a as integer,b as integer,t as integera=val(inputbox("输入a："))b=val(inputbox("输入b："))t=aa=bb=t关于2个数的交换，没有输完程序，但不知道怎么写了。跪求答案？谁会给妮发红包