用VB如何写1到100之间所有能被3整除而不能被7整除的整数的和与个数的程序 vb编程，计算0至100不能被7整除的所有整数的和！
VB \u7f16\u5199\u7a0b\u5e8f \u8ba1\u7b97100\u5230200\u4e4b\u95f4\u80fd\u88ab3\u6574\u9664\u4f46\u4e0d\u80fd\u88ab7\u6574\u9664\u7684\u6240\u6709\u6574\u6570\u7684\u548c \u5e76\u628a\u7ed3\u5a5a\u679c\u5728\u6d88\u606f\u5bf9\u8bdd\u6846\u4e2d\u663e\u793a\u51fa\u6765Private Sub Form_Click()
For i = 100 To 200
If i Mod 3 = 0 And i Mod 7 0 Then
s = s + i
End If
Next
t = MsgBox("\u7ed3\u679c\u662f" & s, vbOKOnly, "\u4f60\u7684\u7b54\u6848")
End Sub
\u7a97\u4f53\u4e0a\u6709\u4e00\u4e2a\u540d\u79f0\u4e3aList\u7684\u5217\u8868\u6846,\u4e00\u4e2a\u540d\u79f0\u4e3aText1\u7684\u6587\u672c\u6846,\u4e00\u4e2a\u540d\u79f0\u4e3aLable1\u3001Caption\u5c5e\u6027\u4e3a"Sum"\u7684\u6807\u7b7e,\u4e00\u4e2a\u540d\u79f0\u4e3aCommand1\u3001\u6807\u9898\u4e3a\u201c\u8ba1\u7b97\u201d\u7684\u547d\u4ee4\u6309\u94ae\u3002\u7a0b\u5e8f\u8fd0\u884c\u540e\uff0c\u5c06\u628a1~100\u4e4b\u95f4\u80fd\u591f\u88ab7\u6574\u9664\u7684\u6570\u6dfb\u52a0\u5230\u5217\u8868\u6846\u4e2d\u3002
\u5982\u679c\u5355\u51fb\u201c\u8ba1\u7b97\u201d\u6309\u94ae\uff0c\u5219\u5bf9List\u4e2d\u7684\u6570\u8fdb\u884c\u7d2f\u52a0\u6c42\u548c\uff0c\u5e76\u5728\u6587\u672c\u6846\u4e2d\u663e\u793a\u8ba1\u7b97\u7ed3\u679c\uff0c\u4ee3\u7801\u5982\u4e0b\uff1a\uff1a\uff1a
Dim i As Integer, Sum As Integer
Private Sub Form_Load()
For i= 1 to 100
if i Mod 7 =0 then
List1.AddItem i
End if
Next
End Sub
Private Sub Command1_Click()
Sum =0
For i = 0 to List1.ListCount -1
Sum =Sum + List1.List(i)
Next
Text1.text =Sum
End Sub
\u8c03\u8bd5\u4e00\u4e0b\u8bd5\u8bd5
VB代码如下：
Dim i, j
j = 0
For i = 1 To 100
If (i Mod 3 = 0 Or i Mod 7 = 0) And i Mod 21 <> 0 Then
Print i,
j = j + 1
If j = 7 Then
Print
j = 0
End If
End If
Next i
扩展资料
vb语言的特点：
VB 的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI 系统，但是又可以开发相当复杂的程序。VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。
因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面 VB 程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。
VB 的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。
VB 的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。
dim sum'和
dim count'个数
sum=0
count=0
For i=1 to 100
If i Mod 3=0 And i Mod 7<>0 Then
count=count+1
sum=sum+i
End If
Next
Print "count=" & count
Print "sum=" & sum
dim a
for i =1 to 100
if i mod 3=0 and i mod 7<>0 then a=a+1
next i
print a
在窗体上添加三个文本框,和一个按钮.在按钮的单击事件中写:
private sub command1_click
dim sum as integer'和
dim count as integer'个数
sum=0
count=0
text3.text=""
For i=1 to 100
If i Mod 3=0 And i Mod 7<>0 Then
count=count+1
sum=sum+i
text3.text=text3.text & i'text3显示都有什么数
End If
Next
text1.text="和为:"+ sum
text2.text="个数为:"+coun
end sub
绛旓細浠ヤ笅鏄娇鐢╒B缂栫▼璇█杈撳嚭1鍒100涔嬮棿鐨勬墍鏈夋暟鐨勭▼搴忥細Dim i As Integer For i = 1 To 100 Debug.Print i Next i 璇ョ▼搴忎娇鐢‵or寰幆閬嶅巻1鍒100涔嬮棿鐨勬墍鏈夋暣鏁锛屽苟浣跨敤Debug.Print璇彞灏嗘瘡涓暣鏁拌緭鍑哄埌鈥滅珛鍗崇獥鍙ｂ濓紙Immediate Window锛変腑銆備綘涔熷彲浠ヤ娇鐢∕sgBox璇彞灏嗘瘡涓暣鏁拌緭鍑哄埌涓涓秷鎭涓紝鎴栬呭皢...
绛旓細VB浠ｇ爜濡備笅锛欴im i, jj = 0For i = 1 To 100If (i Mod 3 = 0 Or i Mod 7 = 0) And i Mod 21 <> 0 ThenPrint i,j = j + 1If j = 7 ThenPrintj = 0End IfEnd IfNext i
绛旓細1銆侀鍏堟柊寤轰竴涓 杈撳嚭1鍒100鐨勫伓鏁伴」鐩2銆佺劧鍚庡厛杈撳叆for璇彞锛屾寜涓ゆTAB灏变細鍑烘潵for (int i = 0; i < max; i++) { }銆3銆佹帴鐫璁﹊绛変簬1锛屽皬浜100銆4銆佺劧鍚庣敤鍒癷f璇彞锛岃i瀵2鍙栦綑锛岃緭鍏銆5銆佹渶鍚庡紑濮嬭繍琛岋紝杩欐牱灏卞畬鎴愪簡璁＄畻鍋舵暟鐨勭紪绋嬶紝杈撳嚭浜1~100涔嬮棿鎵鏈鐨勫伓鏁般
绛旓細'杩欓噷鏄垽鏂煇鏁版槸鍚︿负绱犳暟鐨勫嚱鏁癨x0d\x0aPrivate Function IsPrime(n As Integer) As Boolean\x0d\x0aDim i As Integer\x0d\x0aIsPrime = True\x0d\x0aFor i = 2 To CInt(Sqr(n))\x0d\x0aIf (n Mod i = 0) Then\x0d\x0a IsPrime = False\x0d\x0aEnd If\x0d...
绛旓細鏌ユ壘1鍒1000鐨勭礌鏁版樉绀哄埌鏂囨湰妗嗭紝鐬棿瀹屾垚 '渚嬪瓙闇鎺т欢锛欳ommand1銆乀ext1 Private Sub Command1_Click()Dim a() As Long, nStr As String 'Call FindSuShu(18, 100, a, 5) '鏌ユ壘澶т簬17鐨5涓礌鏁板瓨鍏ユ暟缁刟 Call FindSuShu(1, 1000, a) '鏌ユ壘1鍒1000涔嬮棿鐨鎵鏈涓礌鏁 '鏄剧ず鍒 Text1 For ...
绛旓細Private Sub Command1_Click() Cls Dim a(1 To 100) As Integer, min As Integer, n As Integer Randomize min = 100 Print "浜х敓鐨勯殢鏈烘暟涓猴細" For i = 1 To 100 a(i) = Int(Rnd * 100) + 1 Print Tab(5 * ((i - 1) Mod 10)); a(i); If ...
绛旓細鍚姩VB 鏂板缓涓涓狤XE宸ョ▼ 鍙屽嚮绐椾綋FORM1 鍦ㄦ墦寮鐨勪唬鐮佺獥鍙ｈ緭鍏ヤ互涓嬩唬鐮侊細Private Sub Form_Load()Dim i, s As Integer s = 0 For i = 2 To 100 Step 2 s = s + i Next i Form1.Caption = Str(s)End Sub 涔嬪悗鎸変笅F5閿嵆鍙湪绋嬪簭榛樿绐椾綋鐨勬爣棰樻爮涓湅鍒1鍒100闂存墍鏈鍋舵暟鍜 ...
绛旓細Private Sub Command1_Click()Dim i, j, n As IntegerFor i = 1 To 100 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next If j = i Then Print i; n = n + 1 If n Mod 8 = 0 Then Print End IfNextEnd Sub ...
绛旓細1浣嶆暟锛5锛屽畠鐨勫钩鏂圭瓑浜25锛岃25鐨勪釜浣嶅氨鏄5锛屾墍浠5鏄悓鏋勬暟锛1浣嶆暟锛6锛屼篃鏄悓鏋勬暟銆傚張濡2浣嶆暟25锛屽畠鐨勫钩鏂规槸625锛屾墍浠25涔熸槸涔熸槸鍚屾瀯鏁般傛牴鎹互涓婅鍒欙紝浠ｇ爜濡備笅锛欴im i As Integer Dim L As Integer For i = 1 To 100 L = Len(CStr(i))If CStr(i) = Right(CStr(i * i), L) ...
绛旓細鍙互浣跨敤Rnd*98锛屼骇鐢熺殑鏄痆0,98)鐨勯殢鏈烘暟锛岃宨nt(Rnd*98)浜х敓鐨勬槸[0,97]涔嬮棿鐨勯殢鏈烘暣鏁帮紝閭ｄ箞int(Rnd*98)+2浜х敓鐨勫氨鏄痆2,99]涔嬮棿鐨勯殢鏈烘暣鏁颁簡锛岀鍚堢洰鏍1鍒100涔嬮棿鐨勯殢鏈烘暟鐩殑銆傚嚱鏁颁唬鐮佸涓嬶細Public Function sj() As Integer Randomize sj = Int(Rnd * 98) + 2 End Function ...
