vb编程高手进

vb编程高手进~

为了应付考试？作业？

童鞋，这些都不难，为什么自己不动手试试呢。

Private Sub Command1_Click()
Sum = 1
If IsNumeric(Text1.Text) Then '判断文本框输入的是不是数字
If Abs(CLng(Text1.Text)) = CDbl(Text1.Text) Then '判断是不是非负整数
If CLng(Text1.Text) > 0 Then '判断是不是0
For i = 1 To CLng(Text1.Text) '计算
Sum = Sum * (2 * i - 1)
Next
MsgBox Sum
Else '输入的是0
MsgBox "请输入正整数"
Text1.SetFocus '设置焦点
Text1.SelStart = 0 '选中文本
Text1.SelLength = Len(Text1.Text)
End If
Else '输入的是小数或者负数
MsgBox "请输入正整数"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
Else '输入的不是数字
MsgBox "请输入正整数"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub

没人回答,那我就帮你下,但效果不是很好.

第一

Private Sub Form_Load()
Form1.Width = 3100
Form1.BorderStyle = 1
Timer1.Interval = 100
Form1.Top = 500
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Height = 6000
Timer1.Enabled = False
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Val(Form1.Top) < 300 Then Form1.Top = -500
If Val(Form1.Top) < 300 Then Form1.Height = 550

If Val(Form1.Top) > 300 Then Form1.Height = 6000

End Sub

第二

Private Sub Form_Load()
Form1.Width = 3100
Form1.BorderStyle = 1
Timer1.Interval = 100
Form1.Top = 500
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Height = 6000
Timer1.Enabled = False
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Val(Form1.Top) < 300 Then Form1.Top = 0
If Val(Form1.Top) < 300 Then Form1.Height = 300

If Val(Form1.Top) > 300 Then Form1.Height = 6000

End Sub

---

龙凤区18656593101： VB编程!!高手进？
金促双黄： Private Sub Command1_Click() a = InputBox(＂输入11个数,空格隔开＂) a = Split(a, ＂ ＂) For i = 0 To UBound(a) If i Mod 2 <> 0 Then Print a(i) & ＂ ＂; Next i Print For i = 0 To UBound(a) If i Mod 2 = 0 Then Print a(i) & ＂ ＂; Next i End Sub

龙凤区18656593101： VB编程高手进？
金促双黄： 这个可以用API来做.在窗体上添加1个Timer控件,把它的Interval属性设为10000,就是10秒,然后把下面的代码复制到窗体的代码里就行了. Private Declare Sub keybd_event Lib ＂user32＂ (ByVal bVk As Byte, ByVal bScan As Byte, ByVal ...

龙凤区18656593101： VB高手进？
金促双黄： 一行...保存为vbs a=MsgBox(＂是否关机?＂,4,＂＂):If a=6 Then CreateObject(＂WScript.shell＂).run(＂shutdown /s /t 5000＂)

龙凤区18656593101： VB编程高手请进!! - ？
金促双黄： 设计时可以做小一些.如果要根据屏幕大小来调整,也可:用screen对象的属性来取得屏幕的宽和高,然后把form的width和height作相应修改即可.注意,控件的位置也要用代码调整,一般写在form_resize()事件里.

龙凤区18656593101： VB编程高手速进？
金促双黄： 设文件1.EXE 将其加入资源文件中,标号为:101,属性:＂CUSTOM＂ 释放: Dim appexe() As Byte Dim filenum As Long appexe = LoadResData(101, ＂CUSTOM＂) filenum = FreeFile Open ＂c:\1.exe＂ For Binary As #filenum Put #1, , appexe Close #filenum

龙凤区18656593101： vb 编程 高手进!! - ？
金促双黄： 两个窗体,复制以下代码即可alt+z显示和隐藏 Dim v As Integer Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 2 Then If KeyCode = 90 Then If v = 1 Then Form2.Show v = -v Else Form2.Hide v = -v End If End If End If End Sub Private Sub Form_Load() v = 1 End Sub

龙凤区18656593101： VB编程共12题,高手请进,做完后有赏分 - ？
金促双黄： 唉,帮帮你吧,控件自己画.1) private sub form_load() list1.additem ＂Item1＂ list1.additem ＂Item2＂ list1.additem ＂Item3＂ list1.additem ＂Item4＂ end sub private C1_click() text1.text1=text1.text+list1.text+chr(13)+chr(10) end sub2) private Cmd...

龙凤区18656593101： vb代码高手进 对的+高分？
金促双黄： 放到资源中 用二进制读取写入文件,用完删掉 看这个例子 Private Sub resOut()'释放资源 Dim Ocx() As Byte 'OCX是个Btye类型的数组 Dim Counter As Long Dim Fsys As Object Ocx = LoadResData(101, ＂CUSTOM＂) '将自定义资源中101...

龙凤区18656593101： 会VB程序高手 快进？
金促双黄： 创建Text1、Text2、Command1 Text1输入年份、Text2输入月份 代码一: PrivateSubForm_Load()Text1.MaxLength=4Text1.Text=＂＂Text2.MaxLength=2Text2.Text=＂＂EndSub PrivateSubCommand1_Click()y=Val(Text1.Text)m=Val(Text2.Text)...

龙凤区18656593101： 给我几个简单的VB程序 高手进？
金促双黄： 题目1:打开程序后显示窗体,窗体上有2个单选按钮,标题分别为关机、重启;另有一个按钮,单击后执行单选按钮的命令. 步骤:在窗体上画两个单选按钮(名称分别为opt1、opt2)和一个按钮(名称为cmd) 代码: Private Sub Form_Load...