VB程序设计的作业谢谢大神们求解 图发不上来

以vb程序设计语言为工具，对特定的问题进行分析，并设计出解题的算法，根据得到的算法，用vb语言编写出源程序的过程就是vb程序设计。

Private Sub Command1_Click()
Dim count '组合数
Dim i, j, k
For i = 1 To 100 / 3 '公鸡的数量
For j = 1 To 100 / 5 '母鸡的数量
For k = 1 To 100 / 0.5 '小鸡的数量
'公鸡+母鸡+小鸡的总价=100,且公鸡+母鸡+小鸡的数量=100
If i * 3 + j * 5 + k * 0.5 = 100 And i + j + k = 100 Then
count = count + 1
Print "第" & count & "种组合为："
Print "公鸡有：" & i & "只"
Print "母鸡有：" & j & "只"
Print "小鸡有：" & k & "只"
End If
Next k
Next j
Next i
Print "百钱买百鸡的组合一共有：" & count & "种"
End Sub

计算出2中组合哦.第一种,公鸡：2只；母鸡：10只；小鸡：88只.第二种,公鸡：11只；母鸡：5只；小鸡：84只.

Private Function Even(intData() As Integer) As Long
Dim i As Long, sum As Long, ic As Long
sum = 0
ic = 0
For i = LBound(intData) To UBound(intData)
If ((intData(i) Mod 2) = 0) Then
sum = sum + intData(i)
ic = ic + 1
End If
Next
Even = sum / ic
End Function
Private Sub Form_Click()
Dim intData(9) As Integer, i As Integer
Randomize
Me.Cls
For i = 0 To 9
intData(i) = 1 + CInt(99 * Rnd)
Next
Me.Print Even(intData)
End Su

Private Sub Form_click()
Dim x%,y%,s%,i%
x = Val(InputBox("x="))
y = Val(InputBox("y="))
For i = x To y
s = s + Fac(i)
Next
Print s
End Sub
Function Fac(n)
Dim i%
Fac = 1
For i = 1 To n
Fac = Fac * i
Next
End Function

采用超额累进税率计税时,简化计算应纳税额的一个数据.速算扣除数实际上是在级距和税率不变条件下,全额累进税率的应纳税额比超额累进税率的应纳税额多纳的一个常数.因此,在超额累进税率条件下,用全额累进的计税方法,只要减掉这个常数,就等于用超额累进方法计算的应纳税额,故称速算扣除数.采用速算扣除数法计算超额累进税率的所得税时的计税公式是：
应纳税额=应纳税所得额×适用税率-速算扣除数
速算扣除数的计算公式是：
本级速算扣除额=上一级最高所得额×（本级税率-上一级税率）+上一级速算扣除数 超额累进税率全额累进税率
用上述公式求得的速算扣除数,可用直接计算法验证其准确性,以个人所得税工资、薪金所得适用的9级超额累进税率第2级验证如下：
① 用上述公式计算：
500×（10%-5%）+0=25
② 用直接计算法计算
全额累进税率的应纳税额=2000×10%=200
超额累进税率的应纳税额=（500×5%）+（1500×10%）=175
速算扣除数=200-175=25
附计算依据：
应纳个人所得税税额=（应纳税所得－扣除标准）*适用税率-速算扣除数
扣除标准1600元/月.
不超过500元的,税率5%,速算扣除数为0；
超过500元至2000元的部分,税率10%,速算扣除数为25
超过2000元至5000元的部分,税率15 %,速算扣除数为125
超过5000元至20000元的部分,税率20 %,速算扣除数为375
超过20000元至40000元的部分,税率25%,速算扣除数为1375
超过40000元至60000元的部分,税率30%,速算扣除数为3375
超过60000元至80000元的部分,税率35%,速算扣除数为6375
超过80000元至100000元的部分,税率40%,速算扣除数为10375
超过100000元的部分,税率45%,速算扣除数为15375

dim a%(1 to 10)
max=0:k=0
for i = 1 to 10
a(i)=int(rnd*(99-10+1)+10)
text1=text1 & a(i) & space(2)
if a(i) >max then
max=a(i) k=i
endif
next i
print max,k

帮你写了一个,调试通过,不过第5个条件很奇怪啊,这样做出来的计算器是不能连续运算的,每次都要按下等号给出结果,程序在附录中 若满意请及时采纳,谢谢

Private Sub Command1_Click()
Dim s As Integer
For i = 100 To 200
If i Mod 3 = 0 And i Mod 7 0 Then s = s + i
Next i
Print "所求的和为：" & s
End Su

Private Sub form_click()
Dim R As Single
Dim H As Single
Dim S As Single
Dim V As Single
Const Pi = 3.14159
R = 1.5
H = 3
S = (Pi * R * R) * 2 + (2 * Pi * R) * H
V = (Pi * R * R) * H
Print "圆柱的表面积＝"; S
Print "体 积＝"; V
End Su

Private Sub Command1_Click()
t = (b - a * 2) / 2 '兔
j = a - t '鸡
If t - j > 0 Then
MsgBox "兔多"
ElseIf t - j < 0 Then
MsgBox "鸡多"
ElseIf t = j Then
MsgBox "一样多"
End If
End Su

Dim i As Integer
x = 1
For i = 9 To 1 Step -1
x = (x + 1) * 2
Print x
Next i

回答过了啊……

Dim f1,f2,f3 As Long
Dim i,j As Integer
f1 = 1
f2 = 1
j = 3 'j用来控制print和换行
Print "====输出Fibonacci数列20个数===="
Print
Print f1,f2,
For i = 3 To 20
f3 = f1 + f2
If j < 4 Then
Print f3,
Else
j = 0
Print f3
End If
f1 = f2
f2 = f3
j = j + 1
Next i

添加三个CommandButton 将Command1当成小汽车 一个Timer 设置其Timer1.Enabled=False Timer1.Interval=100 示例代码如下：
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Command1.Left = Command1.Left + 20
If Command1.Left + Command1.Width = Width Then Command1.Left = 0
End Su

问题好像还没有结束啊,补充一下吧
intA=rnd()*10000
intB=val(mid(intA,4,1) & mid(intA,3,1) & mid(intA,2,1) & mid(intA,1,1))
intB就是你要的数字了.

Option Explicit
Option Base 1
Private Sub Command1_Click()
' 1：求1+1/（1+2）+1/（2+3）+1/（3+4）.的前N项和
Dim N%, S!, i%
N = InputBox("N=", "输入", 5)
S = 0
For i = 1 To N
S = S + 1 / (i - 1 + i)
Next i
Print S
End Sub
Private Sub Command2_Click()
' 2：生成20个20-3000之间的随机数,每行5个,再下行输出其中除5余2并被3整除的数,并求它们的和
Dim a%(20), i%, S%
For i = 1 To 20
a(i) = Rnd() * (3000 - 20) + 20
Print a(i);
If i Mod 5 = 0 Then Print
Next i
For i = 1 To 20
If a(i) Mod 5 = 2 And a(i) Mod 3 = 0 Then
Print a(i);: S = S + a(i)
End If
Next i: Print: Print S
End Su

假设要比较的三个数输入在Text1,text2,text3,结果放在text4
Private Sub Command1_Click()
Dim a,b,c,d As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b Then d = a:a = b:b = d
If b < c Then d = b:b = c:c = d
If a < b Then d = a:a = b:b = d
Text4.Text = a & " ," & b & " ," & c
End Su

College English
Biological scientific experiments
The military theory and practice
Information technology B
Moral and legal basis
University information technology integrated experiment
Application of writing
botany
VB programming language
Basic chemistry experiment
Inorganic and chemical analysis
Chinese traditional culture
biochemistry
basketball
Automobile driving theory and traffic safety
Pollution-free agricultural soil management
University physics
bioinformatics
Table tennis club
genetics
Plant physiology
Modern instrument analysis experiment
Plant breeding theory and technology
Enzyme engineering
Molecular biology
Biological product separation technology
Genetic engineering experiment
Genetic engineering
Genetic engineering courses
Tissue culture teaching practice
Agricultural biotechnology
Sports club session
Social practice and research report
Graduation thesis
Information technology
Marxist philosophy principle
Basic chemistry experiment
Biodiversity and protection
The linear algebra
Appreciation of the
Marxist political economics principle
Higher mathematics
management
Organic chemistry
the
Probability and statistics
Public relations
University physics experiment
tennis
Sinicization of marxism
Reading and social practice
zoology
General microbiology
labor
badminton
Modern instrument analysis
Cell biology
Molecular immunology
Cell biological technology
biopharmaceutical
Comprehensive experimental training organization
Tissue culture
Tissue culture course
Life science advances
Genetic engineering experiment
Comprehensive professional practice
Applied microbiology teaching practice
Plant practice module
要是答案还满意的话,记得采纳哦,O(∩_∩)O谢谢~!祝你进步!

const pi=3.1416
sub circle（byval r as single,L as single,a as single,V AS SINGLE）
L=2*pi*r
A=pi*r*r
V=4/3*r*r*r*pi
end su

Private Sub Form_Click()
Cls
Dim a(100) As Integer
'以下产生100个正整数
Randomize
For i = 1 To 100
a(i) = Int(Rnd() * 100 + 1)
Print a(i) & vbTab;
If i Mod 5 = 0 Then Print
Next
'排序
For i = 1 To 99
For j = i + 1 To 100
If a(i) > a(j) Then tmp = a(i): a(i) = a(j): a(j) = tmp
Next
Next
'输出数据
Print "排序后的结果"
For i = 1 To 100
Print a(i) & vbTab;
If i Mod 5 = 0 Then Print
Next
End Su

判断题：1X、 2X、3X、4X、5X、6X、7X、8Y、9Y、10X
正确率就不知道了 不太会做理论题 不试不知道 你自己试一下不就知道了
上面的第一题 的图片怎么丢了？
第二题很简单 一个计时控件 每隔几百毫秒就移动一下Label 然后加个判断
出界了就反向移动，代码就不用了吧 这个都不知道做？
第三题是弱智题
n=0
str=""
for i=1 to 10000
if (i mod 13=7)and(i mod 7=5)and(i mod 5=3) then
n=n+1
if n mod 5=0 then
str=str & cstr(i) & vbCrLf
else
str=str & cstr(i) & " "
end if
end if
next i
'--------------------------------------
'文件操作部分
open "D:result.txt" for output as #1
print #1,str
close #1
'--------------------------------------
以上是VB6的代码
如果是VB.Net 修改一下文件操作部分就可以了
Dim n As Long
Dim str As String
n = 0
Str = ""
For i = 1 To 10000
If (i Mod 13 = 7) And (i Mod 7 = 5) And (i Mod 5 = 3) Then
n = n + 1
If n Mod 5 = 0 Then
str = str & CStr(i) & vbCrLf
Else
str = str & CStr(i) & " "
End If
End If
Next i
Dim chl As New System.IO.StreamWriter("D:result.txt", True)
chl.WriteLine(str)
chl.Close()
以上是VB.Net 的代码

Private Sub Form_Activate()
'1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法：
Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288
Dim x As Double
x = Val(InputBox(""))
Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5)
Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2)
Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)
Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)
Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)
Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)

End Sub

Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double
ss = a + a * c * b
End Function

Private Sub Form_Load()
AutoRedraw = True
End Su

常量是不可以在运行时进行赋值的.Private Const Pi As Single = 3.1415Private Sub Form_Load()Text3.Locked = True '将输出...

VB程序设计时“:“表示在一行上书写多个语句时中间的分隔.
;(注意必须是英文的分号,而不是你所打的中文标点.)表示在print语句中输出多个数据时紧凑输出.