设计一个简单的vb程序
@于钢4573:怎么用vb做一个简单的程序 -
诸霞17567874282…… 加入标签Label1,Caption设置为“你好,请输入你的姓名” 加入文本框Text1,用来输入姓名的 加入标签Label2,按照你的要求设置字体属性,autosize属性设成true 分别加入确定,继续,结束按钮 以下是代码: Private Sub Form_Load() Me.结...
@于钢4573:帮忙制作一个简单的VB程序 很简单的! -
诸霞17567874282…… Private Sub Command1_Click() i = 0 s = 0 While i < 11 s = s + i i = i + 2 Wend Print s End Sub
@于钢4573:简单的VB程序设计 -
诸霞17567874282…… Private Sub Command1_Click() Dim x$ x = InputBox("请输入一个名字!", "名字输入!") MsgBox x & "!你好,新年快乐!", 64, "祝福!" End Sub
@于钢4573:帮忙啊!!做一个vb简单的程序—— -
诸霞17567874282…… Private Sub Command1_Click() Label1.FontSize = Int(Rnd * 40) + 1 End Sub Private Sub Command2_Click() Label1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) End Sub Private Sub Form_Load() Label1.Caption = "欢迎使用VB!" End Sub 添加两个命令按钮和一个标签即可
@于钢4573:关于简单VB程序设计
诸霞17567874282…… 在窗体上画一个按钮,代码如下: Private Sub Command1_Click() Dim i As Integer '定一个整形变量i For i = 1 To 5 '采用for循环,i从1取值到5 Print Int((255 - 0 + 1) * Rnd + 0) '取0到255范围之间的整数,随机数方法Int((取值上限 - 下限 + 1) * Rnd + 下限) Next i 'next i相当于i=i+1 End Sub
@于钢4573:求编写一个简单的VB程序 -
诸霞17567874282…… Function isprime(Num As Long) As Boolean If Num < 2 Then isprime = False: Exit Function Dim i As Long For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i isprime = True End Function Private Sub ...
@于钢4573:请各位帮忙做一个简单的VB程序 -
诸霞17567874282…… Private Sub Command1_Click() Dim a, b, c a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If (a + b + c) / 3 >= 95 Then If (a = 100 And b = 100 And c >= 80) Or (a = 100 And c = 100 And b >= 80) Or (b = 100 And c = 100 And a >= 80) Then Label4.Caption = "一等奖" End If End IfEnd Sub
@于钢4573:高分~!在线等~!帮忙编一个简单的vb程序~! -
诸霞17567874282…… Private Sub Command1_Click() Dim nStr As String, S As Long, a As Single, b As Single, c As Single nStr = InputBox("请输入三角形三边的值,中间用英文逗号分隔:", "输入", "3,4,5") If nStr = "" Then Exit Sub a = Val(nStr) S = ...
@于钢4573:编写一个简单VB程序
诸霞17567874282…… 可能字数太多,发不上来,我分开发.这是第一部分.关键函数在第2部分. 楼上的方法都不可用,因为计算结果太大.用双精度无法显示最后0的位数.所以,需要使用String类型来进行单个字符的计算才可以. 界面就和发的图是一样的.代...
@于钢4573:简单VB程序设计 -
诸霞17567874282…… 分太低,不过还是给你做了 Option Base 1 Private Type Stu StuName As String StuEnglish As String StuMath As String StuChem As String StuPhys As String End Type Dim StuFile() As Stu Dim Counter As Integer Private Sub Command1_...
诸霞17567874282…… 加入标签Label1,Caption设置为“你好,请输入你的姓名” 加入文本框Text1,用来输入姓名的 加入标签Label2,按照你的要求设置字体属性,autosize属性设成true 分别加入确定,继续,结束按钮 以下是代码: Private Sub Form_Load() Me.结...
@于钢4573:帮忙制作一个简单的VB程序 很简单的! -
诸霞17567874282…… Private Sub Command1_Click() i = 0 s = 0 While i < 11 s = s + i i = i + 2 Wend Print s End Sub
@于钢4573:简单的VB程序设计 -
诸霞17567874282…… Private Sub Command1_Click() Dim x$ x = InputBox("请输入一个名字!", "名字输入!") MsgBox x & "!你好,新年快乐!", 64, "祝福!" End Sub
@于钢4573:帮忙啊!!做一个vb简单的程序—— -
诸霞17567874282…… Private Sub Command1_Click() Label1.FontSize = Int(Rnd * 40) + 1 End Sub Private Sub Command2_Click() Label1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) End Sub Private Sub Form_Load() Label1.Caption = "欢迎使用VB!" End Sub 添加两个命令按钮和一个标签即可
@于钢4573:关于简单VB程序设计
诸霞17567874282…… 在窗体上画一个按钮,代码如下: Private Sub Command1_Click() Dim i As Integer '定一个整形变量i For i = 1 To 5 '采用for循环,i从1取值到5 Print Int((255 - 0 + 1) * Rnd + 0) '取0到255范围之间的整数,随机数方法Int((取值上限 - 下限 + 1) * Rnd + 下限) Next i 'next i相当于i=i+1 End Sub
@于钢4573:求编写一个简单的VB程序 -
诸霞17567874282…… Function isprime(Num As Long) As Boolean If Num < 2 Then isprime = False: Exit Function Dim i As Long For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i isprime = True End Function Private Sub ...
@于钢4573:请各位帮忙做一个简单的VB程序 -
诸霞17567874282…… Private Sub Command1_Click() Dim a, b, c a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If (a + b + c) / 3 >= 95 Then If (a = 100 And b = 100 And c >= 80) Or (a = 100 And c = 100 And b >= 80) Or (b = 100 And c = 100 And a >= 80) Then Label4.Caption = "一等奖" End If End IfEnd Sub
@于钢4573:高分~!在线等~!帮忙编一个简单的vb程序~! -
诸霞17567874282…… Private Sub Command1_Click() Dim nStr As String, S As Long, a As Single, b As Single, c As Single nStr = InputBox("请输入三角形三边的值,中间用英文逗号分隔:", "输入", "3,4,5") If nStr = "" Then Exit Sub a = Val(nStr) S = ...
@于钢4573:编写一个简单VB程序
诸霞17567874282…… 可能字数太多,发不上来,我分开发.这是第一部分.关键函数在第2部分. 楼上的方法都不可用,因为计算结果太大.用双精度无法显示最后0的位数.所以,需要使用String类型来进行单个字符的计算才可以. 界面就和发的图是一样的.代...
@于钢4573:简单VB程序设计 -
诸霞17567874282…… 分太低,不过还是给你做了 Option Base 1 Private Type Stu StuName As String StuEnglish As String StuMath As String StuChem As String StuPhys As String End Type Dim StuFile() As Stu Dim Counter As Integer Private Sub Command1_...