程序源代碼如下:
成都創(chuàng)新互聯(lián)一直通過(guò)網(wǎng)站建設(shè)和網(wǎng)站營(yíng)銷(xiāo)幫助企業(yè)獲得更多客戶資源。 以"深度挖掘，量身打造，注重實(shí)效"的一站式服務(wù)，以網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、移動(dòng)互聯(lián)產(chǎn)品、成都營(yíng)銷(xiāo)網(wǎng)站建設(shè)服務(wù)為核心業(yè)務(wù)。10余年網(wǎng)站制作的經(jīng)驗(yàn)，使用新網(wǎng)站建設(shè)技術(shù)，全新開(kāi)發(fā)出的標(biāo)準(zhǔn)網(wǎng)站，不但價(jià)格便宜而且實(shí)用、靈活，特別適合中小公司網(wǎng)站制作。網(wǎng)站管理系統(tǒng)簡(jiǎn)單易用，維護(hù)方便，您可以完全操作網(wǎng)站資料，是中小公司快速網(wǎng)站建設(shè)的選擇。
main()
{
int i,j,k;
printf("\n");
for(i=1;i5;i++)／*以下為三重循環(huán)*/
for(j=1;j5;j++)
for (k=1;k5;k++)
{
if (i!=ki!=jj!=k) /*確保i、j、k三位互不相同*/
printf("%d,%d,%d\n",i,j,k);
}
}
main()
{
long int i;
int bonus1,bonus2,bonus4,bonus6,bonus10,bonus;
scanf("%ld",i);
bonus1=100000*0.1;bonus2=bonus1+100000*0.75;
bonus4=bonus2+200000*0.5;
bonus6=bonus4+200000*0.3;
bonus10=bonus6+400000*0.15;
if(i=100000)
bonus=i*0.1;
else if(i=200000)
bonus=bonus1+(i-100000)*0.075;
else if(i=400000)
bonus=bonus2+(i-200000)*0.05;
else if(i=600000)
bonus=bonus4+(i-400000)*0.03;
else if(i=1000000)
bonus=bonus6+(i-600000)*0.015;
else
bonus=bonus10+(i-1000000)*0.01;
printf("bonus=%d",bonus);
}
修改注冊(cè)表Run鍵
Dim Reg As Microsoft.Win32.RegistryKey
'修改注冊(cè)表，用于啟動(dòng)時(shí)加載
Reg = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
Reg.SetValue("testSoft", Application.ExecutablePath)
Private Sub 開(kāi)機(jī)自動(dòng)啟動(dòng)_Click(sender As Object, e As EventArgs) Handles 開(kāi)機(jī)自動(dòng)啟動(dòng).Click
Dim a As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
a.SetValue("查看.exe", Application.StartupPath "\查看.exe")
End Sub
Private Sub 關(guān)閉開(kāi)機(jī)自啟_Click(sender As Object, e As EventArgs) Handles 關(guān)閉開(kāi)機(jī)自啟.Click
Dim a As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
a.DeleteValue("查看.exe")
End Sub
將你自己的程序添加到注冊(cè)表的開(kāi)機(jī)啟動(dòng)項(xiàng)中 具體路徑如圖所示
1 新建安裝部署項(xiàng)目
打開(kāi)VS2005，點(diǎn)擊新建項(xiàng)目，選擇：其他項(xiàng)目類(lèi)型-安裝與部署-安裝向?qū)?安裝項(xiàng)目)，然后點(diǎn)擊確定。
2 安裝向?qū)?/p>
關(guān)閉后打開(kāi)安裝向?qū)?，點(diǎn)擊下一步，或者直接點(diǎn)擊完成。
3 開(kāi)始制作
安裝向?qū)瓿珊蠹纯蛇M(jìn)入項(xiàng)目文件夾：
雙擊"應(yīng)用程序文件夾"在右邊的空白處右擊，選擇添加-文件，將你的做的應(yīng)用程序的可執(zhí)行文件和相應(yīng)的類(lèi)庫(kù)和組件添加進(jìn)來(lái)。然后右擊你的文件，創(chuàng)建快捷方式，然后把快捷方式分別復(fù)制或剪切到左邊的"用戶的'程序'菜單"和"用戶桌面"中。這樣安裝程序安裝完成后會(huì)在 "開(kāi)始-所有程序"和"桌面"上生成程序的快捷方式。也可以直接在"用戶的'程序'菜單"和"用戶桌面"相應(yīng)目錄下新建快捷方式，然后定位到你的文件。
然后右擊左邊的"應(yīng)用程序文件夾"打開(kāi)屬性對(duì)話框：將屬性中的"DefaultLocation"的路徑中的"[Manufacturer]"去掉，不然的話做好的安裝程序默認(rèn)安裝目錄會(huì)是"C:\Program Files\你的用戶名\安裝解決方案名稱"；
然后打開(kāi)解決方案管理器，右擊你的解決方案名稱，選擇屬性：打開(kāi)的屬性頁(yè)中，選擇"系統(tǒng)必備"， 在打開(kāi)的系統(tǒng)必備頁(yè)中，在"指定系統(tǒng)必備安裝組件的位置"中選中如下選擇項(xiàng)：從與我的應(yīng)用程序相同的位置下載系統(tǒng)必備組件。選上以后，在生成的安裝文件包中包含.NetFramework組件 。好了，這樣就完成99%了，然后點(diǎn)擊"生成-生成解決方案"，生成成功!
我以前參考過(guò)的，希望對(duì)你有幫助。
安裝完成后自動(dòng)啟動(dòng)程序
1.新建一個(gè)空的項(xiàng)目InstallCompenent,步驟為:解決方案-右鍵添加-新建項(xiàng)目-選擇"空項(xiàng)目"-輸入名稱"InstallCompenent"-確定,完成項(xiàng)目的添加.
2.在InstallCompenent項(xiàng)目中右鍵-添加-新建項(xiàng)-選擇安裝程序類(lèi)-輸入名稱"Installer",完成installer類(lèi)的添加.
修改代碼為:
/// summary
/// 功能是做安裝項(xiàng)目主項(xiàng)目輸出
/// 實(shí)現(xiàn)安裝過(guò)程中的一些操作
/// 如:安裝完成后啟動(dòng)項(xiàng)目
/// /summary
[RunInstaller(true)]
public partial class Installer : Installer
{
/// summary
/// 應(yīng)用程序入口
/// /summary
public static void Main()
{
}
/// summary
/// 構(gòu)造函數(shù)
/// /summary
public ECSuitsInstaller()
{
InitializeComponent();
}
/// summary
/// 重寫(xiě)安裝完成后函數(shù)
/// 實(shí)現(xiàn)安裝完成后自動(dòng)啟動(dòng)已安裝的程序
/// /summary
/// param name="savedState"/param
protected override void OnAfterInstall(IDictionary savedState)
{
base.OnAfterInstall(savedState);
Assembly asm = Assembly.GetExecutingAssembly();
string path = asm.Location.Remove(asm.Location.LastIndexOf("\\")) + "\\";
System.Diagnostics.Process.Start(path + "\\ECSuits.exe");
}
/// summary
/// 重寫(xiě)安裝過(guò)程方法
/// /summary
/// param name="stateSaver"/param
public override void Install(IDictionary stateSaver)
{
base.Install(stateSaver);
}
/// summary
/// 重寫(xiě)安裝之前方法
/// /summary
/// param name="savedState"/param
protected override void OnBeforeInstall(IDictionary savedState)
{
base.OnBeforeInstall(savedState);
}
/// summary
/// 重寫(xiě)卸載方法
/// /summary
/// param name="savedState"/param
public override void Uninstall(IDictionary savedState)
{
base.Uninstall(savedState);
}
/// summary
/// 重寫(xiě)回滾方法
/// /summary
/// param name="savedState"/param
public override void Rollback(IDictionary savedState)
{
base.Rollback(savedState);
}
}
3.在安裝項(xiàng)目中右鍵-添加項(xiàng)目輸出-選擇"項(xiàng)目"-InstallCompenent.
完成主輸出項(xiàng)目的添加.
4.打開(kāi)自定義操作編輯器,在安裝-右鍵-添加自定義操作-選擇"應(yīng)用程序文件夾"-選擇"主輸出來(lái)自InstallCompenent",完成添加.
vb.net是一個(gè)編程軟件，啟動(dòng)后不需要登陸，而是讓你選擇是新建還是打開(kāi)，新建的是winfowm、webform還是其它類(lèi)型的源代碼，所以你說(shuō)的登錄一次桌面看不太懂什么意思。
重慶分公司
重慶分公司
