VB编程达人来~
想在一全屏窗口内每隔1秒按一次F5和每隔2两秒按一次ESC键 ，鼠标右键一直按住， S键也一直按住， 鼠标左键每隔1秒按一次。重复循环上面所有按键在一个全屏窗口内运行该程序。该VB程序要怎么编写？
设置timer一秒触发一次事件
定义静态变量
例如:
static i as intger
i=i+1
sendkey vbkeyF5 '忘记怎么用sendkey了,你查一下
if i>2 then
sendkey vbkeyEsc
i=0
end if
就是这个思路
VB编程的题,达人进一下
1:首先,在窗体上新建一个按钮叫CmdEven，然后写入代码 sub CmdEven_Click()dim i dim sum sum = 0 for i=2 to 100 step 2 sum = sum + i next i print sum end sub 2:建立一个按钮，叫CmdOK，建立一个文本框，叫Text1，程序如下 sub CmdOK_Click()dim n n=val(Text1.text)print ...
VB编程达人来~
static i as intger i=i+1 sendkey vbkeyF5 '忘记怎么用sendkey了,你查一下 if i>2 then sendkey vbkeyEsc i=0 end if 就是这个思路
VB编程达人请速进,今晚必需,在线等【穷举法】
你自己打开看看！代码在下面：Option Explicit Private Sub Command1_Click()Dim i As Integer Dim j As Integer Dim k As Integer Dim Y As Integer Dim n69 As Integer Dim n39 As Integer Dim n29 As Integer Y = 600 For i = 1 To 8 '设截取69CM的有i根，600\/69 最多为8 Fo...
跪求VB语言编程达人!!!
不用跪求,只有天地和父母值得跪,希望你以后不要这样.(2)求1-2+3-4+5-6………+99-100 Dim tSum As Integer Dim i As Integer For i = 1 To 100 If i Mod 2 <> 0 Then tSum = tSum + i Else tSum = tSum - i End If Next i Debug.Print tSum (3) 在界面上设计5个文本框,...
求助VB编程达人,急!!!
Private Sub Command1_Click()Dim i&, n&, max& For i = 101 To 999 If ((i \\ 100) Mod 4 = 0 And ((i \\ 10) Mod 10) Mod 3 = 0 And (i Mod 10) Mod 7 = 0) Or (i Mod 23 = 0) Then n = n + 1 max = i End If Next MsgBox "共有" & n & "个满足...
求助VB编程达人帮忙编写一个程序嘛~
Private Function Fdhs(x As Single) As Single If x < 0 Then Fdhs = Cos(2 * x)ElseIf x <= 3 Then Fdhs = Int(6 * x * x - 5 * x + 1)Else: Fdhs = 2.71828 ^ (3 - x)End If End Function Private Sub Command1_Click()Dim x As Single Dim y As Single x = ...
vb同构数编程,请达人相助。图标没问题了,主要是第二小题,请问这段程序...
y Mod 100 = x 这样的话x不会是三位数，应该是y Mod 1000吧
编程达人进,求一VB程序代码
选中文本框，在属性窗口中找到 MultiLine，将它的属性值设为True；将ScrollBars属性设置为2，让文本框能多行显示，并有垂直滚动条。程序运行的结果是有重复的出现，如3、4、5，和4、3、5，如果你不想这样的情况出现，那就将循环语句中j=1 改成 j=i Private Sub Command1_Click()Dim i%, j%,...
VB编程达人请进来一下,紧急求助
这种问题就不要在这儿问了，不会有结果的。如果你是打算做个真正能用的，你应该去猪八戒等地方挂100块钱，效果比这好多了。如果你是打算交个作业，那你更是来错了地方，你应该去找个教程看看，系统学习一下。这个地方适合解答一句话问题，比如：“公寓管理系统用Access数据库可行吗”之类的。凡是回答...
一个VB编程题 达人进
我的空间里面有以前写的呵, 按你的要求,就只需要在按钮的代码中添加一行.text2=ccnum(text1)http:\/\/hi.baidu.com\/%C4%DD%BF%C9%B1%A6%B1%B4\/blog\/item\/d2d2caed4ab1a5d7b21cb148.html === 呵呵..自己刚好经常要需要在合同中输入大写金额,就编写了一个..写完后在网上搜索了一下, ...
