谁能帮我编一个小程序(VB,C都可以)
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都可以)视频
相关评论:
仰瞿矩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...
仰瞿矩整人的小程序,会弹出对话框提示:快说我是猪,不输入的话会在1分钟之内自动关机,输入的话,当让会被笑话啦,呵呵 将以下文字粘贴到记事本上后将后缀名改为:vbe,然后双击即可!(里面的那些词语可以自行修改),经测试肯定可以使用。on error resume next dim WSHshellA set WSHshellA = wscript....
仰瞿矩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 ...
仰瞿矩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
仰瞿矩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了 工程文件给你发过去了 后发的是修改过...
仰瞿矩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 ("说我是猪,...
仰瞿矩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 = ...
仰瞿矩说下思路,做起来还要因人而异,首先这个是可以用函数来处理的,也并不会慢,只是不能让函数自动处理,要做一个函数的例子,然后在表格填写好后用自动填充功能完成后面行的函数处理,这样就不会慢了,哪怕你的数据来源有几千上万行也没关系。不过你的数据来源中有两列要判断,如果用VBA代码判断当然很...
仰瞿矩用VB.net制作一个小程序(1)---制作“Hello.NET”程序 作者:高山 用下面很简单的方法,就可以制作一个“Hello.NET”小程序,同时可以掌握一些控件的用法。Public Class Form1 Inherits System.Windows.Forms.Form Region " Windows 窗体设计器生成的代码 "Public Sub New()MyBase.New()'该调用是 ...
仰瞿矩改成这样的:Private Sub Command1_Click()Adodc1.RecordSource = "select * from 温度记录 where 编号=(select max(编号) from 温度记录)"Adodc1.Refresh Text1.Text = Adodc1.Recordset.Fields("1号节点温度")End Sub