问一个很简单的程序，本人不懂VB的，不过急用，在线给分，

keaixiaobao 2004-04-28 07:23:37
打印
*
***
*****
*******
*********
*********
*******
*****
***
*
...全文
124 43 打赏 收藏 转发到动态 举报
写回复
用AI写文章
43 条回复
切换为时间正序
请发表友善的回复…
发表回复
CTSJT210 2004-05-03
  • 打赏
  • 举报
 回复
UP
ZWmain 2004-05-03
  • 打赏
  • 举报
 回复
一楼的，很板扎嘛。
daisy8675 2004-05-03
  • 打赏
  • 举报
 回复
你們怎麼都那麼暈呢？

我自個都樂悶了....

呵呵 ~~隻不過x,y兩個循環，
大學裡面都開過 c語言，有點頭腦，稍微有點腦筋都做得出來

對了，你隨便看那本參考書上都有，連我從學校帶出來的教材裡面都有

這樣的問題自己不想就來問，我為什麼去替他做

今天收到一個mm的留言，她講：請幫我做畢業設計好不好，你不給偶做，偶就不能畢業了。。。


我真的快e 了，以上的話，請下面如果尚有在學校的同學看看
northwolves 2004-05-02
  • 打赏
  • 举报
 回复
Private Sub Command1_Click()
For i = -9 To 9 Step 2
Print Space(Abs(i) \ 2) & String(10 - Abs(i), "*")
Next i
End Sub
sunxliu 2004-05-02
  • 打赏
  • 举报
 回复
haowano!
limuzi2002 2004-05-02
  • 打赏
  • 举报
 回复
晕死
luoxiaoxiang 2004-05-02
  • 打赏
  • 举报
 回复
TO: kmzs(.:RNPA:.山水岿濛)
谢谢啦！~脸好红~
slmn 2004-05-02
  • 打赏
  • 举报
 回复
HOHO
qyii 2004-05-01
  • 打赏
  • 举报
 回复
够简单了~~呵呵!

Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 6
For j = 1 To Abs(i - 3)
Text1.SelText = " "
Next
For j = 1 To 5 - (2 * Abs(i - 3))
Text1.SelText = "*"
Next

Text1.SelText = vbCrLf
Next
End Sub
qyii 2004-05-01
  • 打赏
  • 举报
 回复
TO: kmzs(.:RNPA:.山水岿濛)

不是呢~我还有个更好的!!等着~整理一下
kmzs 2004-05-01
  • 打赏
  • 举报
 回复
楼上的这个最好
luoxiaoxiang 2004-05-01
  • 打赏
  • 举报
 回复
虽然肚子笑疼了，但也让我想起了刚开始学编程的时候。我也为这位老弟写一段代码吧。Option Explicit

Private Sub Command1_Click()
Dim a As String * 1, b As String, c%
a = "*"
b = InputBox("请输入中间行字符数：")
c = Val(b)
triangle a, c

End Sub
Private Sub triangle(str As String, n As Integer)
Dim i%, j%
For i = 1 To n
Print Spc(n - i + 1);
For j = 1 To i
Print str; Spc(1);
Next j
Print
Next i
For i = 1 To n - 1
Print Spc(i + 1);
For j = 1 To n - i
Print str; Spc(1);
Next j
Print
Next i
End Sub

Private Sub Command2_Click()
End
End Sub

BlueBeer 2004-04-30
  • 打赏
  • 举报
 回复
Private Sub Command1_Click() '最简算法
For i = -4 To 4
Print Space(Abs(i)) & String((5 - IIf(i < 0, Abs(i), i)) * 2 - 1, "*")
If i = 0 Then Print String(9, "*")
Next i
End Sub

Private Sub Command2_Click() '最BT算法^o^
For i = 1 To 10
Select Case i
Case 1
Print " *"
Case 2
Print " ***"
Case 3
Print " *****"
Case 4
Print " *******"
Case 5
Print "*********"
Case 6
Print "*********"
Case 7
Print " *******"
Case 8
Print " *****"
Case 9
Print " ***"
Case 10
Print " *"
End Select
Next i
End Sub
luoxiaoxiang 2004-04-30
  • 打赏
  • 举报
 回复
我差点要叫救护车了
疯云码农 2004-04-30
  • 打赏
  • 举报
 回复
哈哈，有意思
flyingscv 2004-04-30
  • 打赏
  • 举报
 回复
Private Sub Command2_Click() '最BT算法^o^
For i = 1 To 10
Select Case i
Case 1
Print " *"
Case 2
Print " ***"
Case 3
Print " *****"
Case 4
Print " *******"
Case 5
Print "*********"
Case 6
Print "*********"
Case 7
Print " *******"
Case 8
Print " *****"
Case 9
Print " ***"
Case 10
Print " *"
End Select
Next i
End Sub
确实够BT
shortppsy 2004-04-30
  • 打赏
  • 举报
 回复
搞笑
SaySorry 2004-04-30
  • 打赏
  • 举报
 回复
function haha(ii)
for i=-ii to ii step 2
haha=haha & space(cint(abs(i)/2+0.1)+abs(i) mod 2) & replace(space(abs(1+ii)-abs(i))," ","*") & vbcrlf
next
end function

print haha(9)
nik_Amis 2004-04-29
  • 打赏
  • 举报
 回复
daisy8675(莫依)

晕
flyingscv 2004-04-29
  • 打赏
  • 举报
 回复
以上的代码应该不符合要求，实际需要的应该是不定打印
呵呵
以前一次考试,要求输入n（0<n<10)
比如n=5打印
*
***
*****
*******
*********
*********
*******
*****
***
*
我看到我旁边有个就是这么打的，分9种情况,哈哈，真的是苦力活啊
不过更可惜的是那道题要求是看结果外还要看代码
加载更多回复（23）
VB串口通信源码210个
001、VB串口通讯视频教程源码41个 002、Visual Basic串口通信工程开发实例导航随书源码7个 003、Visual Basic串口通信与测控应用技术实战详解 源代码(15个全) 004、GE PLC串口通讯，VB编制，读取内存单元 005、PC机与51单片机之间的串口通讯,VB编的,分PC和单片机两部分 006、VB6的串口通信程序,还有crc校验 007、VB Modbus RTU源码,其中协议部分已生成DLL,可直接调用 008、VB.net开发的串口调试程序 009、VB.net实现串口编程，希望大家有用 010、VB版串口调试程序，包含VB源码及安装文件，适合调试串口 011、VB编程RS232串口控制DA数模转换 012、VB编程实现的串口调试工具源码 013、VB编写的RS232串口通信测试程序,以txt格式接受,可定义发送字符 014、VB编写的SouthStar串口测试与51串口烧写器V1.0版 015、VB编写的串口调试助手1.0的源码 016、VB编写的串口短信发送程序,需要数据线支持 017、VB编写的串口通信程序,实现多机通信 018、VB编写的串口通信程序，主要用于上位机与下位机间的通信 019、VB编写的串口通信程序界面参考网上的程序较简单 020、VB编写的串口通讯界面，主要面向51单片机的串口通信 021、VB编写的单片机和PC串口通信的调试程序 022、VB编写的仿真实电子琴操作界面，包含与FPGA串口通信的功能 023、VB串口API通讯,附带BAS文件全部源码,实现与饭卡读卡器通讯 024、VB串口编程,关于上位机的应用,特别适合初级学习VB的学员 025、VB串口编程调试精灵源码 026、VB串口编程实现完整的多费率电表读数软件 027、VB串口程序,,是一个串口使用例程,对初学者有用,特别是工控类的 028、VB串口传输文本,实现2台PC间的通信,类似简单的聊天工具 029、VB串口的一个电子称的项目 030、VB串口调试程序,用于通过串口控制松下空调测试 031、VB串口调试程序及源码 032、VB串口调试软件源代码,可以参考修改为其它通讯程序 033、VB串口调试软件源文件 034、VB串口控制步进电机程序完整源码 035、VB串口通信 6路10位AD转换数据采集源程序 036、VB串口通信,API串口通信模块源码 037、VB串口通信,适用简单,适合初学者 038、VB串口通信操作界面,进行数据采集,画实时曲线 039、VB串口通信程序,可以读取串口并显示保存数据,且能显示数据曲线 040、VB串口通信的源码,学习的好资料 041、VB串口通信调试器的源码程序 042、VB串口通信设计视频演示源码 043、VB串口通信示例 044、VB串口通信数据源码 045、VB串口通信之串口接收程序 046、VB串口通讯测试源代码，有文本和图形两种端口数据观察方式 047、VB串口通讯程序,用来跟单片机通讯 048、VB串口通讯代码(部分) 049、VB串口通讯的参考源程序 050、VB串口通讯实例 高精度电压表(24bit) VB源程序 051、vb串口通讯示例 052、VB串口与伺服电机DSP2407通讯完整代码源程序 053、VB串口源码,动力电池检测数据采集,内含电导巡检模块通讯报文,可,读写,保存,备份数据 054、VB串口字节通信程序，包括：1字节发送子程序，n字节接收子程序 055、VB串行口通信测试示例 056、VB串行通信试验程序 057、VB的MODEM通信源代码,智能化水电远端数据读取系统 058、VB的串口源程序,包括串口的配置界面,接收功能和发送功能 059、VB访问串口，并读取电子秤上显示的数据 060、VB和西门子S7-300 PLC串口通讯程序能实现读写功能 061、VB检测串口工作状态 062、VB简单的串口短信收发功能,使用短信猫测试通过 063、VB开发串口通信,关于生物医学工程专业的血氧饱和度的设计 064、VB开发串口通信软件,利用按钮控件控制高清晰数字展示台 065、VB开发的RS232串口图像处理器驱动(摄像头驱动) 066、VB开发的串口通信源码 067、VB开发的串口与三菱FX PLC通讯源码 068、VB控制串口232通讯,对飞利浦M1卡内数据进行处理,支持密码修改等 069、VB利用Mscomm控件编写的通讯终端，可做串口通讯编程参考示例 070、VB平台单片机与PC机串口通信的PC端程序。小巧易用，功能丰富 071、VB嵌入式串口通讯波形分析显示软件 072、VB实现串口调试LED信息显示屏设备主要代码 073、VB实现串口调试工具的完整源码 074、vb实现串口通信 文件传送系统，用vb以及mscomm控件实现 075、VB实现串口通信，发送命令从而接收相应数据 076、VB使用mscom控件实现PC机与单片机串口通信 077、VB通过COM串口读取条形码设备 078、VB通过串口控制单片机读写24C02源代码 079、VB通讯程序，连接串口可在电脑显示来电号码 080、VB下的串口发短信程序,可选择端口，设置短信中心号码 081、VB写的串口通信，发送和接收实例 082、VB写的串口通信分析程序源码 083、VB写的串口通讯,通过串口对单片机进行控制 084、VB写的串口通讯软件，简单易学，适合初学者 085、VB写的通过串口与考勤机连接通讯的程序 086、vb用控件的写的串口程序，是vb的经典之作 087、VB与USB转串口的通讯完整程序,有详细说明,不需要安装驱动 088、vb与串口通信的关于回路测试的小程序很实用 089、vb语言开发的串口通信，可实现拨号传送文件等 090、VB中串口事件处理函数的示例 091、VB中的串口通讯，串口通讯作为一种古老而又灵活的通讯方式，被广泛地应用 092、VB自动枚举系统串口加摄象头图象采集，坐标系变换 093、Visual Basic2005与自动化系统监控（串并行控制）光盘
DirectX修复工具 V3.3增强 绿色版
DirectX修复工具(DirectX Repair)是一款系统级工具软件，简便易用。本程序为绿色版，无需安装，可直接运行。 本程序的主要功能是检测当前系统的DirectX状态，如果发现异常则进行修复。程序主要针对0xc000007b问题设计，可以完美修复该问题。本程序中包含了最新版的DirectX redist(Jun2010)，并且全部DX文件都有Microsoft的数字签名，安全放心。 本程序为了应对一般电脑用户的使用，采用了傻瓜式一键设计，只要点击主界面上的“检测并修复”按钮，程序就会自动完成校验、检测、下载、修复以及注册的全部功能，无需用户的介入，大大降低了使用难度。 本程序适用于多个操作系统，如Windows XP（需先安装.NET 2.0，详情请参阅“致Windows XP用户.txt”文件）、Windows Vista、Windows 7、Windows 8、Windows 8.1、Windows 8.1 Update、Windows 10，同时兼容32位操作系统和64位操作系统。本程序会根据系统的不同，自动调整任务模式，无需用户进行设置。 本程序的V3.3版分为标准版、增强版以及在线修复版。其中的标准版以及增强版都包含完整的DirectX组件。除此之外，增强版中还额外包含了c++ Redistributable Package，因此增强版不但能解决DirectX组件的问题，而且还能解决c++组件异常产生的问题。增强版适合无法自行解决c++相关问题的用户使用。在线修复版的功能与标准版相同，只是其所需的文件将通过Internet下载，因此大大减小了程序的体积。本程序的各个版本之间，主程序完全相同，只是配套使用的数据包不同。因此，当您使用标准版数据包时，程序将进行标准修复；当您使用增强版的数据包时，程序将进行增强修复；当数据包不全或没有数据包（即只有DirectX Repair.exe程序）时，程序将进行在线修复。在线修复、离线修复可自由灵活组合，充分满足不同用户的需要。 本程序自V2.0版起采用全新的底层程序架构，使用了异步多线程编程技术，使得检测、下载、修复单独进行，互不干扰，快速如飞。新程序更改了自我校验方式，因此使用新版本的程序时不会再出现自我校验失败的错误；但并非取消自我校验，因此程序安全性与之前版本相同，并未降低。 程序有自动更新c++功能。由于绝大多数软件运行时需要c++的支持，并且c++的异常也会导致0xc000007b错误，因此程序在检测修复的同时，也会根据需要更新系统中的c++组件。自V3.2版本开始使用了全新的c++扩展包，可以大幅提高工业软件修复成功的概率。修复c++的功能仅限于增强版，标准版及在线修复版在系统c++异常时（非丢失时）会提示用户使用增强版进行修复。 程序有两种窗口样式。正常模式即默认样式，适合绝大多数用户使用。另有一种简约模式，此时窗口将只显示最基本的内容，修复会自动进行，修复完成10秒钟后会自动退出。该窗口样式可以使修复工作变得更加简单快速，同时方便其他软件、游戏将本程序内嵌，即可进行无需人工参与的快速修复。开启简约模式的方法是：打开程序所在目录下的“Settings.ini”文件（如果没有可以自己创建），将其中的“FormStyle”一项的值改为“Simple”并保存即可。 程序有高级筛选功能，开启该功能后用户可以自主选择要修复的文件，避免了其他不必要的修复工作。同时，也支持通过文件进行辅助筛选，只要在程序目录下建立“Filter.dat”文件，其中的每一行写一个需要修复文件的序号即可。该功能仅针对高级用户使用，并且必须在正常窗口模式下才有效（简约模式时无效）。 本程序有自动记录日志功能，可以记录每一次检测修复结果，方便在出现问题时，及时分析和查找原因，以便找到解决办法。 程序的“选项”对话框中包含了4项高级功能。点击其中的“注册系统文件夹中所有dll文件”按钮可以自动注册系统文件夹下的所有dll文件。该项功能不仅能修复DirectX的问题，还可以修复系统中很多其他由于dll未注册而产生的问题，颇为实用。点击该按钮旁边的小箭头，还可以注册任意指定文件夹下的dll文件，方便用户对绿色版、硬盘版的程序组件进行注册。点击第二个按钮可以为dll文件的右键菜单添加“注册”和“卸载”项，方便对单独的dll文件进行注册。请注意，并不是所有的dll文件都可以通过这种方式注册。点击“DirectX版本”选项卡可以自行修改系统中DirectX的版本信息。点击“DirectX加速”选项卡可以控制系统中DirectX加速的开启与关闭。 新版程序集成了用户反馈程序，可以在用户允许的前提下发送检测修复结果。用户也可以在出现问题时通过反馈程序和软件作者进行交流，共同查找问题。反馈是完全自愿和匿名（如果不填写E-mail地址）的。 本程序的通用版基于Microsoft .NET Framework 2.0开发，对于Windows 2000、Windows XP、Windows 2003的用户需要首先安装.NET Framework 2.0或更高版本方可运行本程序。有关下载和安装的详细信息请参阅“致Windows XP用户.txt”文件。对于Windows Vista、Windows 7及后续用户，可以直接运行本程序。 同时鉴于Windows 8（Windows 8.1、Windows 8.1 Update）、Windows 10系统中默认未包含.NET Framework 2.0，因此新版的程序文件夹内将包含一个DirectX_Repair_win8的特别版程序，该程序功能与通用版相同，基于.NET Framework 4.0开发，可以在Windows8（Windows 8.1、Windows 8.1 Update）、Windows 10系统中直接运行（其他系统如果安装了.NET Framework 4.0也可以运行这个特别版的程序）。 本程序的官方博客地址为：http://blog.csdn.net/vbcom/article/details/6962388 所有的更新以及技术支持都可以到该博客上找到。
VB程序设计入门基础
VB入门基础。清楚易懂，适合初学者本课程主要从开发环境、窗体、命令按钮、文本框、标签、消息框和输入框、代码基础、选择结构、循环结构、数组、过程、控件等方面进行讲解
最强悍的 VC VB反编译工具 Hex-Rays
最强悍的反编译工具 Hex-Rays。 可以反编译 VB VC BCB Delphi 等等一切 x86/x64 代码为 C 代码。密码参见内附说明文件。 我写了个简单的介绍 http://blog.caozhongyan.com/article.asp?id=19
DirectX修复工具V4.3增强版
DirectX修复工具(DirectX Repair)是一款系统级工具软件，简便易用。 本程序的主要功能是检测当前系统的DirectX状态，如果发现异常则进行修复。程序主要针对0xc000007b问题设计，可以完美修复该问题。本程序中包含了最新版的DirectX redist(Jun2010)，并且全部DX文件都有Microsoft的数字签名，安全放心。 本程序为了应对一般电脑用户的使用，采用了易用的一键式设计，只要点击主界面上的“检测并修复”按钮，程序就会自动完成校验、检测、下载、修复以及注册的全部功能，无需用户的介入，大大降低了使用难度。在常规修复过程中，程序还会自动检测DirectX加速状态，在异常时给予用户相应提示。
VB基础类

7,763

社区成员

197,609

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章