Dim i, j, iHour, iMinute, iSecond As Integer
i = Val(Text1.Text)
iSecond = i Mod 60
i = i \ 60
iMinute = i Mod 60
i = i \ 60
iHour = i Mod 60
Label1.Caption = Str(iHour) & "小时" & Str(iMinute) & "分" & Str(iSecond) & "秒"
End Sub本回答被提问者采纳
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(Text1.Text)
If a > 60 Then
c = a Mod 60
b = (a - c) / 60
Else
b = 0: c = a
End If
Label1.Caption = Str(b) & "分" & Str(c) & "秒"
End Sub
数值输入的不要太大 否则会溢出 我没有考虑小时的问题~
...化成共有多少秒,并在文本框控件输出计算结果。写编码
Private Sub Form_Click()Dim a As Single, b As Single, c As Single, d As Singlea = Val(InputBox("输入小时的值", ""))b = Val(InputBox("输入分钟的值", ""))c = Val(InputBox("输入秒的值", ""))d = a * 3600 + b * 60 + cText1.Text = dEnd Sub 您的采纳就...
vb中怎么编写 单击命令按钮,则窗体显示文本框内的内容?
1、首先，双击窗体空白处进入代码窗口。2、然后我们在事件中找到Click事件。3、这个时候开始编写代码测试【Print "我是Click单击属性！"】。4、然我们开始运行测试。5、启动后，我们在窗体空白处单击。6、这个时候我们将可以看到测试的效果。
VB中如何在文本框内输入文字的同时,在标签上显示文本框中的文字
1、方法一：text1.passwordchar = "*"sub command1_click()label1.caption =text1.text end sub 2、方法二：sub command1_click()label1.caption = string("*",len(text1.text))end sub
在vb程序运行时,怎样在msgbox上显示文本框中输入的内容?
在VB程序运行时可将文本框中输入的内容作prompt参数赋值给MsgBox函数。MsgBox 函数 在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。代码实例：Private Sub Command1_Click() Dim Title, Response Title = "显示文本框输入内容。" ' 定义标题。 Response ...
关于VB编程实现:在文本框中每输入一个字符时,立即在窗体上输出当前文本...
Private Sub Command1_Click() ’这个表示是Command1的单击事件，本行表示事件过程的开始 Cls '清除窗体上的显示内容 Text1.Text = "" '清除文本框Text1里的内容 Text1.SetFocus '使得文本框Text1获得焦点，即光标处于该控件里 End Sub '本行表示事件过程的结束 ---...
VB怎么在文本框中输入内容
接着，双击命令按钮以编辑其代码，如下图所示，然后进入下一步。最后，运行程序，输入“百度”。此时不能直接在文本框中输入内容。 单击“允许输入”命令按钮就可以输入相应的内容了，如下图所示。这样，问题就解决了。Visual Basic编程语言1991年，美国微软公司推出了Visual Basic(可简称VB），目前的最新...
用VB编制程序实现:在窗体上,单击按钮1,在文本框中动态显示当前时间...
窗体load事件：timer1.interval=1000 timer1.enabled=false 时钟timer事件：text1.text=time 第一个按钮：timer1.enabled=true 第二个按钮：timer1.enabled=false
在vb中怎样使文本框显示电脑上的时间
Text1.Text = Format(Now, "yyyy-MM-dd HH:mm:ss")不带日期显示：Text1.Text = Format(Now, "HH:mm:ss")以上只能显示一次。如果想实时更新时间数据，用一个Timer，设置适当的触发时间，比如100或200毫秒（数值越小越精确，但消耗系统资源也多），将以上代码放在其Timer事件中即可。
用VB编程怎样使鼠标在一文本框时上面出现自己指定的字,离开时又...
新建一个EXE工程 在窗体上放个文本框 编辑如下代码:Dim S As String Private Sub Form_Load()S = "默认原来的文本"Text1.Text = S End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = S End Sub Private Sub Text1_...
VB中怎样是文本框中显示当前时间?
在VB中，要使文本框显示当前时间，可使用以下步骤：1. 声明并初始化全局变量。2. 添加计时器控件，设置interval属性为1000。3. 添加开始和结束控制按钮，设置按钮属性以控制计时器。4. 编写代码，实现以下功能：（1）获取通话开始时间并显示。（2）启动计时器并显示当前时间。（3）实现通话计时功能，...
