(26)在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Private Option Base 1 Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 IfX(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后,单击命令按钮,则在窗体上输出的结果是 。A.10 B.12 C.16 D.20
查看答案
(3)常用的软件结构设计工具是结构图(SC)也称程序结构图。其中,用矩形表示,用带空心圆的箭头表示传递的是数据。
(7)Text文本框接受的最长字符数由文本框的属性确定。
(35)在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge).在程序中有下列记录类型和窗体的事件过程,请选择正确的语句完成程序 Private Type student StuName As String*10 StuGrade As String*10 StuAge As String End Type Private Sub For_Click() Dim s As student Open"c:student.txt"For Random As#1 Len=Len(s) For i=1 To 1 s.StuName=InputBox("请输入姓名") s.StuGrade=InputBox("请输入年纪号") s.StuAge=InputBox("请输入年龄") Next i End Sub A.Print#1,s B.Print#1,I C.Put#1,,s D.Put#1,,i
(17)在窗体上有一个文本框,其名称为Text1,编写下列事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer ) Dim str As String Str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Test=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”则在文本框Text3中显示的内容为 A.aaa B.AAA C.AA D.aa