投稿
  1. 首页
  2. CMS教程

VB 编写程序，模拟计算器的加减乘除，功能，要求键盘输入两个 *** 作数和 *** 作符

雪莱特股票 • 2023-5-5 • CMS教程 • 阅读 8

VB 编写程序，模拟计算器的加减乘除，功能，要求键盘输入两个 *** 作数和 *** 作符,第1张

' ------------------------------------------------------------------------

'               版权所有 (C) 1994 Microsoft Corporation

'

' 您可以免费以任何方式使用、修改、复制并分发您认为有用的

' 示例应用程序文件 (或任何修改过的版本)。Microsoft 对任何

' 示例应用程序文件不做任何保证，不负任何责任和义务。

' ------------------------------------------------------------------------

Option Explicit

Dim Op1, Op2                ' 预先输入 *** 作数。

Dim DecimalFlag As Integer  ' 小数点存在吗？

Dim NumOps As Integer       '  *** 作数个数。

Dim LastInput               ' 指示上一次按键事件的类型。

Dim OpFlag                  ' 指示未完成的 *** 作。

Dim TempReadout

' C (取消) 按钮的 Click 事件过程

' 重新设置显示并初始化变量。

Private Sub Cancel_Click()

    Readout = Format(0, "0")

    Op1 = 0

    Op2 = 0

    Form_Load

End Sub

' CE (取消输入) 按钮的 Click 事件过程。

Private Sub CancelEntry_Click()

    Readout = Format(0, "0")

    DecimalFlag = False

    LastInput = "CE"

End Sub

' 小数点 () 按钮的 Click 事件过程

' 如果上一次按键为运算符，初始化 readout 为 "0"；

' 否则显示时追加一个小数点。

Private Sub Decimal_Click()

    If LastInput = "NEG" Then

        Readout = Format(0, "-0")

    ElseIf LastInput <> "NUMS" Then

        Readout = Format(0, "0")

    End If

    DecimalFlag = True

    LastInput = "NUMS"

End Sub

' 窗体的初始化过程

' 设置所有变量为其初始值。

Private Sub Form_Load()

    DecimalFlag = False

    NumOps = 0

    LastInput = "NONE"

    OpFlag = " "

    Readout = Format(0, "0")

    'DecimalCaption = Format(0, "")

End Sub

' 数字键 (0-9) 的 Click 事件过程

' 向显示中的数追加新数。

Private Sub Number_Click(Index As Integer)

    If LastInput <> "NUMS" Then

        Readout = Format(0, "")

        DecimalFlag = False

    End If

    If DecimalFlag Then

        Readout = Readout + Number(Index)Caption

    Else

        Readout = Left(Readout, InStr(Readout, Format(0, "")) - 1) + Number(Index)Caption + Format(0, "")

    End If

    If LastInput = "NEG" Then Readout = "-" & Readout

    LastInput = "NUMS"

End Sub

' 运算符 (+, -, x, /, =) 的 Click 事件过程

' 如果接下来的按键是数字键，增加 NumOps。

' 如果有一个 *** 作数，则设置 Op1。

' 如果有两个 *** 作数，则将 Op1 设置为 Op1 与

' 当前输入字符串的运算结果，并显示结果。

Private Sub Operator_Click(Index As Integer)

    TempReadout = Readout

    If LastInput = "NUMS" Then

        NumOps = NumOps + 1

    End If

    Select Case NumOps

        Case 0

        If Operator(Index)Caption = "-" And LastInput <> "NEG" Then

            Readout = "-" & Readout

            LastInput = "NEG"

        End If

        Case 1

        Op1 = Readout

        If Operator(Index)Caption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then

            Readout = "-"

            LastInput = "NEG"

        End If

        Case 2

        Op2 = TempReadout

        Select Case OpFlag

            Case "+"

                Op1 = CDbl(Op1) + CDbl(Op2)

            Case "-"

                Op1 = CDbl(Op1) - CDbl(Op2)

            Case "X"

                Op1 = CDbl(Op1)  CDbl(Op2)

            Case "/"

                If Op2 = 0 Then

                   MsgBox "除数不能为零", 48, "计算器"

                Else

                   Op1 = CDbl(Op1) / CDbl(Op2)

                End If

            Case "="

                Op1 = CDbl(Op2)

            Case "%"

                Op1 = CDbl(Op1)  CDbl(Op2)

            End Select

        Readout = Op1

        NumOps = 1

    End Select

    If LastInput <> "NEG" Then

        LastInput = "OPS"

        OpFlag = Operator(Index)Caption

    End If

End Sub

' 百分比键 (%) 的 Click 事件过程

' 计算并显示第一个 *** 作数的百分数。

Private Sub Percent_Click()

    Readout = Readout / 100

    LastInput = "Ops"

    OpFlag = "%"

    NumOps = NumOps + 1

    DecimalFlag = True

End Sub

完全版的前后台代码

'请把下面的保存为 form1frm

VERSION 500

Begin VBForm Calculator

BorderStyle = 1 'Fixed Single

Caption = "计算器"

ClientHeight = 2970

ClientLeft = 2580

ClientTop = 1485

ClientWidth = 3270

ClipControls = 0 'False

BeginProperty Font

Name = "System"

Size = 975

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Icon = "CALCfrx":0000

LinkMode = 1 'Source

LinkTopic = "Form1"

MaxButton = 0 'False

PaletteMode = 1 'UseZOrder

ScaleHeight = 2970

ScaleWidth = 3270

WhatsThisHelp = -1 'True

Begin VBCommandButton Number

Caption = "7"

Height = 480

Index = 7

Left = 120

TabIndex = 7

Top = 600

Width = 480

End

Begin VBCommandButton Number

Caption = "8"

Height = 480

Index = 8

Left = 720

TabIndex = 8

Top = 600

Width = 480

End

Begin VBCommandButton Number

Caption = "9"

Height = 480

Index = 9

Left = 1320

TabIndex = 9

Top = 600

Width = 480

End

Begin VBCommandButton Cancel

Caption = "C"

Height = 480

Left = 2040

TabIndex = 10

Top = 600

Width = 480

End

Begin VBCommandButton CancelEntry

Caption = "CE"

Height = 480

Left = 2640

TabIndex = 11

Top = 600

Width = 480

End

Begin VBCommandButton Number

Caption = "4"

Height = 480

Index = 4

Left = 120

TabIndex = 4

Top = 1200

Width = 480

End

Begin VBCommandButton Number

Caption = "5"

Height = 480

Index = 5

Left = 720

TabIndex = 5

Top = 1200

Width = 480

End

Begin VBCommandButton Number

Caption = "6"

Height = 480

Index = 6

Left = 1320

TabIndex = 6

Top = 1200

Width = 480

End

Begin VBCommandButton Operator

Caption = "+"

Height = 480

Index = 1

Left = 2040

TabIndex = 12

Top = 1200

Width = 480

End

Begin VBCommandButton Operator

Caption = "-"

Height = 480

Index = 3

Left = 2640

TabIndex = 13

Top = 1200

Width = 480

End

Begin VBCommandButton Number

Caption = "1"

Height = 480

Index = 1

Left = 120

TabIndex = 1

Top = 1800

Width = 480

End

Begin VBCommandButton Number

Caption = "2"

Height = 480

Index = 2

Left = 720

TabIndex = 2

Top = 1800

Width = 480

End

Begin VBCommandButton Number

Caption = "3"

Height = 480

Index = 3

Left = 1320

TabIndex = 3

Top = 1800

Width = 480

End

Begin VBCommandButton Operator

Caption = "X"

Height = 480

Index = 2

Left = 2040

TabIndex = 14

Top = 1800

Width = 480

End

Begin VBCommandButton Operator

Caption = "/"

Height = 480

Index = 0

Left = 2640

TabIndex = 15

Top = 1800

Width = 480

End

Begin VBCommandButton Number

Caption = "0"

Height = 480

Index = 0

Left = 120

TabIndex = 0

Top = 2400

Width = 1080

End

Begin VBCommandButton Decimal

Caption = ""

Height = 480

Left = 1320

TabIndex = 18

Top = 2400

Width = 480

End

Begin VBCommandButton Operator

Caption = "="

Height = 480

Index = 4

Left = 2040

TabIndex = 16

Top = 2400

Width = 480

End

Begin VBCommandButton Percent

Caption = "%"

Height = 480

Left = 2640

TabIndex = 17

Top = 2400

Width = 480

End

Begin VBLabel Readout

Alignment = 1 'Right Justify

BackColor = &H0000FFFF&

BorderStyle = 1 'Fixed Single

Caption = "0"

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H00000000&

Height = 375

Left = 120

TabIndex = 19

Top = 105

Width = 3000

End

End

Attribute VB_Name = "Calculator"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

' --------------------------------------------------------------------------

' 版权所有 (C) 1994 Microsoft Corporation

'

' 您可以免费以任何方式使用、修改、复制并分发您认为有用的

' 示例应用程序文件 (或任何修改过的版本)。Microsoft 对任何

' 示例应用程序文件不做任何保证，不负任何责任和义务。

' --------------------------------------------------------------------------

Option Explicit

Dim Op1, Op2 ' 前面输入的 *** 作数

Dim DecimalFlag As Integer ' 小数点仍然存在吗？

Dim NumOps As Integer ' *** 作数个数

Dim LastInput ' 指示上一次按键事件的类型

Dim OpFlag ' 指示未完成的 *** 作

Dim TempReadout

' C (取消) 按钮的 Click 事件过程

' 重新设置显示并初始化变量

Private Sub Cancel_Click()

Readout = Format(0, "0")

Op1 = 0

Op2 = 0

Form_Load

End Sub

' CE (取消输入) 按钮的 Click 事件过程

Private Sub CancelEntry_Click()

Readout = Format(0, "0")

DecimalFlag = False

LastInput = "CE"

End Sub

' 小数点 () 按钮的 Click 事件过程

' 如果上一次按键为运算符，初始化 readout 为 "0"；

' 否则显示时追加一个小数点

Private Sub Decimal_Click()

If LastInput = "NEG" Then

Readout = Format(0, "-0")

ElseIf LastInput <> "NUMS" Then

Readout = Format(0, "0")

End If

DecimalFlag = True

LastInput = "NUMS"

End Sub

' 窗体的初始化过程

' 设置所有变量为其初始值

Private Sub Form_Load()

DecimalFlag = False

NumOps = 0

LastInput = "NONE"

OpFlag = " "

Readout = Format(0, "0")

'DecimalCaption = Format(0, "")

End Sub

' 数字键 (0-9) 的 Click 事件过程

' 向显示中的数追加新数

Private Sub Number_Click(Index As Integer)

If LastInput <> "NUMS" Then

Readout = Format(0, "")

DecimalFlag = False

End If

If DecimalFlag Then

Readout = Readout + Number(Index)Caption

Else

Readout = Left(Readout, InStr(Readout, Format(0, "")) - 1) + Number(Index)Caption + Format(0, "")

End If

If LastInput = "NEG" Then Readout = "-" & Readout

LastInput = "NUMS"

End Sub

' 运算符 (+, -, x, /, =) 的 Click 事件过程

' 如果接下来的按键是数字键，增加 NumOps。

' 如果有一个 *** 作数，则设置 Op1。

' 如果有两个 *** 作数，则将 Op1 设置为 Op1 与

' 当前输入字符串的运算结果，并显示结果

Private Sub Operator_Click(Index As Integer)

TempReadout = Readout

If LastInput = "NUMS" Then

NumOps = NumOps + 1

End If

Select Case NumOps

Case 0

If Operator(Index)Caption = "-" And LastInput <> "NEG" Then

Readout = "-" & Readout

LastInput = "NEG"

End If

Case 1

Op1 = Readout

If Operator(Index)Caption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then

Readout = "-"

LastInput = "NEG"

End If

Case 2

Op2 = TempReadout

Select Case OpFlag

Case "+"

Op1 = CDbl(Op1) + CDbl(Op2)

Case "-"

Op1 = CDbl(Op1) - CDbl(Op2)

Case "X"

Op1 = CDbl(Op1) CDbl(Op2)

Case "/"

If Op2 = 0 Then

MsgBox "除数不能为 0", 48, "计算器"

Else

Op1 = CDbl(Op1) / CDbl(Op2)

End If

Case "="

Op1 = CDbl(Op2)

Case "%"

Op1 = CDbl(Op1) CDbl(Op2)

End Select

Readout = Op1

NumOps = 1

End Select

If LastInput <> "NEG" Then

LastInput = "OPS"

OpFlag = Operator(Index)Caption

End If

End Sub

' 百分比键 (%) 的 Click 事件过程

' 计算并显示第一个 *** 作数的百分数

Private Sub Percent_Click()

Readout = Readout / 100

LastInput = "Ops"

OpFlag = "%"

NumOps = NumOps + 1

DecimalFlag = True

End Sub

企业标准和质量手册程序文件是两个不同的的东西，只有在特殊情况下，即将质量手册程序文件编制成企业标准时，也称质量手册程序文件是企业标准。

一般的企业标准编号是Q/XXX XXXX—2011。

以注释内容开始。

关于程序中注释书写格式

1程序文件注释：

放在程序名称空间引用（using SystemIO;）的上面，主要写公司的版权、文件创建的时间、文件的主要内容、文件的名字、文件的创建标识（创建人姓名）、文件修改的时间、文件修改时的修改标识（修改人姓名）、文件修改的修改原因等（详情见文档后备注示例）；

2类的作用注释：

放在类（类、接口、枚举、结构体）的声明上方，主要描述类的作用。

如果类的结构比较复杂，也应该添加类的使用示例和类的流程（其它特点）

3、类的私有全局重要变量注释：

放在类的全局变量声明上方，主要需要注释通过命名不能正确理解的全局私有或公有（包含受保护等）变量。如果是object（特殊数组等）型变量，内部使用时结构比较复杂或有规定，需要简要的说明一下内部结构。

4、类的属性的注释：

放在类的属性声明上方，简要说明属性的类型和主要作用。

5、类的公有方法的注释：

主要说明方法的作用，方法各参数的意义和要求，方法的返回值及各种可能的返回值的特殊意义，方法可能会产生的异常，如果需要，则可以写出方法的使用示例；

6、类的私有方法或重要算法的注释：

除了需要说明公有方法所要求的之外，如果算法、数学运算比较复杂，需要写出算法或数学方法的理论过程或推导过程；如果算法比较长，要尽可能的细分成逻辑块，并填写适当的注释；对于方法中的重要变量也要添加适当的注释，特别是对方法的结果或方法某一段的结果的方法内部不易理解的变量要添加合适的注释；对于特别复杂（重要）的方法，要添加适当的流程图或文档，给以充分的文字、图解等说明；

7、文件、类或类的方法修改后的注释的变更：

对于对文件或类（包括接口、枚举、结构体）或类的方法修改后，要添加修改后的相注释，要写清修改的时间、修改标识（修改人姓名）、修改的原因等一切必要的信息和一切必要变更的信息（类、方法的流程）；

#include<stdioh>

#include<stdlibh>

#include<stringh>

#define TRUE 1

#define FALSE 0

#define BOOL int

#define MAXSIZE 5000

#define COUNT 20 // 可以统计的最大的文件个数

#define LEN 20 // 文件名的最大长度

#include<stdioh>

#include<stdlibh>

#include<conioh>

voidcheckfile(char filename,int i);

voidanaly(char filename[COUNT][LEN],int n);

BOOLGetIn(int n);

//函数属性结构

typedefstruct {

char filename[20]; //每一个函数的名字

int length; //每一个函数的长度

int pos; //每一个函数的位置

}Fun;

//统计结构的声明

typedefstruct {

int comments; //纯注释的个数

int comment; //混合注释个数

int blank; //空行的个数

Fun fun[MAXSIZE]; //函数的属性

int others; //除去函数中代码外其余的代码个数

int funcount; //函数的个数

}Analy;

//串的基本 *** 作ADT

//检测是否为空串

BOOLStrEmpty(char s)

{

if(s[0]=='\0')

return TRUE;

return FALSE;

}

//查看S1中是否有值为S2的子串,若有则返回第一个子串的位置，若无则返回-1；

intFind(char s1,char s2)

{

int i = 0,j = 0;

if(strlen(s1) < strlen(s2))

return -1;

while (s1[i]!='\0')

{

if(s1[i] == s2[j])

{

i++;

j++;

if(s2[j]=='\0')

return i-j;

continue;

}

i++;

j=0;

}

return -1;

}

//读取文件中的一行字符

voidHaveLine(FILE fp,char s)

{

while(!feof(fp))

{

s = fgetc(fp);

if(s=='\n'){ //若是一行的结尾则表示取完了一行

s='\0';

return;

}

s++;

}

s = '\0';

}

//忽略一行字符开头的空格和tab，返回截断后上的串指针

charIgnoreB(char s)

{

while (s== ' ' || s== ' ')

s++;

return s;

}

//判断一行字符是不是注释

intIsCom(char s)

{

int posc,pos1,pos2;

s= IgnoreB(s);

posc = Find(s,"//");

if(posc == 0)//此行仅有注释，无代码；

return 1;

if(posc == -1)

return 0;

pos1 = Find(s,"\"");

pos2 =Find(&s[pos1+1],"\"");

if(posc > pos1 && posc < pos2)

return 0;

return 2;

}

//判断一行字符是不是空白

BOOLIsBlank(char s)

{

s= IgnoreB(s);

if(s== '\0')

return TRUE;

return FALSE;

}

intIsFunB(char s)

{

int i,j,pos,pos2;

//有分号,if while for的不是函数开头

if(Find(s,";") != -1 ||Find(s,"if") != -1 || Find(s,"for") != -1 ||Find(s,"while") != -1||Find(s,"switch") != -1)

return FALSE;

//没有小括号的不是函数开头

if((pos = Find(s,"(")) == -1)

return FALSE;

s = IgnoreB(s);

i = Find(s," ");

j = Find(s," ");

if (i != -1 && j != -1)

i = i > j j : i;

else if (i == -1)

i = j;

else if (1 == -1 && j == -1)

return FALSE;

if (i > pos)

return FALSE;

s = &s[i];

s = IgnoreB(s);

pos2 = Find(s,"(");

if(s == '\0' || s == '(' ||pos2 > pos)

return FALSE;

return TRUE;

}

voidprintR(int aver ,int comc,int blanks )

{

//按代码级别判定标准输出分析结果

int i;

char Grade[4][15] = {"A:Excellent","B: Good","C: just So-So","D:Bad"};//定义四个级别段

//判定代码的级别

if (aver <= 15 && aver >=10)

i = 0;

else if((aver <=20 && aver >=16) || aver <= 9 && aver >= 8)

i = 1;

else if((aver <=7 && aver >=5) || aver <= 24 && aver >=21)

i = 2;

else if ((aver <5) || (aver > 24))

i = 3;

printf(" Grade %s routine code style\n",Grade[i]);

//判定注释的级别

if (comc<= 25 && comc >= 15)

i = 0;

else if((comc <=14 && comc >=10) || comc <= 30 && comc >=26)

i = 1;

else if((comc <=9 && comc >=5) || comc <= 35 && comc >=31)

i = 2;

else if((comc <5) || (comc > 35))

i = 3;

printf(" Grade %s routine commenting style\n",Grade[i]);

//判定空行的级别

if (blanks <= 25 && blanks >=15)

i = 0;

else if((blanks <=14 && blanks>= 10) || blanks <= 30 && blanks >=26)

i = 1;

else if((blanks <=9 && blanks>= 5) || blanks <= 35 && blanks >=31)

i = 2;

else if((blanks <5) || (blanks > 35))

i = 3;

printf(" Grade %s white spacestyle\n",Grade[i]);

}

//打印输出结果

voidprint(Analy An)

{

int sum = 0,funcode = 0;

int i, comc , blanks, aver ,code;

for(i = 0;i < An->funcount ;i++)//求函数的代码总数

funcode += An->fun[i]length;

//求所有的代码总数

sum += An->blank;

sum += An->comments;

sum += An->comment;

sum += An->others;

sum += funcode;

if(sum == 0)//防止除数sum为0

sum = 1;

if(An->funcount == 0)//防止除数m为0

aver = 0;

else

aver = funcode/An->funcount;

comc = (An->comments +An->comment)100/sum;

blanks = ((An->blank)100)/sum;

code = 100 - comc - blanks; //((funcode + An->others)100)/sum;

printf(" 程序源代码分析结果如下所示\n\n");

printf(" 代码行数: %d\n",sum -An->blank - An->comment - An->comments);

printf(" 注释行数: %d\n",An->comments +An->comment);

printf(" 空行数: %d\n",An->blank);

printf(" 代码 注释 空行\n");

printf(" \n");

printf(" \n");

printf(" %d%% %d%% %d%%\n",code,comc,blanks);

printf(" The program includes %d functions\n",An->funcount);

printf(" The average length of section of function is %d\n",aver);

printf("\n");

//按代码级别判定标准输出分析结果

printR(aver,comc,blanks);

}

voidcheckfile(char filename,int i)

{

FILE fp;

while((fp = fopen(filename,"r"))== NULL)

{

printf("对不起！文件不存在%s\n",filename);

printf("\n请重新输入第%d个源文件: ",i+1);

scanf("%s",filename);

}

}

BOOLGetIn(int n)//规范输入的数据，只能为数字

{

char c;

n = 0;

fflush(stdin);

c = getchar();//当输入一串数据并按回车后，getchar()取出缓存队列中的第一个字符

while(c != '\n'){

if(c == '0' && n == 0)

printf("输入有误！请重新输入\n");

if(c >= '0' && c <= '9')

n = (n) 10 +c - 48;

else{

printf("输入有误！请重新输入\n");

fflush(stdin);//清空(刷新)缓存里的内容，以防被下次getchar()取用

return FALSE;

}

c = getchar();

}

return TRUE;

}

voidanaly(char filename[COUNT][LEN],int n)

{

FILE fp;//分析源文件指针

FILE fpp;//日志文件指针

Analy An;//程序统计结构体

char s[200];//存储每行的文件

BOOL begin = 0,start = 0;//设置函数开始标记

int i,j = -1,pos = 0;//函数的位置 长度信息

//c检测函数内大括号的匹配,comtype是注释的类型

int c=0,comtype;

Anblank = 0;

Ancomments = 0;

Ancomment = 0;

Anothers = 0;

Anfuncount = 0;

if((fpp =fopen("logtxt","w")) == NULL)//建立日志文件

printf("cannot open the file%s\n");

for (i = 0 ;i < n; i++)//遍历所有的文件

{

if((fp =fopen(filename[i],"r")) == NULL)

{

printf("cannot open the file%s\n",filename[i]); //输出filename[i]

getchar();

exit(0);

}

pos = 0; //函数在新一个文件中的位置初始化

while (!feof(fp))

{

HaveLine(fp,s); //从文件中读取一行数据

pos++; //每个函数在文件中开始的位置

//分类统计文件中的代码个数

comtype = IsCom(s);

if (comtype ==1)

{

Ancomment++;

continue;

}

if (comtype == 2)

Ancomments++;

if (IsFunB(s))

{

fprintf(fpp,"%s\n",s);//提取每个函数的名字写入到文件

j++; //j为函数的个数-1;

c = 0;//大括号个数初始化为0

begin = TRUE;

strcpy(Anfun[j]filename,filename[i]);//记录函数在哪个文件中

Anfun[j]pos = pos;

Anfun[j]length = 1;

}

else if(IsBlank(s))

Anblank++;

else if(begin){

Anfun[j]length++;

if (Find(s,"{") !=-1) //检测是否进入到了函数体内

{

c++;

start = TRUE;

}

if (Find(s,"}") != -1)//检测是否一个函数的结束

c--;

if (c==0 && start)

{

begin = FALSE;

start = FALSE;

}

}

else

Anothers++;

}

fclose(fp);//关闭分析文件

}

fclose(fpp);//关闭日志文件

Anfuncount= j+1; //把函数的个数保存

print(&An); //打印分析结果

}

voidmain()

{

int n,i;

char c;

char filename[COUNT][LEN];

printf("\t-------------------------------------------------------------\n");

printf("\t 程序源代码分析软件 BY 沈航电子信息工程学院--王盼 \n");

printf("\t--------------------------------------------------------------\n");

while(1){

n=0;

printf("\t\t\t程序分析\n");

printf("请输入您要分析的源文件的个数: ");

while(!GetIn(&n) || n <= 0){

printf("请输入您要分析的源文件个数:");

}

for(i = 0 ;i < n ;i++)

{

printf("\n请输入第%d个源文件: ",i+1);

scanf("%s",filename[i]);

checkfile(filename[i],i);

fflush(stdin);

}

analy(filename,n);

printf("\t您需要继续使用本软件吗Y/N\n");

c =getchar();

if(c == 'Y' || c == 'y')

continue;

break;

}

}

以上就是关于VB 编写程序，模拟计算器的加减乘除，功能，要求键盘输入两个 *** 作数和 *** 作符全部的内容，包括:VB 编写程序，模拟计算器的加减乘除，功能，要求键盘输入两个 *** 作数和 *** 作符、用VB编写计算器的源程序代码、企业标准 和质量手册程序文件时两种不同的东西吗 我们的质量手册编号是Q/BOA.G01.200是不是编号有问题呢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/zz/10110910.html

赞 (0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
雪莱特股票 雪莱特股票 一级用户组
0 0
上一篇 2023-05-05
下一篇 2023-05-05

发表评论

登录后才能评论

评论列表（0条）

保存