正文
vb.net程序自启动 vbs启动程序代码
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net实现开机自启
程序源代码如下:
main()
{
int i,j,k;
printf("\n");
for(i=1;i5;i++)／*以下为三重循环*/
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);
}
相关问答
Q1: vb.net做安装包，安装后自动运行程序
1 新建安装部署项目
打开VS2005，点击新建项目，选择：其他项目类型-安装与部署-安装向导(安装项目)，然后点击确定。
2 安装向导
关闭后打开安装向导，点击下一步，或者直接点击完成。
3 开始制作
安装向导完成后即可进入项目文件夹：
双击"应用程序文件夹"在右边的空白处右击，选择添加-文件，将你的做的应用程序的可执行文件和相应的类库和组件添加进来。然后右击你的文件，创建快捷方式，然后把快捷方式分别复制或剪切到左边的"用户的'程序'菜单"和"用户桌面"中。这样安装程序安装完成后会在 "开始-所有程序"和"桌面"上生成程序的快捷方式。也可以直接在"用户的'程序'菜单"和"用户桌面"相应目录下新建快捷方式，然后定位到你的文件。
然后右击左边的"应用程序文件夹"打开属性对话框：将属性中的"DefaultLocation"的路径中的"[Manufacturer]"去掉，不然的话做好的安装程序默认安装目录会是"C:\Program Files\你的用户名\安装解决方案名称"；
然后打开解决方案管理器，右击你的解决方案名称，选择属性：打开的属性页中，选择"系统必备"， 在打开的系统必备页中，在"指定系统必备安装组件的位置"中选中如下选择项：从与我的应用程序相同的位置下载系统必备组件。选上以后，在生成的安装文件包中包含.NetFramework组件 。好了，这样就完成99%了，然后点击"生成-生成解决方案"，生成成功!
我以前参考过的，希望对你有帮助。
安装完成后自动启动程序
1.新建一个空的项目InstallCompenent,步骤为:解决方案-右键添加-新建项目-选择"空项目"-输入名称"InstallCompenent"-确定,完成项目的添加.
2.在InstallCompenent项目中右键-添加-新建项-选择安装程序类-输入名称"Installer",完成installer类的添加.
修改代码为:
/// summary
/// 功能是做安装项目主项目输出
/// 实现安装过程中的一些操作
/// 如:安装完成后启动项目
/// /summary
[RunInstaller(true)]
public partial class Installer : Installer
{
/// summary
/// 应用程序入口
/// /summary
public static void Main()
{
}
/// summary
/// 构造函数
/// /summary
public ECSuitsInstaller()
{
InitializeComponent();
}
/// summary
/// 重写安装完成后函数
/// 实现安装完成后自动启动已安装的程序
/// /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
/// 重写安装过程方法
/// /summary
/// param name="stateSaver"/param
public override void Install(IDictionary stateSaver)
{
base.Install(stateSaver);
}
/// summary
/// 重写安装之前方法
/// /summary
/// param name="savedState"/param
protected override void OnBeforeInstall(IDictionary savedState)
{
base.OnBeforeInstall(savedState);
}
/// summary
/// 重写卸载方法
/// /summary
/// param name="savedState"/param
public override void Uninstall(IDictionary savedState)
{
base.Uninstall(savedState);
}
/// summary
/// 重写回滚方法
/// /summary
/// param name="savedState"/param
public override void Rollback(IDictionary savedState)
{
base.Rollback(savedState);
}
}
3.在安装项目中右键-添加项目输出-选择"项目"-InstallCompenent.
完成主输出项目的添加.
4.打开自定义操作编辑器,在安装-右键-添加自定义操作-选择"应用程序文件夹"-选择"主输出来自InstallCompenent",完成添加.
Q2: 怎样实现vb.net的开机自动运行
将你自己的程序添加到注册表的开机启动项中 具体路径如图所示
Q3: VB.NET编写软件随开机启动代码
要设置软件随开机启动，可以这样写通过写入注册表，来达到你要的效果：
在适当位置，插入如下代码：
Dim regname As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\\microsoft\\windows\\currentversion\\run", True)
regname.SetValue("自己软件的名称", """" Application.StartupPath "\ 自己软件的名称.exe""")
你把：“自己软件的名称” 替换成自己的应用程序的名称！！
Q4: 求高手给一个VB.NET的程序开机启动和关闭开机启动的示例代码
Private Sub 开机自动启动_Click(sender As Object, e As EventArgs) Handles 开机自动启动.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 关闭开机自启_Click(sender As Object, e As EventArgs) Handles 关闭开机自启.Click
Dim a As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
a.DeleteValue("查看.exe")
End Sub
vb.net程序自启动的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs启动程序代码、vb.net程序自启动的信息别忘了在本站进行查找喔。
