谁能帮我编一个小程序(VB,C都可以)

来自:有友    更新日期:早些时候
谁能帮我用VB编个小程序啊?~

Private Sub Command1_Click()
Form1.AutoRedraw = True
Cls

Dim numCh, numRa As Integer '定义 鸡的数目与兔的数目
Dim numFeet, numTotal As Integer '定义脚的总数与 总的只数
Dim bool1, ok As Boolean

numTotal = val(InputBox("请输入总只数:"))
numFeet = val(InputBox("请输入脚的总数:"))
'判断输入是否合理,
Do While (numFeet Mod 2 0) Or (2 * numTotal > numFeet)

MsgBox ("脚的总数 或者 总的只数 输入不正确,请重新输入")
numTotal = val(InputBox("请输入总只数:"))
numFeet = val(InputBox("请输入脚的总数:"))
Loop
'进行计算
bool1 = False
ok = False
For numRa = 0 To numTotal
numCh = numTotal - numRa
bool1 = (numRa * 4 + numCh * 2 = numFeet)
If (bool1) Then
ok = True

Print "The number of Rabbits is", numRa
Print
Print "The number of Chickens is", numCh
Print
Exit For
End If
Next numRa
'判断是否完成
If (ok) Then
Print "求解完毕!"
Print
Else
Print "无法求解!"
End If



End Sub

小程序开发还是很容易的,
看你的具体需求,不过都是付费的,

#include "conio.h"

int main()

{

int max = 20;

char s[20] = { "\0" };

int a;

int i = 0;

bool flag = true;

while (flag)

{

a = _getche();

if (a == 13 || i >= max)

{

flag = false;

}

else

{

s[i] = (char)a;

i++;

}

}

printf("
正序:");


for (int x = 65; x <= 97; x++)

{

for (int j = 0; j < i; j++)

{

if (s[j] == x)

{

printf("%c ", s[j]);

}

}

for (int j = 0; j < i;j++)

{

if (s[j] == x+32)

{

printf("%c ", s[j]);

}

}

}

printf("
倒序:");

for (int x = 97; x >= 65; x--)

{

for (int j = 0; j < i; j++)

{

if (s[j] == x)

{

printf("%c ", s[j]);

}

}

for (int j = 0; j < i;j++)

{

if (s[j] == x+32)

{

printf("%c ", s[j]);

}

}

}

system("pause");

return 1;

}



#include <stdio.h>
#include <string.h>
void main()
{
char str[256]={0};
char str2[256]={0};
char ch;
int i,j,n=0;
while(scanf("%c",&str[n]))
{
if(str[n]!='\n')
{
str2[n]=str[n];
n++;
}
else
{
break;
}
}
for(i=0;i<n;i++)
for(j=0;j<n-1-i;j++)
{
if(str[j]>str[j+1])
{
ch=str[j];
str[j]=str[j+1];
str[j+1]=ch;
}
if(str2[j]<str2[j+1])
{
ch=str2[j];
str2[j]=str2[j+1];
str2[j+1]=ch;
}
}
printf("正序:\n");
for(i=0;i<n;i++)
printf("%c",str[i]);
printf("\n");
printf("倒序:\n");
for(i=0;i<n;i++)
printf("%c",str2[i]);
printf("\n");
}

如何执行以后输入框不退出可以继续下一次循环?
//这下面的程序可以循环做5次
#include
#include
#define N 5
void main()
{
char str[256]={0};
char str2[256]={0};
char ch;
int i,j,k,n;
for(k=0;kstr[j+1])
{
ch=str[j];
str[j]=str[j+1];
str[j+1]=ch;
}
if(str2[j]<str2[j+1])
{
ch=str2[j];
str2[j]=str2[j+1];
str2[j+1]=ch;
}
}
printf("正序:\n");
for(i=0;i<n;i++)
printf("%c",str[i]);
printf("\n");
printf("倒序:\n");
for(i=0;i<n;i++)
printf("%c",str2[i]);
printf("\n");
}
}

让他循环10次可以不,多谢
你看到:
#define N 5

把它改成:
#define N 10

就可以了。


谁能帮我编一个小程序(VB,C都可以)视频

相关评论:
  • 19862005554你好,我想做一个VB小程序
    仰瞿矩Label1.Visible = True Text1.Visible = True End Sub Private Sub 结束_Click()End End Sub Private Sub 确定_Click()Label2.Caption = Text1.Text & "同学,你好,祝你学好vb程序设计"Me.结束.Visible = True Me.继续.Visible = True Label2.Visible = True Label1.Visible = False Text1...

  • 19862005554vb有趣小程序
    仰瞿矩整人的小程序,会弹出对话框提示:快说我是猪,不输入的话会在1分钟之内自动关机,输入的话,当让会被笑话啦,呵呵 将以下文字粘贴到记事本上后将后缀名改为:vbe,然后双击即可!(里面的那些词语可以自行修改),经测试肯定可以使用。on error resume next dim WSHshellA set WSHshellA = wscript....

  • 19862005554vb小程序代码
    仰瞿矩Private Sub Command1_Click()Open "d:\\mi.dat" For Output As #1 Print #1, Text2.Text Close #1 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)a = Chr(KeyAscii)Text2.Text = Text2.Text & Chr(KeyAscii + 5)End Sub ...

  • 19862005554用VB写一个小程序.
    仰瞿矩vb6代码如下,添加模块,工程--属性--启动对象选择sub main Sub main()Open "c:\\temp\\25.txt" For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)End Sub

  • 19862005554vb做一个简单的小程序
    仰瞿矩Option Explicit Private Sub Form_Load()ShockwaveFlash1.Movie = "D:\\wwwroot\\KuFang\\images\\1.swf"ShockwaveFlash1.Menu = False ShockwaveFlash1.Playing = True End Sub Private Sub Timer1_Timer()End End Sub 建一个无边框窗体,复制上面代码进去就OK了 工程文件给你发过去了 后发的是修改过...

  • 19862005554求恶搞小程序,编程代码,最好是VB的
    仰瞿矩on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe \/c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true dim a do while(a <> "我是猪")a = inputbox ("说我是猪,...

  • 19862005554小弟需要用vb编写一个打印小程序
    仰瞿矩Private Sub Command1_Click()t = "我是中国人。他是日本人。你是哪里人。"tt = Split(t, "。", -1)Label1.Caption = tt(0) & "。"Label2.Caption = tt(1) & "。"Label3.Caption = tt(2) & "。"End Sub '方法二:LABEL1复制粘贴为组控件 Private Sub Command1_Click()t = ...

  • 19862005554希望VB高手能用VB帮我做个报价小程序
    仰瞿矩说下思路,做起来还要因人而异,首先这个是可以用函数来处理的,也并不会慢,只是不能让函数自动处理,要做一个函数的例子,然后在表格填写好后用自动填充功能完成后面行的函数处理,这样就不会慢了,哪怕你的数据来源有几千上万行也没关系。不过你的数据来源中有两列要判断,如果用VBA代码判断当然很...

  • 19862005554谁知道怎样用VB制作小程序(具体步骤最好有图)
    仰瞿矩用VB.net制作一个小程序(1)---制作“Hello.NET”程序 作者:高山 用下面很简单的方法,就可以制作一个“Hello.NET”小程序,同时可以掌握一些控件的用法。Public Class Form1 Inherits System.Windows.Forms.Form Region " Windows 窗体设计器生成的代码 "Public Sub New()MyBase.New()'该调用是 ...

  • 19862005554求个VB小程序
    仰瞿矩改成这样的:Private Sub Command1_Click()Adodc1.RecordSource = "select * from 温度记录 where 编号=(select max(编号) from 温度记录)"Adodc1.Refresh Text1.Text = Adodc1.Recordset.Fields("1号节点温度")End Sub

  • 相关主题精彩

    版权声明:本网站为非赢利性站点,内容来自于网络投稿和网络,若有相关事宜,请联系管理员

    Copyright © 喜物网