Question

VB请大侠帮忙修改一下

'单条件----同类项对应的元素之积再汇总求和
Function JQH(P1 As Variant, P2 As Range, P3 As Range) 'P1比较基数,P2对比范围,P3求和范围
Dim Xcell As Range
Dim A, B As Variant
B = 0
For Each Xcell In P2
If Xcell.Value = P1 Then
A = 1
For y = Xcell.Column To P3.Columns.Count
sss = P3.Cells(Xcell.Row - (P2.Row - 1), y).Value
If sss = "" Then sss = 1 '如果单元格为空 计为1 作用排除空值
A = CCur(A * sss) '同行值相乘
Next y
B = B + A '不同行值相加
End If
Next Xcell
JQH = B
End Function
请把以上代码,改成多条件同类项对应的元素之积再汇总求和。比如：比较基数P1是C21:F21，对比范围P2的列数与P1相等。
多谢了!!!

Answer 1

填空
截止时间： 2011年11月18日
满分分数： 5.0
作业内容： 第02章
1、使对象获得焦点的属性是___

2、在VB.net中使用___字符作为续行符。

3、VB.Net解决方案文件的扩展名为___

4、VB.NET项目文件的扩展名为___

5、在程序中可以通过___获得启动程序的路径

6、作为对象的表示在程序中被引用的属性是___

7、用来设置控件的大小的属性是___

8、可以设置对象的___属性来改变文字的外观

9、设置控件的正文颜色的属性是___

10、设置控件背景颜色的属性名称是___

第03章
1、INT(100*RND(1))产生的随机整数的闭区间是().___

2、Rnd函数不可能产生的值是___

3、\、/、Mod、*等4个算术运算符中,优先级最低的是().___

4、表达式(-1)*Math.Sign(-100+Int(Rnd*100))的值是().___

5、表达式(7\3+1)*(18\5-1)的值是().___

6、表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是___

7、表达式25.28 Mod 6.99的值是___

8、表达式4+5\6*7/8 Mod 9的值是___

9、表达式INT(8*SQRT(36)*10^(-2)*10+0.5)/10的值是___

10、表达式Mid("SHANGHAI",6,3)的值是___

11、产生[10,37]之间的随机整数的VisualBasic表达式是___

12、常量-0.00013579的科学计数法是___

13、代数式exSin(30°)2x/(x+y)lnx对应的VB.NET表达式是___

14、代数式x1-|a|+ln10+sin(x2+2л)/cos(57o)对应的VB.NET

表达式是___

15、函数InStr("VB程序设计教程","程序")的值为___

16、函数Int(10*Rnd)是在()范围内的整数.___

17、函数Len(Str(Val("123.4")))的值为___

18、函数UCase(Mid("visualbasic", 7, 5))的值为___

19、求以10 为底X 的常用对数的表达式为___

20、如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是___

第04章
结构话程序设计的三种控制结构，分别是___顺序、选择结构

2、输入对话框函数是___

3、消息对话框函数是___

4、向输出窗口或控制台输出的语句是___

5、函数Format(1075.482,"00000.0000")的值是什么？___

6、使用Select case 结构判断变量 在80 到90之间的表达式是___

7、使用Select case 结构判断变量在是否大于90的表达式是___

8、整型变量 i = 10 那么以下循环语句执行的次数为

9、循环语句FOR K=1 TO 10 STEP –1的循环次数为___

10、由For k=35 to 0 step 3:next k循环语句控制的循环次数是___

第07章
通过判断单选按钮的___属性是否为真，来获知单选按钮的状态

2、复选框的___属性表示其状态。

3、在一组选项中，要求只能选中其中一个选项，应该用___控件来实现。

4、可以使用___控件来进行控件的分组，来提供视觉上的区分和总体的激活和屏蔽。

5、组合了列表框和文本框的特性的一种控件是___

6、组合框有三种样式，分别为：下拉组合框、简单组合框和___

7、组合框和列表框中存储列表选项的属性是___

8、列表框和组合框当前被选中的行的序号属性是___

9、可用通过设置列表框和组合框的___属性，来对其中的选项进行排序。

10、删除组合框combox1的选项中指定索引的选项的方法是___

Answer 2

MSGBOX "抓壮丁啊你"