首 页
大学试题
CMS专题
工学
经济学
专升本
法学
教育学
历史学
更多分类
搜索
题库考试答案搜索网 > 题目详情
当前位置:
首页
>
编写程序,要求随着不断单击命令按钮Command1,窗体的标题依次显示为:今天是星期一→今天是星期二→今天是星期三→今天是星期四→今天是星期五→今天是星期六→今天是星期日。
>
题目详情
问题题干
答案解析
相关问题
热门问题
最新问题
问题详情
编写程序,要求随着不断单击命令按钮Command1,窗体的标题依次显示为:今天是星期一→今天是星期二→今天是星期三→今天是星期四→今天是星期五→今天是星期六→今天是星期日。
时间:2022-03-02 11:54
关键词:
大学试题
工学
答案解析
<img src="/s/tiw/2019-07/lijuanjuan/2019073117321688320.jpg">
相关问题
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: OptionBase1 PrivateSubCommand1_Click() Dima s=0 a=Array(1,2,3,4);j=1 Fori=4To1Step-1 s=s+a(i)*j j=j*10 Nexti Prints EndSub 运行上面的程序,单击命令按钮,其输出结果是( )。
在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮,要求单击命令按钮时,打开一个保存文件的对话框,该窗口的标题为"Save",缺省文件名称为"SaveFile",在"文件类型"栏中显示*txt,则能够满足上述要求的程序是( )。{Page}
设有如下通用过程: Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是_____
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array (1,2,3,4) j = 1 For i = 4 To 1 Step - 1 s = s + a (i) * j j = j * 10 Next i Print s End Sub 运行上面的程序,单击命令按钮,其输出结果是______
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 a = 1 Do s = s + a a = a - 1 Loop While a
最新问题
在窗体上画一个文本框,然后编写如下事件过程:Private Sub Form_Click()Dim x As Integerx = Val(InputBox("请输入一个整数"))Print x + Text1TextEnd Sub程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:Private Sub Command1_Click()S$ = InputBox("请输入一个字符串")Text1Text = S$End SubPrivate Sub Text1_Change()Label1Caption = UCase(Mid(Text1Text, 7))End Sub程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串"VisualBasic",则在标签中显示的内容是________。
在窗体上画1个命令按钮,并编写如下事件过程:Private Sub Command1_Click()For i=5 to 1 step -08Print Int(i);Next iEnd Sub运行程序,单击命令按钮,窗体上显示的内容为________。
在窗体上画一个文本框,然后编写如下事件过程:Private Sub Form_Click() Dim x As Integer x = Val(InputBox("请输入一个整数")) Print x + Text1TextEnd Sub程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。
在工程中的标准模块中定义了如下数据类型: Type fruit orange As Integer apple As Integer End Type 在窗体上有—命令按钮Command1,要求当单击命令按钮时在C:根目录下的顺序文件myfrtac.txt 中写入一条记录,下列能够完成改操作的事件过程是______ 。
在窗体中添加一个命令按钮(其Name属性为Command1),然后编写如下代码: Pfivme Sub Command1_Click( ) score=Iht(Rnd*10)+70 Select Case score Case ls<60 a$=“F” Case 60 T069 a$=“D” Case 70 To 79 a$=“C” Case 80 To 89 a$=“B” Case Else a$=“A” End Select Print aS End Sub 程序运行后,单击命令按钮,输出结果是
下列程序段运行后窗体上输出结果为( )。 Private Sub Command1_Click() a=5: b=4: c=3: d=2 x=3>2*b Or a=c And b<>c Or c>d Print x End Sub
下列程序段运行后窗体上输出结果为( )。 Private Sub Command1 Click() a=5:b=4:c=3:d=2 X=3>2*b Or a=c And b<>C Or c>d Print X End Sub
设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer strL=Len(xStr) Do While i
单击WORD主窗口标题栏右边显示的"最小化"按钮后( )
别人在看