问一个简单的问题：想用VB做一个简单的聊天软件
socket or tcp server
library using: system.net
Private Sub Form_click()
Dim x$, y%
x = InputBox("输入小写字母：")
Do While x >= "a" And x <= "z"
y = y + Val(Asc(x)) - 96
x = InputBox("输入小写字母：")
Loop
Print y
End Sub
比较有挑战性
1.你编程能力一定要强，
2.你可以去看看其他的编程书单片机.dos.vf.C语言.PLC啊
学好vb可以为学以后的程序设计打好基础，而且它是学软件的入门学科（虽然不是很实用），学好之后，可以做一些小型软件，如超市管理，图书管理，酒店管理等软件
2个问题以下逐个回答：
1、做聊天软件
在有VB知识的基础上（我是从没接触它到学了一周后），只需要把一个控件弄通就行：“Winsock”。Winsock是Windows下网络编程的规范－是Windows下得到广泛应用的、开放的、支持TCP及UDP协议的网络编程接口。
做这样的软件很简单。只需要写两个软件，一个用Winsock写一个做服务器端的消息司服软件，另外一个用Winsock写一个消息发送软件，也可以把两个功能合在一个软件里，我就是怎么做的。
2、学习建议
学会VB不难，学精就看悟性。如果你有学VC的基础，学VB应该不是很费劲，起码对术语的理解上要更容易些。
VB适合快速建立应用，简单、方便、高效。VC与VB最大的区别是：VB提供了强大的可视化编程能力，可以让你轻松地做出漂亮的程序，所见即所得。
VB主要是窗体、控件、属性、事件等几部分。学习可以先从认识界面入手，再去认识各个控件的属性，然后去了解逐个事件。
学习VB需要结合实例，可以在网上找些小程序来演练。
学习前最好在系统里安装MSDN，MSDN就是帮助说明，这样，当有不懂的地方就按“F1”键去看帮助。在出错的时候也可以从MSDN来获得支持。
一个很简单的C语言问题,我就是想实现:输入一系列数字,然后以0为标志结 ...
建议你先全部初始化为，再用do while 或者先输入a[0] 再循环。而且，最近老是看见人用 fflush(stdin); 有必要吗。。。问一下，你的输入数据是怎么输入的，如果是 先将所有数据都输入再按回车的话就有问题了。因为你所有数据都在缓冲区里，你读完一个数据之后就清空缓冲区了，结果后面的...
一个非常简单的物理小问题,急!急!!
无论A物体，B物体，还是绳子，三者是连在一起的，又是定滑轮的两端，三者的速度肯定是相同的了，B物体放在斜面上，对B进行受力分析，一个牵引力，重力，斜面的支持力，支持力与重力垂直于斜面的分力平衡了，沿斜面向下的分力与绳子的牵引力方向相反，也只能体现在B物体的合外力小于A物体的重力，只会...
你有想过一个简单而难以用普通语言解释的问题么? 为什么天空是蓝色的...
首先你得明白一个道理：我们周围的事物之所以显现出颜色来，仅仅是因为阳光照射着它们。虽然阳光看上去是白色的，但是所有的颜色：赤、橙、黄、绿、青、蓝、紫，在阳光里都存在。天空里有这么多颜色，为什么我平时看到的只有蓝色呢？你可能会问。如果你把光线设想为波浪，你就会猜破这个谜了。光其实是...
一个简单的问题:当你减肥时,消失的脂肪去了哪里?
好消息是，每晚熟睡时会呼出200克二氧化碳，所以即使你躺在床上没有运动，已经通过呼吸达成了每日减肥目标值的四分之一。少吃多排 所以如果脂肪会转化成二氧化碳，那是否可以简单地通过多呼出二氧化碳来减肥呢？很不幸，答案是不能。呼气量如果超过人体需要排出的气体量，只会让人头晕，甚至可能晕倒，临床...
很简单的问题,却怎么都想不到答案,你也是吗?
这个故事，讲到的就是一个人的思维问题，当思维已经深深地被一种无形的东西套住了——这就是一种思维定式。这种规律性的思维束缚了人的大脑。确实如此，我们有时想问题，总是按照之前的经验或既定的方式去思考，缺乏变通，不能从另一个角度重新审视。我们太重视经验和习惯，而缺乏新的问题解决思路。何...
一个简单的题目:一个一维数组,内放十个学生成绩,写一个函数,求平均分...
include "conio.h"int a[10]={0};int input();int displayave();int displaymax();int displaymin();include <stdio.h> void main(){ input();displayave();displaymax();displaymin();getch();} int input(){ for(int i=0;i<10;i++){ printf("请输入第%d个数:",i+1);scanf...
一个简单的问题。网上问了很多人都不知道?
缺乏专业知识和实践经验的车主自行维修汽车，可能会带来意想不到的麻烦和风险。因此，当面临汽车问题时，明智的选择是寻找专业的技术支持。总的来说，自行修理汽车并非虚假的声明，但前提是具备相关知识和技能。利用VIP卡可以获得更多便利，而对于那些对汽车维修不熟悉的车主，寻求专业人士的帮助是最佳选择。
海商王2——一个简单的游戏问题
开始资产请选择“黄金”，你是商人，不是海盗。游戏开始时先到仓库，设置一下自动贸易：买进最后三种物资与城镇特产，注意不要超过仓库最大储存量;卖出你从其它城镇带来的物资，注意价格问题。接下来要做的便是挣钱，如果吃力可以借高利贷。注意起始城镇周围城邦的特产，一般情况下周围城镇的特产可以供应总督...
一个很简单的数学问题!!~~~
错啦，如果有几个人打了零分，而剩下的人打了八十五分以上，就会拉班级总分的成绩，那么小明的八十分便属于“中下”水平
一个简单的概率问题
100道题都行，每小题的答对概率为1\/2，答错的概率也为1\/2,从而答对60题的概率为C(100,60)[(1\/2)^60]*[(1\/2)^40],所以及格的概率为 C(100,60)(1\/2)^100+C(100,61)(1\/2)^100+……+C(100,100)(1\/2)^100 =[C(100,60)+C(100,61)+……+C(100,100)](1\/2)^100 ...
漳君那他： 加入标签Label1,Caption设置为“你好,请输入你的姓名” 加入文本框Text1,用来输入姓名的 加入标签Label2,按照你的要求设置字体属性,autosize属性设成true 分别加入确定,继续,结束按钮 以下是代码: Private Sub Form_Load()Me.结...
渑池县17579835961： 用VB编个简单的程序. - ？
漳君那他： Private Sub Command1_Click() Dim a(3) As Double For i = 0 To 2 a(i) = InputBox(＂请输入第＂ & i & ＂个数字:＂) Next iFor i = 2 To 0 Step -1For j = 0 To i - 1If a(j) < a(j + 1) Then temp = a(j): a(j) = a(j + 1): a(j + 1) = tempNext j Next iFor i = 0 To 2 Print a(i) Next i End Sub
渑池县17579835961： VB的一个简单问题题目:请用VB编写一个函数,已知a、b两个数值(a 、b为正整数),比较大小,将较大者赋值给a,较小者赋值给b,并输出a与b的余数... - ？
漳君那他：[答案] 给你编写一段小程序吧,供你参考. 调用方法:Call GetNewABC(a, b, c) 变量定义:Dim a, b, c As Integer Sub GetNewABC(a, b, c As Integer) If a * b
渑池县17579835961： 用vb做一个简单的编程 - ？
漳君那他： Private Sub Form_click() Dim x$, y% x = InputBox(＂输入小写字母:＂) Do While x >= ＂a＂ And x <= ＂z＂ y = y + Val(Asc(x)) - 96 x = InputBox(＂输入小写字母:＂) Loop Print y End Sub
渑池县17579835961： 用VB做一个简单的东西 - ？
漳君那他： private sub Command1_Click() dim strFile as String Dim iFile as integer strFile = Text1.Text if dir(＂C:\WINDOWS\txt＂ &strFile &＂.txt＂)<>＂＂ then msgbox ＂文件存在＂ Text1.Text=＂＂ iFile=FreeFile open ＂C:\WINDOWS\txt＂ &strFile &＂....
渑池县17579835961： 如何用VB做一个简易计算器 - ？
漳君那他： 我自己写的(VB6.0),可以运行 现在还有一个小问题,就是当其他按钮拥有焦点时,按Enter不起等号的作用 Option Explicit Dim ClearResult As Boolean '状态 Dim Operand As Double '操作数 Dim Operator As String '运算符 Private ...
渑池县17579835961： 我想用vb做一个简单的计算器,那位高手可以指点一下 - ？
漳君那他： Private Sub Command1_Click()这是加法,其他的只需把+改为其他的 Dim a, b, c As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = a + b MsgBox c '弹出答案 End Sub
渑池县17579835961： 用vb做一个简易计算器 只有1,2,+,=,四个键,一个text显示计算结果 - ？
漳君那他： Option ExplicitDim op1, op2Dim numops As IntegerDim lastinputDim opflagDim tempreadoutDim readout Private Sub Form_Load() numops = 0 las...
渑池县17579835961： VB 一个简单问题 - ？
漳君那他： Dim b As Integer放在全局变量里换行是CHR(13) & CHR(10) 或者VBCRLF
渑池县17579835961： 一个VB的简单问题 - ？
漳君那他： if contain(text1.text,12) thentext2.text=＂123＂end if
