窗体创建实验分析怎么写

VB的问题 最好用简单的答案

7. 在名称为Form1，标题为“菜单”的窗体上，设计满足如下要求的菜单。

在名称为form1的窗体上画一个名称为cbol的组合框，组合框的列表项分别是北京，天津，上海。
请设置组合框的参数，使其外观如图所示，窗体的标题是是“使用组合框”。

VB测试题 求具体步骤！
在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性满足以下要求：　　1） Text2可以显示多行文本，且有垂直和水平两个滚动条；　　2）运行时在Text1中输入的字符都显示为“*”。运行后的窗体如图所示。

VB，计算机二级问题
要在窗体Form1内显示“新年快乐”，使用的方法是____
A.Form.caption="新年快乐" B.Form1.caption=""
C.Form.print"新年快乐" D.Form1.print"新年快乐"

窗体上有一个名为List1的列表框（允许做多项选择），一个名称为Text1的文本框，三个命令按钮，标题分别为“求全部项目和”，“求选定项目之和”，“删除选定项目”
【要求】
1）程序运行后，将把1～100之间能够被7整除的数添加到列表框中。
2）单击“求全部项目和”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。
3) 单击“求选定项目之和”按钮，则对List1中的选中的项目进行累加求和，并在文本框中显示计算结果。
4) 单击“删除选定项目”按钮，则删除List1中的选中的项目。

在窗体上有一个命令按钮Command1,编写事件代码如下：
Private Sub Command1_Click()
Dim a(10),p(3)As Integer
k=5
for i=1 to 10
a(i)=i﹡i
next i
for i =1 to 3
p(i)=a(i﹡i)
next i
for i=1 to 3
k=k+p(i)﹡2
next i
msgbox k
end sub
打开窗体运行后,单击命令按钮,消息框中的输出结果是__.
我算的结果是167,但正确答案是201,我怎么也搞不懂,
不好意思我没分了.

谁会这道题
25、窗体上有一个名为Command1的命令按钮并有如下程序 Private Command1_Click() Dim m As Integer , n As Integer m=InputBox(“输入第一个数”) n=InputBox(“输入第二个数”) Do While m<>n Do While m>n m=m-n Loop Do While n>m n=n-m Loop Loop Print m End Sub 该程序的功能是 A、求数值m和n的最大公约数 B、求数值m和n的最小公倍数 C、求数值m和n 中的较大数 D、求数值m和n中的较小数

VB问题：某窗体的Name属性为FrmOK，它的Click事件过程名是？A.Form_Click（）B.Form1.Click（）C.FrmOK_（）D.Me_Click（）
答案是A,为什么？C不可以吗？
如果有多个窗体呢？那这样不是单击每个窗体都会响应吗？

VB求出50以内所有奇数的和
两行星号号之间填空
(事件)双击窗体.
' (响应)求出50以内所有奇数的和.
' 将结果存入变量SUM中
'-------------------------------------------------
Private Sub Form_dblClick()
Dim sum As Integer
'
YZJ (sum)
End Sub
Private Sub YZJ(i As Integer)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "19.out" For Output As #OUT
Print #OUT,i
Close #OUT
End Sub

5·执行下面程序,单击Commandl按钮后,显示在窗体上的第一行内容是(13)
第二行内容是( 14 )、第三行的内容是( 15 )
Option Explicit
Dim A As Integer
Private Sub Commandl_Click()
Dim B As Integer
A=1：B=2
Print funl(funl(A,B),B)
Print A
Print B
End Sub
PriVate Function funl(X As Integer,Y As Integer)As Integer
Dim I As Integer
For I=1 To Y
Y=Y+1
X=X+1
A=X+Y
Next I
funl=A+Y
End Function

设计窗体界面,随机生成10个 -100到100之间的整数存放到一堆数组A中,统计其中正数的个数,正数的平均值,负数的个数,负数的平均值.

一道vb题目
在窗体 Form1 中用 “Public Sub Fun(x As Integer,Y As Single)” 定义过程 Fun ，在窗体 Form2 的某事件过程中定义了变量 I 和 J 均为 Integer ，若要在此过程中调用 Form1 中的 Fun 过程，则下列语句中正确的(29) B D。
A ． Call Fun(I ， J)
B ． Call Forml.Fun(I ， J)
C ． Fun I ， (J)
D ． Form1.Fun I ， (J)

vb题 求解
1，在窗体上建立一个单选按钮数组Option1和标签Label1。请在下面空白处填入合适内容，使之单击一个单选按钮时，将该按钮的标题作为标签标题。
Private Sub Option1_Click(Index As Integer)
　　Label1.Caption=_____
End Sub
A）Option1(Index).Caption
B）Option1.Caption(Index)
C）Option1.Caption
D）Option1(Index+1).Capton
2，【单选题】假定有如下的Sub过程：
Sub S（byval x As Single, y As Single）
t = x : x =t/y : y =t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click ( )
Dim a As Single, b As Single
a =8 : b =5
S a, b
Print a, b
End Sub
程序运行后，单击命令按钮，输出结果为_____。
A） 1.6 　　5
B） 1.6　　 3
C） 8 5
D） 8 　　 3

VB一个非常简单的小问题
我编一个简单的计算器（只有乘法计算）,出了点小问题.
这是Form窗体.

代码如下：
出错了：

怎么回事呀?

一个简单的程序填空.
窗体上有一个命令按钮Command1和文本框Text1,程序运行时在Text1中输入不超过100个字母的字符串,单击命令按钮,将文本框中的字符按其ASCII码值由小到大重新排列,并在Label1上显示排序后的字符串.
空格的地方应该怎样填?请知道的朋友帮帮忙,
Private Sub Command1_Click()
Dim A(100) As String * 1,str1 As String,T As String
Dim I As Byte,J As Byte,P As Byte,n As Byte
Str1=Text1.Text：n=Len(str1)
For I = 1 To n
A(I) = ____________
Next I
For I = 1 To n-1
P = I
For J = I + 1 To n
____________
Next J
If PI Then ____________
Next I
For I = 1 To n
____________
Next I
End Sub

VB,万分感谢
29、窗体上有命令按钮Command1和Command2，请阅读下列程序： Dim a As Integer: Private Sub Command1_Click() : a = a + 3 : Print a: End Sub: Private Sub Command2_Click() : a = a + 2 : Print a: End Sub，运行时，分别单击Command1和Command2按钮，输出的结果为( )。（1分）

A、3 5

B、3 2

C、2 5

D、2 3


30、窗体上有命令按钮Command1和Command2，阅读下列程序： Dim a As Integer: Private Sub Form_Load(): a = 0: a = a + 1: End Sub: Private Sub Command1_Click(): Dim a As Integer:a = a + 2:Print a: End Sub: Private Sub Command2_Click(): Print a: End Sub:运行时，先后单击Command1 和 Command2 按钮，输出的结果为( )。（1分）

A、3 1

B、3 3

C、2 2

D、2 1


32、阅读下列程序： Private Sub Form_Click(): Dim m As Integer: Static n As Integer: For i = 1 To 3: n = n + i: m = m + i ^ 2: Next: Print m, n: End Sub:运行时，两次单击窗体，输出结果为( )。（1分）

A、14 12

B、14 6

C、28 6

D、28 12

vb多选 帮忙做一下啊
多选题
1.下面窗口中属于visual basic集成开发环境的是( abcd ).
a)窗体设计窗口 b)工程资源管理器 c)属性窗口 d)窗体布局窗口
2.在下面语句中,属于文件基本操作语句的是( ).
a) kill 语句 b) filecopy 语句 c) write # 语句 d) name 语句
3.使用data数据控件时一般要首先设置该控件的( )属性.
a) connect b) databasename c) recordset d) recordsource
4.假定有如下事件过程：
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 2 then
popupmenu popform
end if
end sub
则一下描述中正确的是( ).
a)此事件过程用于显示一个弹出式菜单 b)popform为弹出式菜单的名称
c)button = 2表示按下的是鼠标左键 d)参数x、y指明鼠标的当前位置
5.假定有以下sub过程：
sub s1(byval x as integer , y as integer)
dim t as integer
t = x
x = y
y = t
end sub
则以下说法正确的是( ).
a)此sub过程可以实现两个变量值的交换,但交换结果不回传.
b)此sub过程可以实现两个变量值的交换,其中的一个交换结果可以回传.
c)此sub过程的两个形式参数中有一个是按值传送的.
d)此sub过程的两个形式参数是按址传送的
6.在执行语句msgbox(“***信息!”,vbokonly,”程序提示”)后,弹出的信息框窗体显示的内容有( ).
a)信息框标题显示 ”程序提示” b)信息框窗体上显示 “***信息!”
c)信息框窗体上只显示”确定”按钮 d)信息框窗体上显示的按钮不确定
7. 创建visual basic应用程序的一般步骤为( ).
a)创建程序的用户界面 b)设置界面上的各个对象的属性
c)编写对象响应事件的程序代码 d)测试和调试应用程序
8.执行下面的事件过程后,在窗体上显示的结果有( ).
private sub form_click()
print 25 / 2 mod 2 * 3
print 3 * 7 7 / 3
end sub
a) 0 b) 4 c) 1 d) 10
9.下列能打开菜单编辑器的操作是( ).
a)按下[shift+alt+m]组合键 b)选择“工具”菜单中的“菜单编辑器”命令
c)单击工具栏中的“菜单编辑器”按钮 d)按下[ctrl+e]组合键
10. 执行下面的事件过程后,在窗体上显示的结果有( ).
private sub form_click()
print int(abs(20-23)/2)
print abs(fix(-2.5))
end sub
a) 1 b) -1 c) 3 d) 2
11. 下面方法中,属于窗体常用的方法有( ).
a)show方法 b)hide方法 c)cls方法 d)print方法
12. 使用textbox绑定控件时必须首先设置该控件的( )属性.
a) datasource b) datamember c) datafield d) dataformat
13. 对下面数组说明语句描述正确的有( ).
dim a(-2 to 7) as integer
a)该数组可能是模块级数组或局部数组 b)数组下标的下界是-2
c)数组元素个数为10个 d)数组元素的类型为整型
14. 下列方法中,属于move方法群组的有( ).
a)movefirst方法 b)movelast方法 c)movenext方法 d)edit方法
15. 计时器控件特有的属性是( ),支持的事件是( ).
a)value属性 b)interval属性 c)click事件 d)timer事件

在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1）,然后编写如下两个事件过程：
Private Sub Command1_Click()
a = Text1.Text + Text2.Text
b = Text1.Text * Text2.Text
Print a; b
End Sub
Private Sub Formm_Load()
Text1 .Text = ""
Text2 .Text = ""
End Sub
程序运行后,在第一个文本框（Text1）和第二个文本框（Text2）中分别输入3和4,然后单击命令按钮,则输出结果为( C ).
A) 7 12 B) 34 3*4 C) 34 12 D) 出错

下面这到VB题目的答案及原因
第一道 设a=20，b=15，c=6，执行语句 Print a>b>c后，窗体上显示的是（）
A True B False C20 D 错误信息
第二道 下列语句a，b，x，y都是整型变量，则只有（）语法格式是正确的。
A y=(a-1)(b-1) B if a>1 not (or b>3) then x=4
C x=4a D if a>b-2*3 then y=a+b

VB编程 跪求高人解答!
编制一个子程序,在窗体上输出三角形图案.
要求：可以指定图案的构成字符、可以指定行数、可以指定正三角或倒三角.
子程序定义：Sub TriPat(C As String, N As Integer, D As Boolean)
其中C是构成字符.N是行数.D是方向,True为正三角,False为倒三角.
使用举例：TriPat "@", 3, False 产生的图案如下(“.”代表空格)：
@@@@@
.@@@
..@

vb中怎么设置每摁一下窗体变换一次颜色?
为什么在vb中form1_load下面代码写了画圆的代码运行时却显示不出来？只有在form1_click中才能用？
题目要求：
设置坐标系，左上角坐标为（0，0），右下角坐标为（20，20）；
当重复单击窗体时，以红、黄、绿的顺序交替出现实心圆，每个圆的半径均为2，其圆心也都在窗体的***。
这道题的代码应该怎么写？

VB问题 求大神解答

题目

窗体上有两个复选框,名称分别为chk1,chk2,标题分别为“能被5整除”和“能被6整除”,一个命令按钮command1,以及一个文本框text1.编写适当的时间过程,使得程序运行时对复选框进行选择,单机命令按钮,可根据下表的规定,计算100~200之间符合要求的整数和,把结果显示在text1中.

选择 要求

chk1 能被5整除的数

chk2 能被6整除的数

chk1和chk2 既能被5整除,也能被6整除的数

都不选择 所有数

英语翻译
浏览并打开文件的窗体
我是这样写的：
The form which browse and open the file.
有没有错误,还有什么比较好的译法.

实验8：编写一个VB.NET程序,要求3个问题在同一个窗体内实现.在窗体上设置三个按钮,单击每个按钮,分别完成每个问题.
在窗体上放置1个文本框.在文本框中输入英文字符,单击按钮会将文本框中的所有大写字符转换为小写,所有小写字符转换为大写.如输入I Just MEET Her,则输出为i jUST meet hER.
输入一个学生的五门课的考试成绩,判断其是否为优秀.优秀的条件为：五门课成绩总分超过450分或每门课程在88以上或每门主课（前三门）的成绩都在95分以上其他课程在80分以上.
运输部门的货物运输与里程有关,距离越远,每吨货物的单价越低,假设每吨单价P与距离S之间的关系如下,
32 S

在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市消失。下列在List_Click事件过程中能正确实现上述功能的语句是（ ）
（A）List1.RemoveItem List1.text

（B）List1.RemoveItem List1.clear

（C）List1.RemoveItem List1.ListCount

（D）List1.RemoveItem List1.ListIndex

程序编写.（VB）
．通过InputBox函数生成一个输入对话框,如果用户输入了一个整数,则在窗体上显示该数的绝对值,否则,要求用户重新输入.3．有一分数序列2/1,3/2,5/3,8/5,……,求出这个序列的前20项的和.4．有一袋球（100到200之间）,如果一次数4个,则剩2个；一次数5个,则剩3个；一次数6个,则正好数完,求该袋球的

1,VB的续行标志是2,Int(RND*499) 2的范围是3,在窗体上打印出ASCII码值为65的字母,语句为4,chr(asc...
1,VB的续行标志是2,Int(RND*499) 2的范围是3,在窗体上打印出ASCII码值为65的字母,语句为4,chr(asc("a") 5)的结果是,5,Len(str0.15)的结果是,6,用Preserve的Redim只能改变数组什么的大小7,VB变量的两种形式,即对象的属性变量和8,VB结构化程序设计的3种基本结构是

对窗体Form1设计了菜单mnuMain，如果想右键单击鼠标弹出该菜单，应该在Form1的MouseDown事件中使用Popupmenu方法，正确的语句为_______
A. Popupmenu Form1.mnuMain B. mnuMain.Popupmenu
C. Form1.Popupmenu mnuMain D. Form1.mnuMain Popupmenu

随机产生的80个0到100的整数,并用数组保存.并在窗体上输出不及格的人数,60到69的人数,70到79的人数
80到89 的人数,90到100的人数,这个程序应该怎么改?有什么错吗?
Option Base 1
Private Sub command1_click()
Randomize
Dim a(80) As Variant
For i = 1 To 80
a(i) = Int(Rnd * 100 + 0.5)
Next i
For i = 1 To 80
If a(i) >= 90 Then
much = Len(a(i))
Print "90—100的人数"; much
ElseIf a(i) >= 80 And a(i) = 70 And a(i) = 60 And a(i)

下列关于报表和窗体的叙述中,不正确的是（）
A、报表和窗体的数据来源都是基础表、查询和SQL语句
B、创建窗体时所用的控件基本上都可以在报表中使用
C、设计窗体时所用到的各种控件操作也同样可以在报表的设计过程中使用
D、在报表和窗体中都可以输入数据

VB编程题目求教
若已建立了Form1、Form2两个窗体，默认启动窗体为Form1。通过 (1) 菜单的(2) 的 (3) 选项卡，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行 (4) 句。
9．在文本框中，通过 (5) 属性能获得当前插入点所在的位置。
10．表示x是5的倍数或是9的倍数的逻辑表达为 （7） 。

程序填空
1、输入文本框中若干字符，统计有多少个元音字母、有多少个其他字母，直到按 Enter 键结束，并显示结果，大小写不区分。其中 Count Y 中放元音字母个数，Count C 中放其他字符个数。
Dim Count Y%, Count C%
Private Sub Tex1_KeyPress(KeyAscii As Integer)
Dim C$
C = （1 ）
If “A”<=C And C<= “Z” Then
Select Case （2 ）
Case （3）
Count Y = Count Y + 1
Case （4）
Count C = Count C + 1
End Select
End If
If （5） Then
Print “元音字母有”；Count Y；“个”
Print “其他字母有”；Count C；“个”
End If
End Sub
2、下面的程序是将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序。
Private Sub Form_Click( )
Dim a ,i%,n%,m%
a=Array(19,17,15,13,11,9,7,5,3,1)
n=Ubound(a)
ReDim (6)
m=Val(InputBox(“输入欲插入的数”))
For I =Ubound(a)-1 To 0 Step （7）
If m >=a(i) Then
（8）
If i=0 Then a(i)=m
Else
（9）
Exit for
End If
Next i
For i =0 To （10）
Print a ( i )
Next i
End Sub

2、子过程MoveStr()是把字符数组移动m个位置，当Tag为True左移，则前m个字符移到字符数组尾，例如，“abcdefghij”左移3个位置后，结果为“defghijabc”;当Tag为False右移，则后m个字符移到字符数组前，如“abcdefghij”右移3个位置后，结果为“hijabcdefg”。
子过程如下：
Public Sub MoveStr(a$(),m%,Tag As Boolean)
Dim i%,j%,t$
If (4) Then
For I=1 To m
(5)
For j=0 To (6)
a(j)=a(j+1)
Next j
(7)
Next I
Else
For i=1 To m
(8)
For j=Ubound(A) (9)
a(j)=a(j-1)
Next j
(10)
Next I
End If
End Sub

编程
随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。

2、编程实现右图所示的结果。 就是一个三角形 1到9最后是0为止
1
222
33333
44444444

3、随机产生10个1~10正整数放于数组a中，利用顺序查找方法，完成键盘输入的某一关键值；若找到则输出显示关键值在数组中的位置，否则显示“查找失败”。

求计算机软件技术基础答题答案
设计窗体上有文本框按钮;列表框各一个,在文本框中输入任意一个英文句子,单击按钮,程序将该句分解为单词,每一个单词作为一个条目添加到列表框中.

vb编程 急求~
第1题：单击窗体，在窗体上画出一个当前窗体中所能容纳的最大的红色实心椭圆（即椭圆的上下左右分别与窗体的上下左右相切）。
第2题：程序运行时，使窗体的高度和宽度相等，单击窗体，改变窗体坐标系长宽均为300个单位，过窗体中点（即原点）画出互相垂直的两条蓝色直线，用红色画函数曲线y=x2-2x+6在[-10，10]区间的图形(要求图形开口向上)。

VB程序设计题目
1、用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。
2、利用计时器控件来实现文字的水平移动，要求：
(1) 运行时标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进行窗体（尾部先进入）。
(2) 文字移动时颜色不断产生随机变化。
3、 求出1-10000之内所有被13除余7，被7除余5，被5除余3的数，并将所求结果以每行5个写入到D:result.txt 中。

判断题
1．在循环体内，循环变量的值可以被改变。
2．数组可以不声明，直接引用。
3．声明形参处缺省传递方式声明，则为按地址传递（Byref）。
4．Sub过程名在过程中必须被赋值。
5．以操作模式 Append 打开的文件，既可以进行写操作，也可以进行读操作。
6．按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。
7．VB中的RGB函数可以返回的不同颜色值有255×255×255种。
8．可以用cls方法清除图片框或影像框中的文字和图形内容，但不能清除图片内容。
9．列表框控件List1的最后一个表项为List1.List(List1.Listcount-1)。
10．VB默认坐标系的（0，0）点，位于窗体的中心。

VB题目，大神来解答，很容易

1）在名称为Form1标题为“选课”的窗体上画一个复选框数组，名称为CH1，

共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、

“计算机”，其中“语文”、“计算机” 复选框处在选中状态下，运行

时的窗体如图所示。 请画控件并设置相应属性。

（2）在名称为Form1的窗体上画一个名称为HS1的水平滚动条，其刻度值范围

为 1～100；画一个命令按钮，名称为C1，标题为“移动滚动框”。请编

写适当的事件过程，使得在运行时，每单击命令按钮一次（ 假定单击次

数少于10次 ），滚动框向右移动10个刻度。运行时的窗体如图所示。

要求程序中不得使用变量，事件过程中只能写一条语句。

vb listbox题
创建一个应用程序，界面如图所示，要求：设计窗体含两个列表框list1和list2，其中列表框1代表水果市场，其中包含市场上可买的水果，列表框2***的水果篮，两个命令按钮分别为“购买”和“退货”可用，“统计”按钮不可用；单击“购买”按钮时，在“水果市场”选定的水果将移入“我的水果篮”显示框内，且“统计”按钮可用；单击“退货”按钮时，将“我的水果篮”选中的水果移回“水果市场”；单击“统计”按钮，“购买”和“退货”按钮不可用，将统计“我的水果篮”中水果种类，并将该种类数显示在弹出的信息提示框中“我的水果篮中有4种水果”其中水果种数是变量，随着每次选去之后的统计不同而不同；确认后返回购买界面；安全卸载。

VB编程题目求解

1. 该工程文件中有两个窗体form1、form2，要求将form2设为启动窗体。运行时，单击form2上的“显示”按钮，则显示出form1窗体，单击form1的“隐藏”按钮，则form1窗体消失。

.

2

以下数列：1,1,2,3,5,8,13,21，……，的规律是从第3个数开始，每个数是它前面两个数之和。按如下界面设计，运行时，选中一个单选按钮后，单击“计算“按钮，则计算出上述数列的第n项的值，并显示在文本框中，n是选中的单选按钮后面的数值。（提示，计算结果较大，使用长整型变量）。

【选作题】用两重循环在窗体上显示如图所示
【提示】解该题的方法有两种：
方法一：利用数值实现，就是将各列列号通过运算连接起来。
方法二：利用Mid函数取字符串子串来实现，即从字符串中不断取所需的子字符串而得。

求vb试题 解答 ，十万火急

【程序1】请写出单击窗体后，窗体上的显示结果。

option base 0

private sub form_click()

dim a

dim i as integer

a=array(1,2,3,4,5,6,7,8,9)

for i=0 to 3

print a(5-i);

next

end sub

【程序2】请写出在text1、text2、text3中依次输入2、3、4后，单击窗体时label1的显示结果。

private sub form_click()

dim a as single, b as single, c as single

a = text1.text: b = text2.text: c = text3.text

label1.caption = str(a * a + 2 * b * b + 3 * c * c)

end sub

【程序3】请写出单击窗体后，窗体上的显示结果。

private sub form_click()

for i% = 1 to 3

print spc(3 - i%);

for j% = 1 to (2 * i%) - 1: print "w";: next j%

print

next i

end sub

——————————————————————————

五、程序填空题

1．【程序说明】下面是一段计算数学表达式的程序。

private sub form_click()

dim n as integer, p as integer, s as single, q as integer, i as integer

n = inputbox("请输入n的值:")

s = 0

p = -1

q = （1）

for i = 1 to （2）

p = -p

q = （3）

s = （4） + p * i / q

（5）

print s

end sub

_______________________________________________

________________________________________________________

________________________________________________________

严肃声明，本人求解不是为了***！

C#判断一个点是否在三角形内?
在Form窗体中,指定三个坐标点A（ax,ay）,B(bx,by),C(cx,cy),怎么判断一个任意点P（px,py）在点A,B,C所组成的三角形区域内?

求教如何在vb中产生如下数列
窗体中存在4个text,name为text1-text4,一个command,name为"command",caption为"计算",text1、text2产生数列的前两项,text3为项数.数列产生规则为,前两项为小于10正整数,将此两数相乘,若城际小于10,则以此乘积为第三项,若大等于10,则以乘积的十位数为数列第三项,个位数为第四项.再用数列的最后两位相乘,用上述规则产生后面的项,直到第n项,将此数列的前n项显示在text4中.快考试了,头痛ing

编写VB程序,在窗体上输入5个整数存放在数组中,找出这些数中最大值和最小值及它们所在的位置,
(接上)并且求出所有元素的相加之和.

谁告诉我下答案
设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是。

A; Private Sub List1_Click()
Print Form1.Text
End Sub
B; Private Sub Form1_Click()
Print List1.Text
End Sub
C; Private Sub List1_Click()
Print List1.Text
End Sub
D; Private Sub Form1_Click()
List1.Print List1.Text
End Sub

今天下午就要交了!
VB编程：用IntputBox函数输入3个数据,如果这3个数据能够成三角形,计算并在窗体上输出三角形的面积
1.构成三角形的条件是任意两边之和大于第三边,三边为abc,面积为s=根号x(x-a)(x-b)(x-c),其中：x=1/2(a+b+c)
这是分两题的,面积计算的是第二题