VISUAL BASIC模拟试题题库
本试题来自：（2009年VISUAL BASIC模拟试题，）二、填空题
请将每一个空的正确答案写在【1】至【15】的横线上。以下程序用来建立一个5×5矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果如下图所示。
Private Sub form Click()
Dim s(5, 5)As Integer
for N =1 To 5
for M = 1 To 5
if 【13】 Or 【14】 then
S(N. M)= 0
for N =1 To 5
for 【15】
Picture1. Print Tab(M *3); s(N, M);
End Sub正确答案：[13]n=m答案解析：有，
您可能感兴趣的试题
填空题：（)在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在 Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click()
Dim str As String，s As String，c As String
str=UCase(Textl)
While c＞="A"
If InStr(str，c)=0 Then
s = ______
c = Chrs(Asc(c) ______)
If s＜＞" " Then
End Sub答案：有，答案解析：有，填空题：（)设有如下程序
Private Sub Form Click()
Dim a As Integer， b As Integer
a=20： b=50
Print "a="； a， "b="； b
Sub p1(x As Integer， ByVal y As Integer)
Sub p2(ByVal x As Integer， y As Integer)
Sub p3(ByVal x As Integer， ByVal y As Integer)
该程序运行后，单击窗体，则在窗体上显示的内容是：a==______和b=______。答案：有，答案解析：有，
VISUAL BASIC模拟试题最新试卷
VISUAL BASIC模拟试题热门试卷提问回答都赚钱
> 问题详情
设矩阵A是一个对称矩阵(aij=aji，1≤i,j≤8)，若每个矩阵元素占3个单元，将其上三角部分(包括对角线)
悬赏：0&&答案豆&&&&提问人：匿名网友&&&&提问收益：0.00答案豆&&&&&&
设矩阵A是一个对称矩阵(aij=aji，1≤i,j≤8)，若每个矩阵元素占3个单元，将其上三角部分(包括对角线)按行序为主序存放在数组B中，B的首地址为1000，则矩阵元素a67的地址为(36)。A．1093B．1096C．1108D．1132请帮忙给出正确答案和分析，谢谢！
发布时间：&&截止时间：
查看最佳答案前请先输入下方的验证！
网友回答&(共0条)
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&3.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&3.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&3.00元收益
回答悬赏问题预计能赚取&12.00元收益
回答悬赏问题预计能赚取&12.00元收益
回答悬赏问题预计能赚取&3.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&3.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&3.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&3.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&20.00元收益
回答悬赏问题预计能赚取&20.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
为你请到的专家
&&&&采纳率：76%&&&
&&采纳率：97%&&&
&&采纳率：88%&&&
&&&&采纳率：25%&&&
&&采纳率：90%&&&
[] [] [] [] [] [] [] [] [] [] [] []用二维数组，求一个3×3的整型矩阵对角线元素之和。用VC++6.0编程，求高手帮忙发布日期：&&&&废墟生存法则1：莫造业，造业遭雷劈&&用二维数组，求3×3的整型矩阵对角线之和。用V6.0，求帮忙#includevoid main(){ int i,j,t,A[3][3]; for(i=0;i<3;i++)
for(j=0;j<3;j++) scanf("%c",A[i][j]); t=A[0][0]+A[1][1]+A[2][2]; printf("%dn",t);}我编的不正确的 求高手指点，然后告诉我输入二维整型数组，谢谢--------------------------这个啊！嘿嘿……你的是输入的语句，%c是字符的输入形式，而你定义的是int型，应该为%d。如下:#includevoid main(){ int i,j,t=0,A[3][3]; for(i=0;i<3;i++){
for(j=0;j<3;j++) scanf("%d",A[i][j]);}for(i=0;i<3;i++){for(j=0;j<3;j++)if(I==j) t+=A[i][j];} printf("%dn",t);}哦了
能帮助你！--------------------------
输入一个数就按一下回车键，这条语句不对
scanf("%c",A[i][j]);#includevoid main(){ int i,j,t,A[3][3];
for(i=0;i<3;i++) {
for(j=0;j<3;j++)
scanf("%d",&A[i][j]);
t=A[0][0]+A[1][1]+A[2][2];
printf("%dn",t);}
--------------------------
输入 格式 %dscanf("%d",&A[i][j]);对角线有两条。中间交叉点的 元素 计算1次:t=A[0][0]+A[1][1]+A[2][2] + A[0][2] + A[2][0]
--------------------------
scanf("%c", A[i][j]);改为 scanf("%d", &A[i][j]);就可以了 如果是考虑两条对角线，那就如 L_o_o_n_i_e说的
--------------------------：/question/.html&&&&&&&&&&我烧烧烧，炼丹，炼器，炼符，废墟炼丹师最帅&&
相关文章：&&&&&&&&&&
最新文章最新查看
最新评分最近文章··········VISUAL BASIC模拟试题题库
本试题来自：（2007年VISUAL BASIC模拟试题，）填空题（每空2分，共30分）请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。
　　Private Sub Command1 Click()
　　　　Dim s(6，6)
　　　　For i=1 To 6
　　　　　　　For j=1 To 6
　　　　　　　　　If i=j Then
　　　　　　　【
　　　　　Else
　　　End If
　　　Print 【
　　　Next j
　　　Print
　　　Next i
　　End Sub
正确答案：s(i，j)=1答案解析：有，
您可能感兴趣的试题
填空题：（)下列程序是判断一个整数(>=3)是否为素数，请补充完整。
　　Dim n As Integer
　　n=InputBox("请输入一个整数(>=3)")
　　k=Int(Sqr(n))
　　swit=0
　　While i<=k And swit=0
　　　　If n Mod i=0 Then
　　　　【
　　　　Else
　　　　【
　　　　End If
　　If swit=0 Then
　　　　Print n；"是一个素数。"
　　　　Print n；"不是一个素数。"
　　End If
答案：有，答案解析：有，填空题：（)下面的程序用于根据文本框Test中输入的内容进行以下处理：
若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text 为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。
　　Private Sub Command1_Click( )
　　　　Selct Case Val(Text1.Text)
　　　　　　　Case【
　　　　　　　　　Print "您的成绩为优秀！"
　　　　　　　Case【
　　　　　　　　　Print "您的成绩为良好！"
　　　　　　　Case【
　　　　　　　　　Print "您的成绩为一般！"
　　　　　　　Case Else
　　　　　　　　　Print "您的成绩为一般以下！"
　　　End Select
　　End Sub
答案：有，答案解析：有，
VISUAL BASIC模拟试题最新试卷
VISUAL BASIC模拟试题热门试卷}