张汉盛和雨馨的视频:几个VB的小题目，我考试卷子，大家帮忙看一下！

前面的三个题目他们都说了，我直接说四和五吧，我是在VB环境下编译成功了才给你的

5
Private Sub Command1_Click()
Dim n%, i%, sum%
n = Val(Text1.Text)
For i = 1 To n
sum = sum + i
Next i
Label1.Caption = sum
End Sub

6

Private Sub Command1_Click()
Dim n%
n = Val(Text1.Text)
Select Case n
Case 1
Label1.Caption = "Monday"
Case 2
Label1.Caption = "Tuesday"
Case 3
Label1.Caption = "Wednesday"
Case 4
Label1.Caption = "Thursday"
Case 5
Label1.Caption = "Friday"
Case 6
Label1.Caption = "Saturday"
Case 7
Label1.Caption = "Sunday"
End Select
End Sub

1,下列哪一个描述是错误的？(D)
A)Option Explicit强制显示声明所以变量
B）变量number和NuMbER是相同的
C）当声明变量时，所以变量都必须是通过使用As关键字或类型符给出其数据类型
D）声明语句可以出现在事件过程内任何位置

2,要想从子过程调用后返回两个结果，下面子过程语句声明合法的是？(C)
A)Sub f1 (ByVal n%,ByVal m!)
B)Sub f2 (n%,ByVal m!)
C)Sub f3 (n%,m%)
D)Sub f4 (ByVal n%,m!)

3,改正下面代码的错误
Private Procedure F1(P As Integer)As Variant
Dim P as Single
P=P*10
F1=P
End Procedure

Private Procedure F1(P As Integer)As Variant
ReDim P as Single
P=P*10
F1=P
End Procedure

4,请编程实现1到n之和，要求如下：
（1）用一个Text控件接收用户输入的n(n>1,n为整数）值；
（2）用一个Label控件显示结果；
（3）用一个Command控件执行计算；
（4）画出用户见面草图，并命名各控件名和主要属性；
（5）编写Command事件过程

Function Command_OnClick()
dim m,i as integer
m=0
for i=1 to text1.text step 1
m=m+i
next
label.caption=m
End Function

5,输入一个数字（1到7）,用英文显示对应的星期一到星期日
用WEEKDAYNAME（）

1、D(声明语句只能出现在窗体模块或者标准模块的最前面。第一题我敢肯定是选择D。redlz2500说得有道理，但他说的正好来说明变量必须通过AS来声明其变量类型。)
2、C(如果加ByVal则要求是变体类型，不能是整型，或是单精度型)
3、Private Procedure F1(P As Integer)As Variant
Dim P as integer
P=P*10
F1=P
End Procedure
4、
**下面的两句写窗体层上
dim n as integer /定义N为整形
dim s as integer /定义S为整形
**下面写在命令按钮事件上
n=val(text1.text)
for i=n to 1 step -1
s=s+n
n=n-1
next i
label1.caption=str(s)
5、***首先在窗体层声明变量
dim x as integer
***画一个命令按钮，然后双击写下如下代码：
x=input("请输入一个1-7的值")
if x=1 then print "Monday"
ElseIf x=2 then print "Tuesday"
ElseIf x=3 then print "Wednesday"
ElseIf x=4 then print "Thursday"
ElseIf x=5 then print "Friday"
ElseIf x=6 then print "Saturday"
ElseIf x=7 then print "Sunday"
End If

注：用Case....Select Case的语句我就不写了，这个很简单。自己琢磨琢磨。
希望我写的能给你一点帮助。

1、c
dim k as integer是强制命名k为integer类型
如果是dim k 的话则默认k为variant类型
另外dim k ,m,n as integer
和
dim k as integer, m as integer , n as integer
是不一样的
yzy8000最好确认一下
不要乱说
2、c(by val是只传递数值，默认好像是传递地址，记得不是很清楚，如果不是c就是a了)
3、Private Procedure F1(P As Integer)就行，后面的as variant要申明function或property才行
As Variant去掉（这个没有错）
4、汗、没有这么多时间来编这个，应该很简单的吧？主要是使用key_click判断用户输入的是不是整数，然后在里面添加label.text（好像是这个属性）=f(text.text)，其中判断输入是不是整数可以使用
chint()或者是int()函数，手头没有资料，由msdn98或者vb的话你自己查一下，利用返回的错误或者是直接转换来判断
差不多可以这样写：
dim intT as integer
on error goto errhandle
x=text2.text
intT=int(x)
exit sub
errhandle:
text2.text=""
exit sub
让你同学帮你改一下
dim f(x as integer)
是一个求和的过程，自己编，一个简单的递推公式（我记不得了……）
5、输入后使用
x=text2.text
select x
case 1
text1.text="Monday"
case ...
end select
这里的text2是你用来输入的text控件名称
这里的text1是你用来显示结果的控件名称
然后上面的代码放到什么你喜欢的地方去
如果你不知道该放到什么地方我就无语了
6、OVER

晕，第一题当然是C了，题目叫选错误的。。。