用vb编写一个程序，解决搬砖问题：
题目中没说，但这个可能是36人36砖的问题的答案。
变量不声明的问题是因为vb是弱类型的，变量可以不声明就使用。
1.开机自启动：只要把程序快捷方式放到文件夹“C:\Documents and Settings\用户名\「开始」菜单\程序\启动\”就行了。
2.启动后能自动最小化：我在程序中设置为最小化到系统托盘区的。
3.关闭某123.exe进程：关闭进程可以使用这个语句Call Shell("cmd.exe /c taskkill /im 123.exe /f", vbHide)。启动则用这个语句Call Shell("123.exe", vbHide)'启动程序123.exe，最好写成全路径，如：D:\123\123.exe
在窗体上添加两个Timer控件
代码如下：
Option Explicit
Private Const MAX_TOOLTIP As Integer = 64
Private Const NIF_ICON = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Private Const NIM_ADD = &H0 '添加图标到任务栏提示区
Private Const NIM_MODIFY = &H1 '修改系统状态栏中的图标
Private Const NIM_DELETE = &H2 '删除系统状态栏中的图标
Private Const WM_USER = &H400
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Const WM_RBUTTONDBLCLK = &H206
Private Type NOTIFYICONDATA
cbSize As Long '需填入NOTIFYICONDATA数据结构的长度
hwnd As Long '设置成窗口的句柄
uID As Long '为图标所设置的ID值
uFlags As Long '设置uCallbackMessage,hIcon,szTip是否有效
uCallbackMessage As Long '消息编号
hIcon As Long '显示在状态栏上的图标
szTip As String * MAX_TOOLTIP '提示信息
End Type
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" _
(ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
'返回值 Long，非零表示成功，零表示失败
Private nfIconData As NOTIFYICONDATA
Dim T1 As Long, nT1 As Long
Dim T2 As Long, nT2 As Long
Private Sub Form_Load()
'设置系统托盘区图标的属性
nfIconData.hwnd = Me.hwnd
nfIconData.uID = Me.Icon
nfIconData.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
nfIconData.uCallbackMessage = WM_MOUSEMOVE
nfIconData.hIcon = Me.Icon.Handle
nfIconData.szTip = "123" & vbNullChar
nfIconData.cbSize = Len(nfIconData)
'添加系统托盘区图标
Call Shell_NotifyIcon(NIM_ADD, nfIconData)
T1 = 0: nT1 = 3600 * 8
T2 = 0: nT2 = 60
Timer1.Interval = 1000
Timer2.Interval = 1000
Timer1.Enabled = True
Timer2.Enabled = False
Me.Hide
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lMsg As Single
'获得鼠标在系统托盘区的事件，鼠标左键双击
lMsg = X / Screen.TwipsPerPixelX
If lMsg = WM_LBUTTONDBLCLK Then Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
'去掉系统托盘区的图标
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub
Private Sub Timer1_Timer()
T1 = T1 + 1
If T1 >= nT1 Then
T1 = 0
'关掉进程程序名为123.exe的程序
Call Shell("cmd.exe /c taskkill /im 123.exe /f", vbHide)
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
T2 = T2 + 1
If T2 >= nT2 Then
T2 = 0
'启动程序123.exe，最好写成全路径，如：D:\123\123.exe
Call Shell("123.exe", vbHide)
Timer2.Enabled = False
Timer1.Enabled = True
End If
End Sub
for(i=0;i<9;i++){
for(j=0;j<12;j++){
for(o=0;o<36;o=o+2){
if((i+i+o==36)&&(4*i+3*j+o/2==36)){
print(i&"=="&j&"=="&o);}}}
男3人，女3人，小孩30人。（不能输入代码，知道说超100字不可答）
发到HI聊中了。
用VB做一个简单的小程序
Private Sub Command1_Click() Me.Cls Dim N As Integer, i As Integer N = InputBox("n=", , 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...
用vb 编写一个程序,当同时按下Shift+F6时,在窗体上显示“你好!”,并...
具体如下，在窗体上增加一个定时控件Timer1.Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode = vbKeyF6 And Shift = 1 Then Print "你好"Timer1.Interval = 1000 End If End Sub Private Sub Timer1_Timer()Unload Me End Sub 运行程序，按Shift+F6后，显示“你好！
vb编写hello world 程序
vb编写hello world 程序可以参考下面的代码：Private Sub Form_Load()MsgBox ("Hello World")End Sub 在窗体上单击即可运行程序。
VB编写程序:设计一个程序,当单击窗体时,在窗体上显示任意一幅图片。怎样...
首先添加一个窗体，在这个窗体上加一个文本框的控件，在这个文本框的单击事件中写如下的程序：Dim num, sum, it(1), n, t, hPrivate Sub Form_Click()File1.Refreshsum = 0List1.ClearFor i = 0 To File1.ListCount - 1t = Split(File1.List(i), ".")(UBound(Split(File1.List(i...
用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 编写一个简单程序,要求:单击命令按钮来显示或隐藏标签,具体点的解答...
请按以下步骤操作：打开vb新建一个工程，保存好 窗体上画一个一个命令按钮command1（命令按钮标题“隐藏”），一个标签label1，标签最好打几个字 双击命令按钮进入代码编辑器 写如下代码：if command1.caption='隐藏' then label1.visible=false command1.caption='显示'else label1.visible=true comma...
编写一个vb程序,求符号函数y=f(x):x=0,f(x)=0,x>0,f(x)=1,x<0,f...
最简单的代码是：y = Sgn(x)这是直接利用了VB的符号函数Sgn()。如果你想自己做一个出来，就这样：Function f(x) As Integer If x > 0 Then f = 1 ElseIf x < 0 Then f = -1 Else f = 0 End IfEnd Function用法：y = f(x)...
用VB语言编写程序(1):
Private Sub Form_Click()Randomize (Timer) ' 对随机数生成器做初始化的动作。Form1.BackColor = QBColor(Int((16 * Rnd))) ' 生成 0 到 15 之间的随机数值给QBcolor End Sub
用VB,编一个程序,从键盘输入两个数,找出较大的一个数,并打印出来
private sub from_load()dim a%,b a=msgbox("请输入第一个数：")b=msgbox("请输入第二个数：")if a>b then b=a print "较大的数是：" & b end sub
帮我编写个程序 VB的～
max = b(1): min = b(1)For i = 2 To c If b(i) > max Then max = b(i)If b(i) < min Then min = b(i)Next i Print "你输入的数中最大为："; max, "最小为："; min End Sub 你输入学生分数后，最后按-1才会退出，记住一定要按-1 好啦，不信你可以在VB中做下，...
禾秒醋甲： i为男人,j为女人,o为小孩子.for(i=0;i<9;i++){ for(j=0;j<12;j++){ for(o=0;o<36;o=o+2){ if((i+i+o==36)&&(4*i+3*j+o/2==36)){ print(i&＂==＂&j&＂==＂&o);}}}
淮上区19568406990： 用Visual Basic语言编写一个程序,求解搬砖问题:36块砖,36人搬,男的搬4块, - ？
禾秒醋甲： 五个男生20块,五个女生15块,二个小孩1块
淮上区19568406990： 求VB程序,用for循环？
禾秒醋甲： Private Sub Command1_Click() Dim a, b, c As Integer For a = 1 To 9 For b = 1 To 12 c = 36 - a - b If 4 * a + 3 * b + c / 2 = 36 Then Print ＂男人有＂ & a & ＂人＂ Print ＂女人有＂ & b & ＂人＂ Print ＂小孩有＂ & c & ＂人＂ End If Next b Next a End Sub
淮上区19568406990： vb搬砖问题,有点不是很明白 - ？
禾秒醋甲： 题目中没说,但这个可能是36人36砖的问题的答案.变量不声明的问题是因为vb是弱类型的,变量可以不声明就使用.
淮上区19568406990： VB 编写程序解决百钱买百鸡问题 - ？
禾秒醋甲： i 要从0开始 private sub command1_click() for i = 0 to 20 for j = 0 to 33 z = 100 - j - i if 5 * i + 3 * j + 1 / 3 * z = 100 then print i, j, z next j next i end sub
淮上区19568406990： 用VB编个简单的程序. - ？
禾秒醋甲： Private Sub Command1_Click() Dim a(3) As Double For i = 0 To 2 a(i) = InputBox(＂请输入第＂ & i & ＂个数字:＂) Next iFor i = 2 To 0 Step -1For j = 0 To i - 1If a(j) < a(j + 1) Then temp = a(j): a(j) = a(j + 1): a(j + 1) = tempNext j Next iFor i = 0 To 2 Print a(i) Next i End Sub
淮上区19568406990： 求助,用VB编写一个程序,每步后面都有具体的解释,并写一份该程序的使用说明书 - ？
禾秒醋甲： 这么简单的东西 程序的具体编制操作如下: 1. 在VB6.0编程环境中,新建一个工程Project1. 2. 在Project1中添加模块Modulel,在工程属性中将工程名称改为HiddenMen,应用程序标题也改为HiddenMen(以下程序都经过实际运行测试,可以...
淮上区19568406990： 编程搬砖问题 - ？
禾秒醋甲： Option Explicit'36块砖,36个人,男的搬4块,女的搬3块,2个小儿抬1块,要求1次'抬完,问男女小儿各多少人 Private Sub Form_Load() Show Dim M, W, C As Integer For M = 0 To 36 For W = 0 To 36 For C = 0 To 36 If M * 4 + W * 3 + C / 2 = 36 And M + W + C = 36 Then Print M, W, C '没有结果? End If Next C Next W Next M End Sub
淮上区19568406990： 用VB6.0编一个程序解决这个问题 - ？
禾秒醋甲： Dim d(10) As Integer Dim i As Integer Dim n As Integer Dim x As Integer'用随机函数生成数组 n = 0 Randomize Do While nx = Rnd * 100 For i = 1 To n If x = d(i) Then Exit For End If Next i If i > n Then n = n + 1 d(n) = x End If Loop Me.Cls'显示数组 ...
淮上区19568406990： 求助VB高手编一个程序,急! - ？
禾秒醋甲： Dim x(14) As Single, g(14, 14) As Single x(0) = 0 For i = 1 To 14 x(i) = x(i - 1) + 1 / 2 * (50 + 50) Print x(i) Next i For i = 1 To 14 For j = 1 To 14If x(i) > x(j) Then g(i, j) = 1400 ^ 3 / (6 * 206000 * 11984224.91) * ((x(j) / 1400) ^ 2 * ((3 * x(i) - x(j)) / 1400) + (...
