VB一个小程序
添加一1个label，一个command,一个text即可，可循环修改密码
Dim a As StringPrivate Sub Command1_Click()If Command1.Caption = "确认" Then If Text1 = a Then Call nex Else MsgBox "密码错误！", vbExclamation, "信息" Text1 = "" Text1.SetFocus End IfElseIf Command1.Caption = "修改" Then Call xgEnd IfEnd SubSub nex()Label1.Caption = "新密码："Text1.Text = ""Text1.SetFocusCommand1.Caption = "修改"End SubPrivate Sub Form_Load()Me.Caption = "密码修改"Text1 = ""Text1.PasswordChar = "*"Text1.ToolTipText = "默认密码：admin"Label1.Caption = "原密码："Command1.Caption = "确认"Call miEnd SubSub mi()If Dir(App.Path + "\mm") "" Then Open App.Path + "\mm" For Input As #1 Input #1, a Close #1End If If a = "" Then a = "admin"End SubSub xg()Open App.Path + "\mm" For Output As #1 Print #1, Text1.TextClose #1a = Text1MsgBox "密码修改成功！", vbInformation, "提示"Text1 = ""Text1.SetFocusCommand1.Caption = "确认"Label1.Caption = "原密码："End Sub
我就写一个找出n个数中的最大数的函数，然后后面的靠你自己
Dim a(5) as integerFunction FindMax() as integer dim b as integer dim i as integer b = a(Lbound(a)) for i = Lbound(a) to Ubound(a) If i+1<= Ubound(a) Then If b < a(i+1) Then b = a(i + 1) Else b = a(i) End if End If Next FindMax = bEnd Function
Const pi = 3.14159
Private len_S As Single, len_M As Single, len_H As Single
Private Sub Form_Load()
'先取各指针的长度
len_S = Sqr((LineS.Y2 - LineS.Y1) ^ 2 + (LineS.X2 - LineS.X1) ^ 2) '秒针长度
len_M = Sqr((LineM.Y2 - LineM.Y1) ^ 2 + (LineM.X2 - LineM.X1) ^ 2) '分针长度
len_H = Sqr((LineH.Y2 - LineH.Y1) ^ 2 + (LineH.X2 - LineH.X1) ^ 2) '时针长度
Call timer1_timer
End Sub
Private Sub timer1_timer() '定时器的定时事件过程
Dim s As Single, m As Single, h As Single
Form1.Caption = Time
s = Second(Time)
m = Minute(Time)
h = Hour(Time) + m / 60
'绘制秒针
LineS.X2 = LineS.X1 + len_S * Sin(pi * s / 30)
LineS.Y2 = LineS.Y1 - len_S * Cos(pi * s / 30)
'绘制分针
LineM.X2 = LineM.X1 + len_M * Sin(pi * m / 30)
LineM.Y2 = LineM.Y1 - len_M * Cos(pi * m / 30)
'绘制时针
If h >= 12 Then h = h - 12
LineH.X2 = LineH.X1 + len_H * Sin(pi * h / 6)
LineH.Y2 = LineH.Y1 - len_H * Cos(pi * h / 6)
End Sub
这个时钟比你那个爽噻,是我自己做的.
答案已经很详细了
这个不完整，我还是不会
没有,好像全是代码,要么就最多三条线加一个LABEL,我没看代码.
可以帮我按提问的描述做一个嘛
本不想给你写源代码,这样不然你永远也提不高.但考虑中间有很多算法,还是给你写个吧:
Private Sub Timer1_Timer()
Dim sTime As String
Dim hh As Integer
Dim mm As Integer
Dim ss As Integer
Dim ih As Double
Dim jh As Double
Dim im As Double
Dim jm As Double
Dim iss As Double
Dim jss As Double
Dim dLs As Double '秒钟的长度
Dim dLm As Double '分钟的长度
Dim dLh As Double '小时的长度
'建议:将窗口的ControlBox属性设置成False
'三条LINE:LINESS,LINEMM,LINEHH,一个TIMER,它的INTERNAL=1000
Me.AutoRedraw = True
Me.Width = Me.Height
'Me.Cls
LineSS.Visible = True
LineMM.Visible = True
LineHH.Visible = True
Me.DrawWidth = 2
Me.Circle (Me.Width / 2, (Me.Height) / 2), (Me.Width / 2 - 100)
Me.DrawWidth = 1
Me.DrawStyle = 1
Me.Line (100, Me.Height / 2)-(Me.Width - 100, Me.Height / 2)
Me.Line (Me.Width / 2, 100)-(Me.Width / 2, Me.Height - 100)
Me.CurrentX = Me.Width / 2 - Me.TextWidth("12") / 2
Me.CurrentY = 200
Me.Print "12"
Me.CurrentX = Me.Width / 2 - Me.TextWidth("6") / 2
Me.CurrentY = Me.Height - 300
Me.Print "6"
Me.CurrentX = Me.Width - 200 - Me.TextWidth("3") / 2
Me.CurrentY = Me.Height / 2 - Me.TextHeight("3") / 2
Me.Print "3"
Me.CurrentX = 200
Me.CurrentY = Me.Height / 2 - Me.TextHeight("9") / 2
Me.Print "9"
sTime = Format(Now(), "hh:mm:ss")
hh = Val(Left(sTime, 2))
mm = Val(Mid(sTime, 4, 2))
ss = Val(Mid(sTime, 7, 2))
iss = ss * 6
If iss <= 90 Then
iss = 90 - iss
Else
iss = 450 - iss
End If
iss = -iss
im = mm * 6
If im <= 90 Then
im = 90 - im
Else
im = 450 - im
End If
im = -im
ih = hh * 30
ih = ih + mm / 12 * 6
If ih <= 90 Then
ih = 90 - ih
Else
ih = 450 - ih
End If
ih = -ih
dLh = Me.Width / 2 / 2
dLm = dLh * 1.2
dLs = dLm * 1.2
'长度超长了,收到后再发个追问,再发给你.
继续吧
Me.LineSS.X1 = Me.Width / 2 + (-200) * Cos(iss / 180 * 3.1415926)
Me.LineSS.Y1 = Me.Width / 2 + (-200) * Sin(iss / 180 * 3.1415926)
Me.LineSS.X2 = Me.Width / 2 + dLs * Cos(iss / 180 * 3.1415926)
Me.LineSS.Y2 = Me.Width / 2 + dLs * Sin(iss / 180 * 3.1415926)
Me.LineMM.X1 = Me.Width / 2 + (-150) * Cos(im / 180 * 3.1415926)
Me.LineMM.Y1 = Me.Width / 2 + (-150) * Sin(im / 180 * 3.1415926)
Me.LineMM.X2 = Me.Width / 2 + dLm * Cos(im / 180 * 3.1415926)
Me.LineMM.Y2 = Me.Width / 2 + dLm * Sin(im / 180 * 3.1415926)
Me.LineHH.X1 = Me.Width / 2 + (-100) * Cos(ih / 180 * 3.1415926)
Me.LineHH.Y1 = Me.Width / 2 + (-100) * Sin(ih / 180 * 3.1415926)
Me.LineHH.X2 = Me.Width / 2 + dLh * Cos(ih / 180 * 3.1415926)
Me.LineHH.Y2 = Me.Width / 2 + dLh * Sin(ih / 180 * 3.1415926)
End Sub
这个是怎么回事，下面6看不到的
将窗口的ControlBox属性设置成False
如果不设置成FALSE的话，要设置高度比宽度大400左右
VB一个小程序视频
相关评论：
纪诸宏你好，你想问的是如何使用VB编写一个简单的小程序吧？在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，...
纪诸宏看源程序，一般是回车键换行：程序运行后，光标闪烁等待输入：输入张三，换行的时候就用回车键：然后接着输入第二个数据李四，同样换行是用回车键：同样的方法输入5个同学，打印结果可看是没有问题：如果是其它数据，只需要修改数据类型。
纪诸宏1、新建一个空的功能，生成exe ，执行以后，看看有问题没 2、如果有，那重装VB 3、没有检查你的代码
纪诸宏可能1：你的工程名。版本号。公司名等用了敏感字符。。如microsoft 等。。可能2：杀毒软件查毒的特征不一样。。对敏感一点的功能。。杀软找不到签名则可能会判断为病毒。。你的程序有个下载功能。。木马的长用功能。。如果站点不安全杀软有可能会报警 解决方法。。如是第一种则。。在工程属性里改...
纪诸宏比如打开C:\\a.exe ，参数为abc ，则用空格隔开就行了。具体如下：shell "C:\\a.exe abc"如果那个小程序也是你做的，那么可以用Command接受参数：在Form_Load事件中加入：msgbox command 这样你打开这个小程序的时候就可以看到一个写着abc的对话框了 ...
纪诸宏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程序的话，点击选择：文件\\生成xx.exe 在对话框中，选择：选项\\编译\\编译为本机代码，确定。点击确定后，返回对话框中，再点击确定。就可以生成可单独运行的程序了。
纪诸宏简单的方法是使用资源（文件），在VB6的菜单，[外接程序] -- [外接工序管理器] ；选中 VB6 资源编辑器，勾选 “加载\/卸载”，[确定]见下图：在菜单[工具] -- [资源编辑器]，单击[添加位图]，见下图 把需要的位图文件添加到资源里。然后单击保存，完成资源文件保存。这样，在使用图片框的加载...
纪诸宏1、首先，双击窗体空白处进copy入代码窗口。2、然后我们在事件中找到百Click事件。3、这个度时候开始编写代码测试【问Print "我是Click单击答属性！"】。4、然我们开始运行测试。5、启动后，我们在窗体空白处单击。6、这个时候我们将可以看到测试的效果。
纪诸宏用VB.net制作一个小程序（1）---制作“Hello.NET”程序 作者：高山 用下面很简单的方法，就可以制作一个“Hello.NET”小程序，同时可以掌握一些控件的用法。Public Class Form1 Inherits System.Windows.Forms.Form Region " Windows 窗体设计器生成的代码 "Public Sub New()MyBase.New()'该调用是 ...
