我不在vb论坛，就在工作，不在工作就在去vb论坛的路上！

      前几天，忍痛割爱买了一台电脑，打算潜心钻研计算机语言，本人的第一个计划是学习vb，

目标能够运用vb编一些简单适用的程序，为了更好的督促自己学习，特发贴如下：

一、学习计划

1、各控件的属性和方法；

2、语法以及算法练习；如：数据排序的各种方法

3、标准模块,类模块和ACTIVE控件的学习；

4、了解oracle;

5、实例开发；

二、学习方式

1、以vb基础教程为主，泡vb论坛为副，自学讨论相结合；

2、每天将自己所学的东西再次发贴；

各位如是初学者请再次写下你的学习进程，以督促自己学习！

首先写写自己今日所学的东西

一、vb各控件常用的一些属性
1、name：也就是控件的名字，其主要在程序代码中运用，命名规则要以“望文生义”为原
则，如：cmdcopy、cmdpaste等，一看自己就知道是命令按钮复制和粘贴；
2、caption：控件的标题，也就是在控件上反映出来的名字；语法：控件名.caption="...."
3、font：字体，包括fontname(字体类型)、fontsize(字体大小)、fontbold等等，只要是用来设置控件字体属性。语法:控件名.fontname="..."

二、相关控件
1、frame控件---分组控件
       先在窗体上绘制合适大小的框架，然后点选单选控件或多选控件，最后将鼠标移到框架内并拖拉出选项按钮。

注意：不能点选一个控件，然后复制粘贴，这样达不到比如单选控件可以在不同的框架上多选！

[此贴子已经被作者于2005-3-9 16:38:42编辑过]

'简单的代码 Private Sub chkbold_Click() If chkbold.Value = 1 Then txtshow.FontBold = True Else txtshow.FontBold = False End If

End Sub

Private Sub chkitalic_Click() If chkitalic.Value = 1 Then txtshow.FontItalic = True Else txtshow.FontItalic = False End If End Sub

Private Sub chkunderline_Click() If chkunderline.Value = 1 Then txtshow.FontUnderline = True Else txtshow.FontUnderline = False End If End Sub

Private Sub cmdexit_Click() End End Sub

Private Sub Form_Load() optarial.Caption = "Arial" optmodern.Caption = "modern" opttimes.Caption = "Times new Roman" optarial.Value = False opttimes.Value = False optmodern.Value = False chkbold.Value = 0 chkitalic.Value = 0 chkunderline.Value = 0 txtshow.Text = "" txtshow.FontSize = 35 cmdexit.Caption = "退出" chkbold.Caption = "粗体" chkitalic.Caption = "斜体" chkunderline.Caption = "下划线" frmsex.Caption = "性别" frmclass.Caption = "班级" optboy.Caption = "男" optgirl.Caption = "女" optclass1.Caption = "一年级" optclass2.Caption = "二年级" optclass3.Caption = "三年级" optclass4.Caption = "四年级" optboy.Value = False optgirl.Value = False optclass1.Value = False optclass2.Value = False optclass3.Value = False optclass4.Value = False

End Sub

Private Sub optarial_Click() txtshow.FontName = "arial" End Sub

Private Sub optmodern_Click() txtshow.FontName = "modern" End Sub

Private Sub opttimes_Click() txtshow.FontName = "times new roman"

End Sub

'判断100-300之间的素数？并且一行5个数输出 Private Sub Form_Click() For prime = 100 To 300

Sum = 0 For i = 2 To prime - 1 If prime Mod i <> 0 Then Sum = Sum + 1 End If If Sum = prime - 2 Then n = n + 1 '判断有几个素数 If n >= 2 And n Mod 5 = 1 Then '判断如果是第6、11、。。。那么换行！ Print Print prime, Else Print prime, End If End If

先学vb，至于以后学什么语言，要看vb的学习程度了！