精华内容
下载资源
问答
  • C语言,VB编程
    2021-05-23 12:14:27

    C语言,VB编程题

    來源:互聯網  2012-01-26 12:27:25  評論

    分類: 電腦/網絡 >> 程序設計 >> 其他編程語言

    問題描述:

    一道题目,请用C语言和VB编程(循环结构,*用空格代替):

    ********1

    *******121

    ******12321

    *****1234321

    ***************

    **************

    **1234567654321

    *123456787654321

    12345678987654321

    參考答案:

    C语言:

    可以用一个简单的递归函数来控制每行的输出,可以自己设定起始和终止值:

    #include

    int main( ){

    int begin,end,i,j,k;

    printf("Begin value: ");

    scanf("%d",&begin);

    printf("End value: ");

    scanf("%d",&end);

    printf("\n");

    for(i = begin,j = end; i <= end; ++i,--j){

    for(k = 0; k < j; ++k)

    printf(" ");

    func(begin,i,begin - 1);

    printf("\n");

    }

    }

    void func(int begin,int end,int n){

    printf("%d",begin);

    if(begin < end)

    func(begin + 1,end,n);

    if(begin - 1 == n);

    else

    printf("%d",begin - 1);

    }

    VB:

    把以下代码放入一个Command按钮中:

    Private Sub Command1_Click()

    Dim a, b, c, d As Integer

    Dim e As String

    e = "***"

    For a = 1 To 9 Step 1

    For d = 9 To a Step -1

    Print e;

    Next d

    For b = 1 To a Step 1

    Print b;

    Next b

    For c = a - 1 To 1 Step -1

    Print c;

    Next c

    Print

    Next a

    End Sub

    赋给e的三个*号你自己在编译器中替换为3个空格,因为把代码粘上来百度只给显示一个空格。

    [b]分类:[/b] 电脑/网络 >> 程序设计 >> 其他编程语言[br][b]问题描述:[/b][br]一道题目,请用C语言和VB编程(循环结构,*用空格代替):

    ********1

    *******121

    ******12321

    *****1234321

    ***************

    **************

    **1234567654321

    *123456787654321

    12345678987654321[br][b]参考答案:[/b][br]C语言:

    可以用一个简单的递归函数来控制每行的输出,可以自己设定起始和终止值:

    #include

    int main( ){

    int begin,end,i,j,k;

    printf("Begin value: ");

    scanf("%d",&begin);

    printf("End value: ");

    scanf("%d",&end);

    printf("\n");

    for(i = begin,j = end; i <= end; ++i,--j){

    for(k = 0; k < j; ++k)

    printf(" ");

    func(begin,i,begin - 1);

    printf("\n");

    }

    }

    void func(int begin,int end,int n){

    printf("%d",begin);

    if(begin < end)

    func(begin + 1,end,n);

    if(begin - 1 == n);

    else

    printf("%d",begin - 1);

    }

    VB:

    把以下代码放入一个Command按钮中:

    Private Sub Command1_Click()

    Dim a, b, c, d As Integer

    Dim e As String

    e = "***"

    For a = 1 To 9 Step 1

    For d = 9 To a Step -1

    Print e;

    Next d

    For b = 1 To a Step 1

    Print b;

    Next b

    For c = a - 1 To 1 Step -1

    Print c;

    Next c

    Print

    Next a

    End Sub

    赋给e的三个*号你自己在编译器中替换为3个空格,因为把代码粘上来百度只给显示一个空格。

    更多相关内容
  • 该楼层疑似违规已被系统折叠隐藏此楼查看此楼‘VB6的写法Option ExplicitConst PI = 3.1415926Const Num = 36Const Num1 = Num + 1Private Sub Form_Activate()Dim M%, i%, flag%Dim L1!, L2!, L3!, L4!, w1!Dim w2#...

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

    ‘VB6的写法

    Option Explicit

    Const PI = 3.1415926

    Const Num = 36

    Const Num1 = Num + 1

    Private Sub Form_Activate()

    Dim M%, i%, flag%

    Dim L1!, L2!, L3!, L4!, w1!

    Dim w2#, w3#

    Dim e1#(Num1)

    Dim e2#(Num1), u2#(Num1), d2#(Num1)

    Dim e3#(Num1), u3#(Num1), d3#(Num1)

    Dim s1#, s2#, s3#, A#, B#, C#, deta1#, D#, E#, F#, deta2#

    Dim x1#, x2#, y1#, y2#

    Dim inputstr As String, value() As String

    Me.AutoRedraw = True

    Me.ScaleMode = 3

    inputstr = InputBox("Please input data: L1,L2,L3,L4,w1,M:")

    value = Split(inputstr, ",")

    L1 = CSng(value(0)): L2 = CSng(value(1)): L3 = CSng(value(2))

    L4 = CSng(value(3)): w1 = CSng(value(4)): M = CSng(value(5))

    Print "============================================================"

    Print " i e1 e2 e3 w2 w3 d2 d3"

    Print " (DEG) (DEG) (DEG) (rad/s) (rad/s) (rad/s2) (rad/s2)"

    Print "------------------------------------------------------------"

    For i = 0 To Num

    e1(i) = 360# / Num * i

    s1 = PI / 180# * e1(i)

    A = 2# * L1 * L3 * Sin(s1)

    B = 2# * L3 * (L1 * Cos(s1) - L4)

    C = L2 * L2 - L1 * L1 - L3 * L3 - L4 * L4 + 2# * L1 * L4 * Cos(s1)

    deta1 = A * A + B * B - C * C

    If deta1 < 0 Then flag = 1: Exit For

    s3 = 2# * Atn((A + M * Sqr(deta1)) / (B - C))

    e3(i) = 180# / PI * s3

    D = 2# * L1 * L2 * Sin(s1)

    E = 2# * L2 * (L1 * Cos(s1) - L4)

    F = L1 * L1 + L2 * L2 + L4 * L4 - L3 * L3 - 2# * L1 * L4 * Cos(s1)

    deta2 = D * D + E * E - F * F

    If deta2 < 0 Then flag = 1: Exit For

    s2 = 2# * Atn((D + M * Sqr(deta2)) / (E - F))

    e2(i) = 180# / PI * s2

    w3 = w1 * L1 * Sin(s1 - s2) / (L3 * Sin(s3 - s2))

    u3(i) = w3

    w2 = -w1 * L1 * Sin(s1 - s3) / (L2 * Sin(s2 - s3))

    u2(i) = w2

    d3(i) = (w1 * w1 * L1 * Cos(s1 - s2) + w2 * w2 * L2 - _

    w3 * w3 * L3 * Cos(s3 - s2)) / (L3 * Sin(s3 - s2))

    d2(i) = (-w1 * w1 * L1 * Cos(s1 - s3) + w3 * w3 * L3 - _

    w2 * w2 * L2 * Cos(s2 - s3)) / (L2 * Sin(s2 - s3))

    MsgBox ""

    Print Format(i, "@@@");

    Print Format(Round(e1(i), 1), String(6, "@"));

    Print Format(Round(e2(i), 3), String(9, "@"));

    Print Format(Round(e3(i), 3), String(9, "@"));

    Print Format(Round(u2(i), 3), String(9, "@"));

    Print Format(Round(u3(i), 3), String(8, "@"));

    Print Format(Round(d2(i), 3), String(9, "@"));

    Print Format(Round(d3(i), 3), String(9, "@"))

    Next i

    If (flag = 1) Then Print vbCrLf & "Data Error,check again"

    Me.Cls

    Me.BackColor = QBColor(9)

    Me.Line (140, 100)-(550, 100)

    Me.Line (140, 240)-(550, 240)

    Me.Line (140, 380)-(550, 380)

    Me.Line (140, 40)-(140, 440)

    Me.Line (500, 40)-(500, 440)

    x1 = e1(0): y1 = 0.4 * e3(0)

    For i = 0 To Num

    x2 = e1(i): y2 = 0.4 * e3(i)

    Me.Line (140 + x1, 100 - y1)-(140 + x2, 100 - y2)

    x1 = x2: y1 = y2

    Next i

    x1 = e1(0): y1 = 4 * u3(0)

    For i = 0 To Num

    x2 = e1(i): y2 = 4 * u3(i)

    Me.Line (140 + x1, 240 - y1)-(140 + x2, 240 - y2)

    x1 = x2: y1 = y2

    Next i

    x1 = e1(0): y1 = 0.5 * d3(0)

    For i = 0 To Num

    x2 = e1(i): y2 = 0.5 * d3(i)

    Me.Line (140 + x1, 380 - y1)-(140 + x2, 380 - y2)

    x1 = x2: y1 = y2

    Next i

    MsgBox ""

    End

    End Sub

    展开全文
  • VBtoConverter是一款实用的编程小控件,它支持将MicrosoftVisualBasic6.0project(包括源代码)转换成MSVC...相关软件软件大小版本说明下载地址VBto Converter是一款实用的编程小控件,它支持将Microsoft Visual Basic...

    VBtoConverter是一款实用的编程小控件,它支持将MicrosoftVisualBasic6.0project(包括源代码)转换成MSVC++MFCVC++.NETCLRVBNETC#J#BorlandC++BuilderBorlandDelphi源文件。

    77104

    相关软件软件大小版本说明下载地址

    VBto Converter是一款实用的编程小控件,它支持将Microsoft Visual Basic 6.0 project(包括源代码)转换成MS

    VC++ MFC, VC++.NET (CLR), VBNET, C#, J#, Borland C++ Builder, Borland

    Delphi源文件。

    77104

    功能介绍

    VBto Converter 可以将 MS Visual Basic 6.0窗体资源文件转换成MS VC++ 或 VBNET

    项目。VB中的全部窗体都可以被转换成基于MFC的MS VC++ 对话框项目,每个项目均带有.cpp 和 .h 文件。此版本只能转换 .frm 和

    .frx的VB文件。 VBto Converter支持VS 2010, Delphi 2010、支持FileSystemObject、支持VB.Data

    (VB.NET, C#, C++Builder, Delphi)。

    支持转换类型

    ·MS VB .NET

    ·MS C# .NET

    ·MS J# .NET

    ·MS VC++ .NET

    ·MS VC++ (MFC)

    ·Borland C++ Builder

    ·Borland Delphi

    展开全文
  • VBtoConverter是一款实用的编程小控件,它支持将MicrosoftVisualBasic6.0project(包括源代码)转换成MSVC...相关软件软件大小版本说明下载地址VBto Converter是一款实用的编程小控件,它支持将Microsoft Visual Basic...

    VBtoConverter是一款实用的编程小控件,它支持将MicrosoftVisualBasic6.0project(包括源代码)转换成MSVC++MFCVC++.NETCLRVBNETC#J#BorlandC++BuilderBorlandDelphi源文件。

    相关软件软件大小版本说明下载地址

    VBto Converter是一款实用的编程小控件,它支持将Microsoft Visual Basic 6.0 project(包括源代码)转换成MS

    VC++ MFC, VC++.NET (CLR), VBNET, C#, J#, Borland C++ Builder, Borland

    Delphi源文件。

    功能介绍

    VBto Converter 可以将 MS Visual Basic 6.0窗体资源文件转换成MS VC++ 或 VBNET

    项目。VB中的全部窗体都可以被转换成基于MFC的MS VC++ 对话框项目,每个项目均带有.cpp 和 .h 文件。此版本只能转换 .frm 和

    .frx的VB文件。 VBto Converter支持VS 2010, Delphi 2010、支持FileSystemObject、支持VB.Data

    (VB.NET, C#, C++Builder, Delphi)。

    支持转换类型

    ·MS VB .NET

    ·MS C# .NET

    ·MS J# .NET

    ·MS VC++ .NET

    ·MS VC++ (MFC)

    ·Borland C++ Builder

    ·Borland Delphi

    展开全文
  • 着眼于培养能力——分析问题的能力、构造算法的能力、编程的能力、调试程序的能力。 重点要放在解题的思路上,一开始就要学会看懂程序,编写简单的程序,然后逐步深入,语法细节是需要经过长期的实践才能熟练掌握。 ...
  • C语言笔记

    2021-10-23 11:38:34
    第三章 C语言的数据类型 3.1 变量和常量 常量 不占内存,在程序运行时其值不能改变的量,在程序运行时它作为操作对象直接出现在运算器的各种寄存器中 变量 变量是指在程序运行时可以改变的量,变量的功能就是...
  • C语言和C++、C#的区别在什么地方 在这里给他们三个布置一个任务看他们如何去解决,看完你就明白了 例举一个经典的任务:把大象放进冰箱里,让我们先来看看C语言是如何去解决的。 C c语言是一个极其高...
  • c语言程序

    2021-05-21 01:49:29
    海量优秀的免费c语言程序范文供您参考与下载,关于c语言程序的免费论文范文参考资料是由2016年最新的相关论文题目按照标准论文格式模板写作的,适合不知道怎么写c语言程序的大学毕业生,对相关的本科论文和硕士毕业...
  • 嵌入式C语言面试题库

    千次阅读 多人点赞 2020-10-03 23:13:13
    嵌入式开发—C语言面试题 用预处理指令#define 声明一个常数,用以表明1年中有多少秒(忽略闰年问题) #define SECONDS_PER_YEAR (60 * 60 * 24 * 365)UL 我在这想看到几件事情: 1). #define 语法的基本知识...
  • C语言课件完整版(精华).ppt》由会员分享,可在线阅读,更多相关《C语言课件完整版(精华).ppt(484页珍藏版)》请在人人文库网上搜索。1、1,计算机程序设计基础(C语言),2,1. 课堂要求很严格。 2. 多听,适时做笔记。 ...
  • 2018年度C语言/VB作业参考解答集合

    千次阅读 2018-04-10 23:12:12
    本周C语言/VB参考解答 大家可以收藏本页以备查看,以后每周更新题目代码时将统一在本页发布! 部分内附重难点解析与代码,欢迎大家参考学习和交流! 若您在参考过程中发现有不明白的情况,可以扫描文末小程序QR码...
  • unicode编码转换

    2021-05-20 03:19:22
    关于vb,怎么把中文字符转换为Unicode码?“123,测试,test”转为003100320033002C6D4B8BD5002C00740065007300743002我用hex(ascw())来转结果是3132332C6D4B8BD52C746573743002其中的数字和字母都少了00,怎么办求...
  • 需要考虑输入数据边界点和临界点,也就是所谓的边界测试 具体代码如下: #include<stdio.h> int main(void) { int score, mark; printf("Please enter score:"); sancf("%d", &... case 9:printf
  • Excel VBA编程详解

    2021-05-25 07:19:25
    “Excel中VBA编程的具体实现呀”“为什么会写这个,有什么用吗?”你们也这样觉得吗?那我就来结合工作实践讲讲这个有什么用。在工程开发中,比如A同事从事汽车控制策略开发,我们都知道这是个设计与验证不断迭代的...
  • 浮点数精确运算的分析和解决办法

    千次阅读 2021-05-22 15:09:15
    (相应数的存储值,可以简单用C语言的指针方式取出) 1.01 表示为: 0 0111111 1111 0000 00101000 11110101 11000010 10001111 01011100 00101001 2.01 表示为; 0 1000000 0000 0000 00010100 01111010 ...
  • C语言数据类型

    2020-11-06 22:20:21
    C语言等计算机编程语言中,它是一种构造数据类型。枚举类型用于声明一组命名的常数,当一个变量有几种可能的取值时,可以将它定义为枚举类型。在C++、java、C#等语言中,枚举类型是一种基本数据类型而不是构造...
  • 先顶ls抛个砖 大家指正#include#include/*思想:将数据转为字符串操作*/main(){int i;char str[5];char *p=str;for(i=1000;i<10000;i++){itoa(i,p,10);if((*p - 48) + (*(p + 2) - 48) == (*(p + 1) - 48) * (*(p...
  • 需求:用Labwindows_cvi软件开发整机标校系统。 分析:整机标校系统是一个集成...所以该章节主要讲述Labwindows_cvi基于c语言程控矢量网络分析仪。 该章节主要有几部分组成:连接仪器、发送仪器命令、接收仪器数据。
  • 转义字符

    2021-06-07 09:29:08
    所有的ASCII码都可以用“\”加数字(一般是8进制数字)来表示。...[1]中文名转义字符外文名Escape character用处编程使用又称数据传送换码字符(通信控制用)符号"\"转义字符定义编辑转义字符是很多程序...
  • C语言笔记--郝斌

    2020-03-03 22:18:10
    seid=17749628941038263826 一、C语言概述 二、C语言实例程序 三、C语言的起源和发展 ...Basic语言目前没有大量使用,转化为VB;Pascal语言主要用于教学。c语言在结构性语言中是非常重要的,是结...
  • C语言学习笔记(一)

    2019-08-04 16:17:21
    第一个C语言程序,打印helloworld #include <stdio.h> #include <stdlib.h> int main() { printf("Helllo world!\n"); system("pause"); return 0; } 制作程序的流程: 编写源代码 编译前,进行...
  • val(val是什么意思)

    千次阅读 2021-05-22 18:20:48
    有这么一个C语言程序 : int i; long val; for(i=0;i在C语言中Val是一个将由数字符号(包括正负号、小数点)组成的字符型数据转换成相应的数值型数据的函数,语法格式是...在编程语言中VAL是一个把字符串转为数值的函...
  • C语言关键字

    千次阅读 2014-06-30 17:42:48
    C语言有32个关键字......
  • (5)由于具有方便的模块化编程技术,所以已编好的程序可容易地被移植。 3.2 C51数据类型 每一个程序,总离不开数据的应用,每个变量在使用之前必须定义其数据类型。C51的数据类型分为基本数据类型和扩充数据类型...
  • 多种方式计算一个整数的二进制中1的个数原码反码补码介绍:例如:正数:负数:计算二进制中1的个数主要设计思想:在主函数内部:计算较大数函数实现方法 1:方法2:方法3:知识点 原码反码补码 介绍: ...
  • 01在编程语言中的计算结果表示为:0100000000001000001010001111010111000010100011110101110000101000好了,我们可以比较一下3。02和计算结果,果然有所不同,只不过最后一个bit不同嘿。 为了验证一下,可以用手工...
  • C++与Java混合编程

    2021-03-08 05:22:10
    现在的程序员,不再像以前一样,掌握一种编程语言就可以混得有模有样了,现实的情况是,真实的项目中,通常是涉及多种编程语言,举几个简单的例子,一个软件为了快速开发,可能是使用Delphi或VB作为界面开发首选语言...
  • 梯形图转化为HEX软件

    2021-05-21 12:16:24
    当前软件可以支持使用STC...软件包中的STC下载程序也已更新,可以支持对STC10系列芯片进行编程。2008年10月28日修订:增加2个按钮,可以直接软件中调用fxgpwin软件和stc-isp软件,方便使用;帮助文件改为通用的CHM格...
  • 原标题:Rhino插件开发:RhinoScript脚本教程(4):VBScript基础 这一期写得非常艰难(虽然是十年前写的),因为讲编程基础语法最无聊。但我还是硬着头皮整理完格式并发出来了,我希望学生们自己看看弄明白,上课时就...
  • C语言输入一个秒数将其转换成天时分秒

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 609
精华内容 243
关键字:

vb编程转为c语言