本文目录索引

• 1，VB 高手进
• 2，最近想做个网站，谁能推荐个地方注册域名和空间？
• 3，用记事本怎么编辑、运行C语言？
• 4，Visual Basic跟记事本的区别
• 5，C++、Visual Basic编译问题
• 6，请大家帮忙做几道很简单的VB题目
• 7，一道简单的vb题
• 8，用VB编写一个电脑WORD功能(保存、剪切、粘贴、复制等）的程序
• 9，用VB设计一个类似于Windows 操作系统附件中“记事本”功能的应用程序
• 10，VB中，如何设置字体为小四？

1，VB 高手进

Private Sub proc1(x As Integer, y As Integer, z As Integer)
x = 3 * z
y = 2 * z
z = x + y
End Sub

Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
x = 1: y = 2: z = 3
Call proc1(x, x, z)

第一次调
把x 代入过程里的x
把x 代入过程里的y
把z 代入过程里的z
x = 3 * z 结果 x=9
x = 2 * z 注意 这里y其实是代入的x 结果 x = 6
z = x + x 注意 这里y其实是代入的x 结果 z = 12

Print x; x; z
所以打印结果6 6 12
Call proc1(x, y, y)
第一次调
把x 代入过程里的x
把y 代入过程里的y
把y 代入过程里的z
x = 3 * y 注意 这里z其实是代入的y 结果 x = 6
y = 2 * y 注意 这里z其实是代入的y 结果 y = 4
y = x + y 注意 这里z其实是代入的y 结果 y = 10


Print x; y; y
End Sub

2，最近想做个网站，谁能推荐个地方注册域名和空间？

我 用的是主机屋免费空间，已经有快半年了，使用后我感觉到主机屋免费主机是非常好的。 访问速度非常快，能在很短的时间内打开网页。 主机屋免费空间后台管理功能非常强大，操作很简单，可以绑定子目录。非常棒。 免费主机屋空间可以说很速度很稳定的空间。FTP访问也很快 很稳定。 主机屋免费空间以后还会更好。望今后更多的人使用主机屋主机…… 而且现在还推出了10G的免费空间 赶快去咨询注册吧

3，用记事本怎么编辑、运行C语言？

1、首先要配置环境变量，在系统变量path中添加MSDev\Bin 和 \VC98\Bin路径。是你所安装vc6.0的bin目录。以及设置环境变量include为 ...\VC98\Include 。是你所安装vc6.0的路径的include目录。不理解的话自己可以百度一下。学过java的话一般都配置过环境变量。 2、然后再在桌面上，新建记事本重命名为hello.c 3、打开记事本输入如下代码，保存并关闭。 #include int main(){ printf("hello world!"); return 0; } 4、打开命令行界面，用cd指令定位到桌面，如下图所示。你的可能输入的命令不一样。此时，输入dir可以看到你桌面的说有文件和目录。 5、输入：cl hello.c。可以看到桌面上多了hello.obj和hello.exe。 6、最后运行生成的hello.exe，输出hello world! 成功!

4，Visual Basic跟记事本的区别

从上海到北京，可以坐火车、坐汽车、骑摩托、骑单车、甚至走路也行，但你不能因此就说：“那还要飞机干嘛？”
VB其实是个大家族，里面有VB、VB.NET、VBA、VBScript、VBS、ASP等等，每一种都有各自的特点，不能混淆。它们之间的共同点就是语法是一脉相承的。
我们常说的VB其实是“VB开发环境”，就是说它提供一整套的开发工具，就像是一个设备齐全、配套完善的办公室，你进去以后就可以很方便地完成程序的编写、调试、生成、发布等一系列工作。当然，如果你是大牛，对这种舒适的工作环境不屑一顾，情愿用最原生态的、或者说最原始的方式去做，那我除了膜拜还是膜拜。
另外，VBS是脚本程序，严格意义上说它并不是真正的程序，它是以源代码的形式直接解析运行的，所以它可以直接用记事本来编写。但是如果你想设计真正的程序（就是含有窗体、按钮、文本框之类的界面的程序，比如就是“记事本”这样的程序！），那么只用记事本就是绝对不可能完成的了，即使你是宇宙超级无敌的第一大大大大大牛也不行！

5，C++、Visual Basic编译问题

这个没那么简单了。VS2008这样的编译器集成了很多库，其中有一个叫.Net Framework，这个库可以单独作为应用程序安装，目前的版本好像是3.5。
VS2008编译出来的程序都调用了这个库里的东西，如果其他电脑上没有装这个库，一般来说程序是无法运行的。
这是用VS开发的一大缺点，平台限制太大了。以前的版本像VC++6.0开发的东西一般电脑都能运行。
如果你要在其他电脑上运行的话，安装.Net Framework吧，也不大，才几十M。

6，请大家帮忙做几道很简单的VB题目

1. form_click 事件
form1.width=form1.width-100
form1.heigh=form1.heigh-100
form1.caption="窗体面积为：" & form1.width*form1.heigh

2. form_Load 事件
form1.caption="可移动窗体"
form_click 事件
form1.left=form1.left-100

3. text_lostfocus 事件
if len(text1.text)6 then
text1.setfouce
end if

7，一道简单的vb题

错因：在第三行定义的数组使局部变量，只能在Command1_Click过程中使用！注意！ 修正方案：将该数组定义为全局变量。 代码如下： Option Base 1 Dim a(2, 10) As Integer '在此定义的便是全局变量Private Sub Command1_Click() For j = 1 To 10 a(1, j) = Rnd * 1001 Print a(1, j); Next j Print For j = 2 To 10 a(2, j) = Rnd * 1001 Print a(2, j); Next jEnd SubPrivate Sub Command2_Click() For i = 1 To 2 For j = 1 To 10 If a(i, j) > 500 Then Print a(i, j) Next j Next iEnd Sub

8，用VB编写一个电脑WORD功能(保存、剪切、粘贴、复制等）的程序

1.
VB6 中有一个对象 clipboard ,通过它可以操作系统的剪贴板

2.
看看 VB6 中的 clipboard 对象的一些方法:
clear '清空剪贴板
getdata '从剪贴板中获得指定格式的图形
gettext '从剪贴板中获得指定格式的文本信息
getformat '检查剪贴板中的对象格式
setdata '把图形放入剪贴板
settext '把文本信息放入剪贴板

3.具体代码
'复制至粘贴板
Clipboard.SetText Text1.Text

'粘贴出来
Text1.Text = Clipboard.GetText

'剪切
Text1.Text = Clipboard.GetText
Clipboard.Clear

有任何疑问请追问，满意请采纳，谢谢。

9，用VB设计一个类似于Windows 操作系统附件中“记事本”功能的应用程序

这是我写的代码，相信对你有用

Dim sFind As String
'声明文件类型
Dim FileType, FiType As String

'初始化程序
Private Sub Form_Load()
'设置程序启动时的大小
Me.Height = 6000
Me.Width = 9000
End Sub

'设置编辑框的位置和大小
Private Sub Form_Resize()
On Error Resume Next '出错处理
RichTextBox1.Top=20
RichTextBox1.Left=20
RichTextBox1.Height = ScaleHeight-40
RichTextBox1.Width = ScaleWidth-40
End Sub

'新建文件
Private Sub mnuNew_Click()
RichTextBox1.Text = "" '清空文本框
FileName = "未命名"
Me.Caption = FileName
End Sub


'打开文件
Private Sub mnuOpen_Click()
CommonDialog1.Filter = "文本文档(*.txt)　*.txt　RTF文档(*.rtf)　*.rtf　所有文件(*.*)　*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = "" '清空文本框
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "超级记事本：" & FileName
End Sub

'保存文件
Private Sub mnuSave_Click()
CommonDialog1.Filter = "文本文档(*.txt)　*.txt　RTF文档(*.rtf)　*.rtf　所有文件(*.*)　*.*"
CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(Right(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
Me.Caption = "超级记事本：" & FileName
End Sub

'退出
Private Sub mnuExit_Click()
End
End Sub

'复制
Private Sub mnuCopy_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
End Sub

'剪切
Private Sub mnuCut_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = ""
End Sub

'全选
Private Sub mnuSelectAll_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
End Sub

'粘贴
Private Sub mnuPaste_Click()
RichTextBox1.SelText = Clipboard.GetText
End Sub

'查找
Private Sub mnuFind_Click()
sFind = InputBox("请输入要查找的字、词：", "查找内容", sFind)
RichTextBox1.Find sFind
End Sub

'继续查找
Private Sub mnuFindOn_Click()
RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1
RichTextBox1.Find sFind, , Len(RichTextBox1)
End Sub

'使用说明
Private Sub mnuReadme_Click()
On Error GoTo handler
RichTextBox1.LoadFile "Readme.txt", rtfText '请写好Readme.txt文件并存入程序所在文件夹中
Me.Caption = "超级记事本：" & "使用说明"
Exit Sub
handler:
MsgBox "使用说明文档可能已经被移除，请与作者联系。", vbOKOnly, " 错误信息"
End Sub
'关于
Private Sub mnuAbout_Click()
MsgBox "超级记事本 Ver1.0 版权所有(C) 2001 土人",vbOKOnly,"关于"
End Sub

'设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单）

Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu mnuEdit, vbPopupMenuLeftAlign
Else
Exit Sub
End If
End Sub

10，VB中，如何设置字体为小四？

text1.foresize=xx'"磅"
初号=42磅=14.82毫米
小初=36磅=12.70毫米
一号=26磅=9.17毫米
小一=24磅=8.47毫米
二号=22磅=7.76毫米
小二=18磅=6.35毫米
三号=16磅=5.64毫米
小三=15磅=5.29毫米
四号=14磅=4.94毫米
小四=12磅=4.23毫米
五号=10.5磅=3.70毫米
小五=9磅=3.18毫米
六号=7.5磅=2.56毫米
小六=6.5磅=2.29毫米
七号=5.5磅=1.94毫米
八号=5磅=1.76毫米
三号对应的磅数是16 那就text1.foresize=16 行了,
或者写个自定义函数来调用