VB編程程序代碼

《VB編程程序代碼》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。

1、實用標準文檔?VB編程程序代碼?1、求100以內(nèi)的素Private?Sub?Form_Click()Dim?i%,?j%For?i?=?2?To?100For?j?=?2?To?i?-?1????If?i?Mod?j?=?0?Then?Exit?For??Next?j????If?j?=?i?Then?Print?iNext?iEnd?Sub2、從鍵盤輸入任意長度的字符串，要求將字符順序倒置例如，將輸入的“ABCDEFG”變換成“GFEDCBA”。Private?Sub?Command1_Click()Dim?a$,?I%,?c$,?d$,?n%a?=?InputBox$("

2、輸入字符串")n?=?Len(a)For?I?=?1?To?Int(n??2)???c?=?Mid(a,?I,?1)???Mid(a,?I,?1)?=?Mid(a,?n?-?I?+?1,?1)???Mid(a,?n?-?I?+?1,?1)?=?c???Next?I???Print?a???End?Sub3、計算0~200之間所有能被11或5整除的數(shù)之和Private?Sub?Form_Click()Dim?n%,?i%文案大全實用標準文檔n?=?0??For?i?=?1?To?200????If?i?Mod?11?=?0?Or?i?Mod?5?=?0?Then????n?=

3、?n?+?i????End?If??Next?i?Print?nEnd?Sub4、輸入一年份，判斷它是否為閏年，并顯示有關(guān)信息。（判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除）Private?Sub?Command1_Click()Dim?y%y?=?InputBox("請輸入年數(shù)")If?y?Mod?4?=?0?And?y?Mod?100?<>?0?Or?y?Mod?400?=?0?Then??MsgBox?(y?&?"年是閏年")Else??MsgBox?(y?&?"年是平年")End?IfEnd?Sub5、已知x,y,z?3個變量中存放了3個不

4、同的數(shù)，比較它們的大小并進行調(diào)整，使得x?y?Then?t?=?x:?x?=?y:?y?=?tIf?x?>?z?Then?t?=?x:?x?=?z:?z?=?tIf?y?>?z?Then?t?=?y:?y?=?z:?z?=?t文案大全實用標準文檔Print?"排序后";?x;?"??"

5、;?y;?"???";?zEnd?Sub6、求s=a+aa+aaa+...aaaaa（n個a），其中a和n的值隨機產(chǎn)生，a的范圍是[1,9]的整數(shù)，n的范圍是[5,10]。如a=3,n=6,則s=3+33+333+3333+33333+333333。編程確定n和a的值，并計算s。Private?Sub?Form_Click()???Dim?s!,?t!,?i!,?a%,?n%???a?=?Int(Rnd?*?9?+?1)???n?=?Int(Rnd?*?6?+?5)???t?=?0:?s?=?0???Print?"a=";?a,?"n=";?n???For?i?=?1?To?

6、n???????t?=?t?*?10?+?a???????s?=?s?+?t???????Print?t;???Next?i???Print???Print?"s=";?s?End?Sub7、計算100~300之間所有能被3和7整除的數(shù)之和。Private?Sub?Form_Click()For?i?=?100?To?300If?i?Mod?21?=?0?Thens?=?s?+?iPrint?i;End?IfNext?iPrintPrint?"s=";?sEnd?Sub文案大全實用標準文檔8、編程求200--400范圍內(nèi)5的倍數(shù)或7的倍數(shù)之和。(一個數(shù)如果同時是7和5的倍數(shù)，

7、則只能加一次。)Private?Sub?Command1_Click()???Dim?s1%,s2%,s3%,i%???S1=0S2=0For?i=200?to?400If?i?mod?5?=0?or?i?mod?7=0?then?s1=s1+iEnd?ifNext?i?For?i=200?to?400If?i?mod?5?=0?or?i?mod?7=0?then?s2=s2+iEnd?ifNext?iS3=s1-s2Print?s3End?sub9、找出被3、5、7除，余數(shù)為1的最小的5個正整數(shù)。Pr