跪求用VB程序设计《彩票选号小助手》小程序，，跪求帮忙，，，，感激不尽

先留个脚印

Private Sub command1_Click()N = -1For i = 0 To 4N = N + 1If option1(i).Value = True Then Exit ForEnd IfNext iDim a(1 To 7) As IntegerFor i = 0 To NFor j = 1 To 7Randomizea(j) = Int(Rnd * 35 + 1)'随机生成号码Next jFor k = 1 To 7For m = k +...

Option Explicit Private Sub Command1_Click()Dim i As Integer, j As Integer, d As Integer Dim a As String d = 1 For i = 0 To 34 Text1(i).Text = Mid$(GenNnm, d, 2)d = d + 2 Next i '1-7排序并去初重复 aa:For i = 1 To 6 For j = 0 To i If Val(Text...

Dim a(6) As Integer '声明数组 Function JC(n As Integer) As Double '求阶乘 JC = 1 For i = 1 To n JC = JC * i Next End Function Sub S36_7()'选号 On Error Resume Next For i = 0 To 6 Line1:a(i) = Fix(Rnd * 36) + 1 For j = 0 To i - 1 If a(i)...

Private Sub Timer1_Timer()Static T As Integer T = T + 1 Image1.Move 300 * T, 100 * T End Sub 这是非常简易的一个动画，可能达不到你的要求，不过可以作为参考参考，呵呵，你在image里添加一个子弹图片，然后在在image2里添加一个靶心，就可以了，具体的抛物线方程我没计算，呵呵 ...

For i = 1 To 1000 n = n + i If n >= 1000 Then MsgBox i - 1: Exit ForNext多读书是好事情，学校的生活多好啊，所以应该好好学习，天天向上！这是最基础的循环题了，利用 n=n+i 在循环中求连续自然数的和！

include<stdio.h> int main(){ char ch[100];char iTemp;int i,j,a,b,c,d,e,iPos,tot;i=a=b=c=d=e=0;printf("请输入一串字符：\n");while((ch[i++]=getchar())!='\n');for(j=0;j=65&&ch[j]<=90)a++;else if(ch[j]>=97&&ch[j]<=1220)b++;else if(ch[j]...

你好，这是你的签名，希望你喜欢 如果对我的回答满意，请点击我的回答下方选择满意回答按钮。

jj = InStrRev(ps.executablepath, "\")Text4.Text = Mid(ps.executablepath, 1, jj - 1) & ""

这个题目好玩！不过没有分数！我就说说思路！这个需要用到高中的力学了！子弹射出！ 只受到重力作用！水平方向不计空气阻力！那水平方向的速度就是 子弹出膛的速度！也就是X轴的坐标！y轴的坐标是: h=gt^2 下面做一个timer 每格1秒刷新一下 计算出XY 然后就可以了 ...