填空题

在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，输出结果是 【15】 Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k=k+p(i) *2 Next i Print k End Sub

【参考答案】

33
<上一题 目录 下一题>
热门 试题

填空题
为了在软件开发过程中保证软件的质量，主要采取的措施是复审、复查、管理复审和 【4】 。
填空题
在Visual Basic工程prjl中包含有两个窗体，窗体form1(主窗体)上有两个命令按钮command1和 command2，一个文本控件text1；窗体dialog是一个对话窗体，窗体包含两个命令按钮OK和Cancel，一个文本控件text1和一个标签控件labe11。编写程序要求实现的功能为：窗体form 1上command1的caption属性值为name，程序运行后，当单击 eommand1时，弹出对话窗体dialog，其labe11控件中的提示信息为“please input your name：”，要求用户输入自己的姓名。如果单击OK按钮，保存当前输入的内容并返回form1界面，command1的caption属性值为email。若再次单击command1命令按钮，仍然出现dialog对话窗体，此时dialog的labe11提示用户输入自己的email，当用户输入email后，单击“确定”按钮，保存当前输入的内容并返回form1界面；如果单击Cancel按钮，则输入内容无效并返回form1。Private Sub Command1_Click()Dialog. Text1. Text = Dialog. ShowEnd SubPrivate Sub Command2_Click()Text1. Text = email: + Dialog. email + name: + Dialog. fnameEnd SubPrivate Sub Form_ Load()Command1. Caption = name 【7】 . Caption = please input your name:Dialog. i = 0End SubOption ExplicitPublic i As IntegerPublic email As StringPublic fname As StringPrivate Sub CancelButton_Click()i=0email = fname = Forml. Command1. Capt ion = name Dialog. HideForm1. ShowEnd SubPrivate Sub OKButton_ Click()【8】 Select Case iCase 1:email = Text1. TextLabe11. Caption = please input your email: 【9】 . Caption = email Case 2:fname = Text1. Text【10】 . Caption = name i=0End SelectDialog. HideForm1. ShowEnd Sub
相关试题