公司要做一个分析表:
结果应该是这样:
A B C D E
A 0 1 0 0
B 1 0 1 0
C 0 1 1 1
D 1 0 0
E 1 1 0 0
思路是这样的,如果我在A->B中输入0,那么B->A就显示1,在A->C中输入1,那么C->A就显示0,依此类推.A-A,B->B,...不需要显示
把结果要求打印出来,最好能生成一张报表!
那位大歌能帮帮我呀?
结果应该是这样:
A B C D E
A 0 1 0 0
B 1 0 1 0
C 0 1 1 1
D 1 0 0
E 1 1 0 0
思路是这样的,如果我在A->B中输入0,那么B->A就显示1,在A->C中输入1,那么C->A就显示0,依此类推.A-A,B->B,...不需要显示
把结果要求打印出来,最好能生成一张报表!
那位大歌能帮帮我呀?
解决方案 »
- EVERYBODY,HAPPY NEW YEAR!HAVE A NICE YEAR!
- excel 插入行
- 用VB写了个小东西,如果程序不关掉不能关机,请问如果解决呀
- 请问:如何关闭用Data 控件打开的数据库文件?
- 为什么一台机子上的DataReport拷到另一台机子上无法使用?
- 我的程序打包安装后出了问题了,看看有有没有人遇到类似问题啊!!!!!
- 组合查询是不是要写n个select case 有没有其它的办法?
- 求一个简单读取文本文件的源代码
- 紧急!!!快来看看这一段代码!关于数据库更新的!为什么.........????
- 关于图形文件的问题
- 请问sql语句的判断问题~
- 标题不能显示在Windows的任务栏中的问题?
for i=3 to 行max
for j=2 to 行max-2
if a(i,j)=1 then
a(j,10=0
else if a(i,j)=0 then
a(j,10=1
end if
next
next
做的有错,请高手指点
这个繁琐是繁琐一点, 不过,难度应该是很简单的吧。你就说你哪里不会吧?0到1或1到0的转换,应该没问题吧? 打印排版吗? 两层循环嵌套就行了。
Dim i As Integer
Dim j As Integer
For i = 1 To 5
For j = 1 To 5
Print i * j,
Next j
Print
Next i
Dim a(8, 8) As Variant
Dim i As Integer, j As Integer
a(0, 0) = " "
For i = 1 To 8
a(i, 0) = Chr(i + 64)
a(0, i) = Chr(i + 64)
For j = i + 1 To 8
a(i, j) = Int(Rnd * 2)
a(j, i) = 1 - a(i, j)
Next
NextFor i = 0 To 8
For j = 0 To 8
Print a(i, j) & vbTab;
Next
Print
Print
Next
End Sub
Dim i As Integer
Dim j As Integer
For i = 1 To 5
For j = 1 To 5
printer.Print i * j,
Next j
printer.Print
Next i
printer.enddoc
还有那些数据是我得输入的,我的代码是这样的,就是不能把所显示的文本对齐,希望你能抽时间看看
Private Sub Command1_Click()
Cls
End SubPrivate Sub Command2_Click() Dim Msg ' 声明变量。
On Error GoTo ErrorHandler ' 设置错误处理程序。
Me.PrintForm ' 打印窗体。
Exit Sub
ErrorHandler:
Msg = "The form can't be printed."
MsgBox Msg ' 显示信息。
Resume NextEnd SubPrivate Sub start_Click()
Dim a(1 To 4, 1 To 4)
Dim b(4)
Dim sum(4)
For p = 1 To 4
sum(p) = 0
Next
b(0) = "政治处"
b(1) = "办公室"
b(2) = "财务科"
b(3) = "运政综合管理科"
For i = 1 To 4
For j = 1 To 4
If IsEmpty(a(i, j)) And i <> j Then
Print b(i); "->"; b(j);
a(i, j) = InputBox("请输入得分,如果好请输入1否则输入-1:")
1
a(j, i) = -a(i, j)
End If
If i = j Then
a(i, j) = 0
End If
Next j
Next i
For q = 1 To 4
For w = 1 To 4
If a(q, w) > 0 Then
sum(q) = sum(q) + a(q, w)
End If
Next w
Next q
For p = 1 To 4
Print Tab(5 * p); b(p);
Next
Print " 总和";
Print
For k = 1 To 4
Print Tab(20 * k); b(k);
For n = 1 To 4
Print Tab(6 * n); a(k, n);Next n
Print " "; sum(k);
Print
Next kEnd Sub还有个问题,点打印总是不能把窗体中的文本打印出来