问答题

在名称为Form1的窗体上画一个命令按钮，名称为Cmd1，标题为“扩大两倍”。编写适当的事件过程，程序运行后，如果单击Cmd1命令按钮，则可以使命令按钮的长度和宽度各扩大到原来的2倍。
注意：
不得使用任何变量。
程序运行时的窗体界面如下图所示。

【参考答案】

第一步：建立工程和添加窗体
单击考试界面的“功能”选项，从弹出的菜单中选择“启动应用程序”选项。Visual ......

(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)

<上一题目录下一题>

热门试题

问答题

在名称为Form1的窗体上建立一个文本框Text1和两个命令按钮Cmd1和Cmd2，标题分别为“读入数据”和“排序显示保存”(如图所示)。程序运行后，如果单击“读入数据”按钮，则读入in006.txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击“排序显示保存”按钮，则对这100个整数按从大到小进行排序，把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹的out006.txt中。要求考生调用考生文件夹下的标准模块保存数据。注意：文件必须存放在考生文件夹下，窗体文件名为sjt5.frm，工程文件名sjt5.vbp，排序结果存入out006.txt，否则没有成绩。

问答题

在考生文件夹下有一个工程文件sjr3.vbp，相应的窗体文件为sjt3.frm。在窗体上有一个名称为Text1的文本框，其Muhiline属性为True。程序运行后，如果单击窗体，则用随机函数产生16个0到99的整数，并按4行4列的矩阵形式在文本框中显示出来，然后在文本框中输出矩阵对角线上的数。程序运行的情况如下图所示。这个程序不完整，请把它补充完整，并能正确运行。试题源程序如下： 1 Option Base 1 2 Private Sub Form Click( ) 3 Dim Mat(4，4)As Integer 4 Dim N As Integer, M As Integer 5 Dim S As String, T As String 6 N=4 7 M=4 8 Randomize 9 S= 初始矩阵为： 10 For i=1 To N 11 S=S & vbCrLf 12 For j=1 To M 13 ’Mat()=Int(Rnd*100) 14 ’S=S & & 15 Next J 16 Next i 17 S=S & vbCrLf & 矩阵对角线上的数为： & vbCrLf 18 Print 19 T= 20 For i=1 To N 21 For j=1 To M 22 ’If Then 23 ’T=T & & 24 End If 25 Next j 26 Next i 27 Text1. Text=S + T 28 End Sub

相关试题