250分悬赏.那里有VB简单的入门视频教程?

兄弟看来你找对人了,呵呵!其实有一个很好的视频教学网站可能大家都听说过"网易视频教学"吧!这可是国内最顶坚的视频教学网站,里面的内容丰富的不得了不管是办公.系统或者是编程方面的视频很多.说这么多也没用是不还不如自己去看看好了.包你满意.

给你提个意见好了想学习编程这方面的知识不是看几个视频就能解决问题的了我学编程好几年了,VB我也学过.想学的话到图书馆去买几本VB入门教材看看,最好是买清华大学出版社出的书.

http://tech.163.com/school/video/

微软VB.net入门教程 视频+代码 wmv 适合刚接触的

BT下载，速度超快

http://free.yh520.com/bt_download/12432.htm

我看过很多教程，但实际上你得做好思想准备，学这东西不但要教程了，关键是自己练的多。

如果你非要一个相当好的，那么我推荐你去www.csdn.net看看

http://hi.baidu.com/szj2008/blog/item/da3c3e46f46fcd086a63e50d.html

在搜索栏里输入 VB教程 或VB 就可以了

1."X是小于105的非负数",用VB表达式表示正确的是(C 0<=x and x<105 ).

2.以下方法中，只有（D 代码中使用GetFocus）不能使对象获得焦点。

3.决定一个控件在窗体的位置，要使用（D Top , Left）属性。

4.以下函数中，不属于算术函数的是（B Str()）

5.布尔函数只有两种取值，它们是（D True 和 False ）

6.使用Print方法可以将信息输出到除（B 文本框）以外的对象上。

7.以下关于Sub过程的说法中，只有（B 一个Sub过程必须有一个 End Sub 语句）是正确的。

8.当程序运行时，系统自动执行启动窗体（A Load ）事件过程

9.若要使某文本框获得控制焦点，可使用的方法是（B SetFocus ）

10.下列的（B 文本框）控件不具备Caption属性

11.在程序中可以通过复选框和单选框的（B Value）属性来判断它们的当前状态

12.执行语句"Print Format（5459.478,"##,##0.00)"的正确输出结果是（ 5,459.48 ）

13.函数Len(Str(Val("111.1")))的值为（B 6）

14.Rnd函数不可能产生（B 1）值

15.VB中应用程序的开发主要是在（VB）设计器上完成的

16.由VB预先设置好的，能够被对象识别的动作称为（事件）

17.命令按钮最常见的事件是（click）

18.在用Public Private Dim 三种关键字声明的变量中，（Public）声明的变量作用域最大。

19.模块级变量声明使用关键字Dim或（public）

20.根据变量的定义位置和所使用的定义语句的不同，VB中的变量可以分为3类，即（局部） （模块级）和全局变量。

21.在3种不同类型的组合框中，只能选择而不能输入数据的组合框是（下拉式列表框）

22.列表框中的项目的序号是从（0）开始的

23.计时器事件之间的间隔通过（interval）属性来实现

24.(1)写出下列各函数的值

1. Int(-3.14159)=-4 2. Int(Abs(99-100)/2)=0

3. Fix(-5.2) =-5 4. Sqr(2^3) =2.82842712474619

5. Sgn(5*2-2*6)=-1 6. Right("vbName",4)= "Name"

7. Ucase("vbName")="VBNAME" 8. Val("10 5th")=105

9. Str("123.45")="123.45" 10. Len("vbName")=6

(2) 写出下列各表达式的值

1. 10>=2*4 True 2. "ABCD"<"ABCEF" True

3. "ABC"&"ABC"<>""ABC true 4. 13<>12 Or Not 15>19-2 true

5. 7 mod 3+3^3/4\5 2 6. 4<5 and 7=5 false

7. int(123.4567*100+0.5)/100 123.46 8. Len("VB程序设计教程")=8

25. ┏ a+b a>5

n= ┫ b/a a=5

┗ 0 a<5

用下面的程序试补全程序

Print Sub Command1_Click()

a=Val (Text1.Text)

b=Val (Text2.Text)

Selected Case a

Case is>5

n=a+b

Case 5

n=b/a

Case else

n=0

End Select

Text3.Text=n

End Sub

---