用VB写一个小程序.
Dim sec, min, h
Private Sub Command1_Click()
Timer1.Enabled = True
h = Text1.Text
min = Text2.Text
sec = Text3.Text
Timer2.Enabled = False
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Form1.BackColor = &HFFFF00
Timer1.Enabled = False
Timer1.Interval = 1000
Timer2.Enabled = True
Timer2.Interval = 1000
Text1.Text = 2
Text2.Text = "00"
Text3.Text = "00"
Command2.Caption = "退出"
Command1.Caption = "开始倒计时"
End Sub
Private Sub Timer1_Timer()
If sec > 0 Then
sec = sec - 1
Else:
If (min > 0 Or h > 0) Then
sec = 59
End If
If min > 0 Then
min = min - 1
Else:
If h > 0 Then
min = 59
End If
If h > 0 Then
h = h - 1
Else: Timer1.Enabled = False
CreateObject("SAPI.SpVoice").Speak "GAME OVER!"
Form1.BackColor = &HFF
End If
End If
End If
Text1.Text = h
Text2.Text = min
Text3.Text = sec
Label6.Caption = Now
End Sub
Private Sub Timer2_Timer()
Label6.Caption = Now
End Sub
Dim a, b
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Text.Text = "Visual Basic程序设计"
Command1.Caption = "结束"
Text.Left = 0: Text.Top = 0: Text.Width = 0.5 * Form1.Width
Text.Height = 0.5 * Form1.Height
a = Form1.Width - Command1.Left
b = Form1.Height - Command1.Top
End Sub
Private Sub Form_Resize()
Text.Left = 0: Text.Top = 0: Text.Width = 0.5 * Form1.Width
Text.Height = 0.5 * Form1.Height
Command1.Left = Form1.Width - a
Command1.Top = Form1.Height - b
End Sub
注意，各变量名，控件名保持一致,你题目中的文本框名称为text
Sub main()
Open "c:\temp\25.txt" For Input As #1
Clipboard.Clear
Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)
End Sub
如何使用VB编写一个简单的小程序?
在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性...
用vb制作小程序——时钟
打开你的vb程序，添加一个标准工程，如图，单机打开 待你进行编程的界面 添加三个line控件，一个timer控件，一个shape控件，（双击控件即可添加一个）修改timer的属性，在右侧的属性窗口内。也可以单机小时钟，此时右面属性栏显示为如图示的项目。进行编辑就可以了。把ennabled修改为true，interval修改为1000...
如何利用vb制作抽奖小程序
首先启动vb6.0，执行文件-新建命令，弹出新建工程对话框，在该对话框中选择标准的exe后点击打开按钮，进入vb程序主界面。在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽，调节窗体的大小，直至自己满意为止。选择窗体，在其右边的属性中找到boderstyle属性，设置属性值为none，接着再找到s...
用VB写了一个小程序,生成.exe后,杀毒软件竟然报警!?
可能1：你的工程名。版本号。公司名等用了敏感字符。。如microsoft 等。。可能2：杀毒软件查毒的特征不一样。。对敏感一点的功能。。杀软找不到签名则可能会判断为病毒。。你的程序有个下载功能。。木马的长用功能。。如果站点不安全杀软有可能会报警 解决方法。。如是第一种则。。在工程属性里改...
我用VB编了一个小程序?怎样生成EXE
打开VB－－外接程序－－打包和展开向导－－打包 根据步骤做就行了。生成VB的安装包，但是或许安装包里面还有其他文件。如果要生成一个单独的可运行的安装包，也就是说生成单独的EXE文件，可以使用打包工具Setup Factory 7.0 进行打包，打包的时候，你可以把VBW,VBP，frm等文件都整合进去。这个工具很容易...
帮忙写个VB小程序,几句话,很短!用Do while...loop语句。
Option Explicit Private Sub Form_Load()Dim i As Integer, x As Integer, Num Randomize (Timer)Num = Val(InputBox("请输入1～100之间的某个数："))Do While i < 100 If Int(Rnd * 99 + 1) > Num Then x = x + 1 i = i + 1 Loop MsgBox "大于" & Num & "的个数为" ...
vb 制作一个小程序,标题栏带有问号按钮,怎么点击这个按钮进入我设计的窗...
1、首先，双击窗体空白处进copy入代码窗口。2、然后我们在事件中找到百Click事件。3、这个度时候开始编写代码测试【问Print "我是Click单击答属性！"】。4、然我们开始运行测试。5、启动后，我们在窗体空白处单击。6、这个时候我们将可以看到测试的效果。
用VB写一个小程序.
vb6代码如下，添加模块，工程--属性--启动对象选择sub main Sub main()Open "c:\\temp\\25.txt" For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)End Sub
用VB做一个简单的小程序
, 9) For i = 1 To 2 * N - 1 If i <= N Then Print Space(N - i) + String(2 * i - 1, CStr(i)) Else Print Space(N - (2 * N - i)) + String(2 * (2 * N - i) - 1, CStr(2 * N - i)) End If Next iEnd Sub ...
如何用VB编写一个自动换行的小程序?
看源程序，一般是回车键换行：程序运行后，光标闪烁等待输入：输入张三，换行的时候就用回车键：然后接着输入第二个数据李四，同样换行是用回车键：同样的方法输入5个同学，打印结果可看是没有问题：如果是其它数据，只需要修改数据类型。
宦剂立芷： 在桌面上,鼠标左键双击程序,在打开的VB6主界面上,左边是工具菜单栏,单击标签按钮,在Form1窗口上,绘制出一Label1,然后在其属性窗口上改个名字,如Caption为第一数,如下图所示. 接着,用同样的方法,在Form1窗口上绘制出...
喀喇沁左翼蒙古族自治县19126287789： 用VB写一个小程序. - ？
宦剂立芷： vb6代码如下,添加模块,工程--属性--启动对象选择sub mainSub main() Open ＂c:\temp\25.txt＂ For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)End Sub
喀喇沁左翼蒙古族自治县19126287789： 用VB编写一个小程序 - ？
宦剂立芷： Private Sub Command1_Click() Dim f As Single, c As Single, n As Integer f = InputBox(＂请输入华氏温度是:＂) n = 5 / 9 c = n * (f - 32) Print ＂摄试温度为:＂ & c End Sub
喀喇沁左翼蒙古族自治县19126287789： 菜鸟编写vb个小程序 - ？
宦剂立芷： 我来告诉你吧,一个窗体就够了 private sub form1_load() dim x,y x=inputbox(＂please input x＂) y=1/x+2/x msgbox(y) end sub
喀喇沁左翼蒙古族自治县19126287789： VB小程序编写 - ？
宦剂立芷： 在窗体添加3个文本框、一个Label和一个按钮,不要修改他们的名称,然后写代码如下:Private Sub Command1_Click() Dim H As Single,M As Single,N As Single,T As Single H=Text1.text M=Text2.text N=Text3.text T=H/(M-N) Label1.Caption=＂青蛙从高＂ & H ＂米的井中爬出需要＂ & T & ＂天＂ End Sub 运行程序,在3个文本框分别输入H,M和N,就可以在Label1中看到结果
喀喇沁左翼蒙古族自治县19126287789： VB写一个小程序 - ？
宦剂立芷： '简单的做法是这样的.其它具体的限制就不写了.自己改改.Private Sub Text1_Change() If Not Text1.Text Like ＂*[!A-Za-z]*＂ Then For i = 1 To 5 If InStr(Text1.Text, Mid(＂aeiou＂, i, 1)) <> 0 Then MsgBox ＂有元音字母.＂ Exit For End If Next Else MsgBox ＂请输入字母.＂ End If End Sub
喀喇沁左翼蒙古族自治县19126287789： 怎样用vb编一个小程序 - ？
宦剂立芷： a=InputBox(＂a＂) b=InputBox(＂b＂) Text1.Text=val(a)+val(b)就可以实现两个数的相加
喀喇沁左翼蒙古族自治县19126287789： 各位大神帮忙用vb写一个小程序、代码发上来? - ？
宦剂立芷： 有引号是因为你是用write语句写的文件,换成print即可 以下是源码,测试版,未加容错处理,仅供参考.Private Sub Command1_Click() '添加记录 If Text1 <> ＂＂ And Text2 <> ＂＂ Then Open App.Path & ＂\通讯录.txt＂ For Append As #...
喀喇沁左翼蒙古族自治县19126287789： 求用vb编个小程序.. - ？
宦剂立芷： Private Sub Command1_Click() Dim nStr$, StrN%, Cyc% nStr = Trim(Text1.Text) StrN = Len(nStr) For Cyc = 1 To StrN nnn = Mid(nStr, Cyc, 1) Select Case Asc(nnn) Case 65 To 90, 97 To 122, 48 To 57 nnn1 = nnn1 + nnn End Select Next MsgBox ＂子字符串:＂ & nnn1 & vbLf & ＂共有:＂ & Len(nnn1) & ＂个＂ End Sub
喀喇沁左翼蒙古族自治县19126287789： 求高手用VB语言写个小程序,谢谢 - ？
宦剂立芷： Option Explicit Private Sub Command1_Click() Cls Dim a() As Integer GetNewData a Dim s As Variant For Each s In a Print s '输出结果 Next End Sub Function GetNewData(ByRef a() As Integer) ReDim a(0) Dim temp As Integer, s As Variant, ...
