Dim s As Double
r = Val(Text1.Text)
Const pi = 3.14159265
s = pi * r * r
Label1.Caption = "圆的面积为 " & s
End Sub
Private Sub Command2_Click()
Dim c As Double
r = Val(Text1.Text)
Const pi = 3.14159265
c = 2 * pi * r
Label2.Caption = "圆的周长为 " & c
End Sub
Dim p
p = 3.1415
a = Val(InputBox("请输入圆的半径："))
x = 2 * p * a
Label1.Caption = x
End Sub
Private Sub Command2_Click()
Dim p
p = 3.1415
a = Val(InputBox("请输入圆的半径："))
x = p * a * a
Label1.Caption = x
End Sub本回答被提问者采纳
用vb写一个计算程序输入x输出t 两个按钮一个输出一个关闭 函数在下面...
代码如下：Option Explicit Private Sub Command1_Click()Dim t As Double Dim x As Single Dim Scr As Object Dim Ls As String Dim dss As String x = Val(Text2.Text) '读取X的值 Ls = UCase(Text1.Text) '读取代数式 dss = Replace(Ls, "X", CStr(x)) '将已知值代入...
关于VB编程的一些小问题 设计一个程序实现字体的自动放大,并用垂直滚动...
Label2.Caption = " 当前字体大小是：" & Label1.FontSize End Sub Private Sub VScroll1_Change()Timer1.Interval = VScroll1.Value End Sub 如图
求VB代码 使用mid、left、right函数。在text1文本框中输入一个字符串...
label3.caption=right(istr,5)
怎么用VB设计一个登陆界面?
1.首先添加2个label控件，一个caption为用户名，一个为密码然后分别在2个label控件后面添加一个text控件，2.将text的text属性设置为空再添加2个button按钮，一个名为登陆，一个名为取消简要代码如下：private sub text2_change() sswordchar="*"end subprivate sub button1_click()if text1.text="...
用VB编这个程序怎么写代码?题目是只要输入正方形的边长就会输出它的面...
IsNumeric(Text1.Text) Then '判断输入是否合法 Label1.Caption = "error"Text1.Text = ""Else L = 4 * X S = X * X Label1.Caption = "正方形周长;" + Str(L) + " 正方形面积:" + Str(S)End If Exit Sub kk:Text1.Text = ""Label1.Caption = ""End Sub ...
设计一个程序,由用户输入半径,计算出圆周长和圆面积
vb代码：Private Sub Command1_Click()Dim r As Single Dim c As Single Dim s As Single Dim P As Single P = 3.14 r = Int(Text1.Text)c = 2 * P * r s = 2 * P * r Label1.Caption = "圆周长为 ： " + Str(c)Label2.Caption = "圆面积为 ：" + Str(s)End Sub...
用vb编写了这个随机抽取人名的程序,要求一个文本框,一个按钮
Dim xm, n As IntegerPrivate Sub Command1_Click() Static k k = k + 1 If k Mod 2 = 1 Then Timer1.Interval = 20 Command1.Caption = "停" Else Timer1.Interval = 0 Command1.Caption = "开始" End IfEnd SubPrivate Sub Form_Load() xm = Array("张三...
如何使用VB编写一个简单的小程序?
在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性...
...设计一个form 用text输入学生成绩 0-100 用label输出为ABCD_百度知 ...
直接用Case Is 关系表达式，不需要用到a<m and a>n这种模式 Private Sub Command1_Click()Dim a As Integer a = Val(Text1.Text)Select Case a Case Is >= 90 Label1.Caption = "A"Case Is >= 80 Label1.Caption = "B"Case Is >= 70 Label1.Caption = "C"Case Is >= 60 Labe...
用VB编写一个计算器程序的代码
1、创建控件组的方法首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index...
