用vb编写个小程序 计算百分比 输入总数 输出三个值 a b c a=10% b=30% c=60%

Private Sub Command1_Click()

Dim s As Double

s = Val(Trim(InputBox("请输入总数", "提示!")))

MsgBox "a=" & CStr(s 01) & " b=" & CStr(s 03) & " c=" & CStr(s 06)

End Sub

给你个例子，你自己修改你的代码

Private Sub Command1_Click()

Dim i As Integer

Dim cnn As New ADODBConnection

Dim rs As New ADODBRecordset

Dim SQL As String

Dim cnnStr As String

cnnStr = "Provider=MicrosoftJetOLEDB40;Data Source=D:\1mdb;Persist Security Info=False"

cnnCursorLocation = adUseClient

cnnOpen cnnStr

SQL = "SELECT a姓名, a总次数, b迟到, c早退 " & _

"FROM ((select 姓名, count(姓名) as 总次数 from 表1 group by 姓名) AS a " & _

"inner JOIN (select 姓名, count(类型) as 迟到 from 表1 where 类型='迟到' group by 姓名,类型 ) AS b ON a姓名 = b姓名) " & _

"inner JOIN (select 姓名, count(类型) as 早退 from 表1 where 类型='早退' group by 姓名,类型 ) AS c ON a姓名 = c姓名"

rsOpen SQL, cnn, adOpenKeyset, adLockPessimistic

If rsRecordCount > 0 Then

For i = 1 To rsRecordCount

Print rsFields("姓名"); rsFields("总次数"); rsFields("迟到"); rsFields("早退")

rsMoveNext

Next

rsClose

End If

cnnClose

Set rs = Nothing

Set cnn = Nothing

End Sub

Dim i(4) As String

Dim j(4) As Integer

Private Sub Command1_Click()

For n = 0 To 4

Print i(n) & ":" & j(n)

Next

End Sub

Private Sub Command2_Click()

Dim m

m = InputBox("请投票")

If m > 0 And m < 5 Then

j(m - 1) = Val(j(m - 1)) + 1

Else

j(4) = Val(j(4)) + 1

End If

End Sub

Private Sub Form_Load()

i(0) = "张三"

i(1) = "李四"

i(2) = "王五"

i(3) = "赵六"

i(4) = "弃权"

j(0) = 0

j(1) = 0

j(2) = 0

j(3) = 0

j(4) = 0

End Sub

需要两个函数，一个因子和计算，一个因子和输出。程序窗体放置一个文本框，设置其MultiLine为True。源程序如下：

Option Explicit

Dim I As Long, J As Long, X As Long

Private Sub Form_Load()

MeShow

For I = 1 To 10000

DoEvents

X = Yzh(I)

If X <= 10000 And I < X Then

If Yzh(X) = I Then

Text1 = Text1 & "(" & I & "," & X & ")" & Chr(13) & Chr(10)

YzhOut (I)

YzhOut (X)

End If

End If

Next

Text1 = Text1 & "计算完成"

End Sub

Private Function Yzh(N As Long) As Long

Yzh = 0

For J = 1 To N / 2

If N Mod J = 0 Then Yzh = Yzh + J

Next

End Function

Private Function YzhOut(N As Long) As Long

Dim Yzh As Long

Text1 = Text1 & N & "=1"

Yzh = 1

For J = 2 To N / 2

If N Mod J = 0 Then

Text1 = Text1 & "+" & J

Yzh = Yzh + J

End If

Next

Text1 = Text1 & "=" & Yzh & Chr(13) & Chr(10)

End Function

程序计算结果，有5组亲密数对，程序输出是：

(220,284)

220=1+2+4+5+10+11+20+22+44+55+110=284

284=1+2+4+71+142=220

(1184,1210)

1184=1+2+4+8+16+32+37+74+148+296+592=1210

1210=1+2+5+10+11+22+55+110+121+242+605=1184

(2620,2924)

2620=1+2+4+5+10+20+131+262+524+655+1310=2924

2924=1+2+4+17+34+43+68+86+172+731+1462=2620

(5020,5564)

5020=1+2+4+5+10+20+251+502+1004+1255+2510=5564

5564=1+2+4+13+26+52+107+214+428+1391+2782=5020

(6232,6368)

6232=1+2+4+8+19+38+41+76+82+152+164+328+779+1558+3116=6368

6368=1+2+4+8+16+32+199+398+796+1592+3184=6232

计算完成

Private Sub Command1_Click()

'存储文本

Open AppPath & "\ctext" For Append As #1

Print #1, Text1Text

Close #1

End Sub

Private Sub Combo1_Change()

If Combo1List(Combo1ListIndex) = "条件" Then

Text1Text = "内容"

End If

End Sub

Private Sub Combo1_LostFocus()

Combo1AddItem Combo1Text

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = vbBlack

End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = &H0&

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = vbGreen

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = vbWhite

End Sub

Private Sub Timer1_Timer()

If Time = "07:00:00" Then MsgBox "cccc"

End Sub

我这边回不了你的问题,不能回答,也不能发文件

你发你发油箱,我从邮箱或者QQ发给你

快

以上就是关于用vb编写个小程序 计算百分比 输入总数 输出三个值 a b c a=10% b=30% c=60%全部的内容，包括:用vb编写个小程序 计算百分比 输入总数 输出三个值 a b c a=10% b=30% c=60%、vb access 统计 求和、简单的vb模拟选举小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！