选择题以下不属于单选按钮的属性是
选择题窗体上有一个名称为 Text1 的文本框, 一个名称为 CD1 的通用对话框
选择题文本框 Text1 的 KeyDown 事件过程如下:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
End Sub
其中参数 KeyCode 的值表示的是发生此事件时
选择题窗体上有 1 个名称为 Command1 的命令按钮, 事件过程及函数过程如下:
Private Sub Command1_Click()
Dim m As String
m=InputBox(请输入字符串)
Print pick_str(m)
End Sub
Private Function pick_str(s As String)As String
temp=
i=1
sLen=Len(s)
Do While i=sLen/ 2
temp=temp+Mid(s, i, 1)+Mid(s, sLeni+1, 1)
i=i+1
Loop
pick_str=temp
End Function
运行程序, 单击命令按钮, 并在输入对话框中输入basic, 则在窗体上显示的内容为
选择题命令按钮 Command1 的单击事件过程如下:
Private Sub Command1_Click()
Dim a(10, 10)As Integer
x=0
For i=1 To 3
For j=1 To 3
a(i, j)=i*2 Mod j
If x Next
Next
Print x
End Sub
执行上述事件过程后, 窗体上显示的是
选择题窗体上的三个命令按钮构成名称为 Command1 的控件数组。 如图所示
选择题窗体上有名称分别为 Text1、 Text2 的文本框, 名称为 Command1 的命令按钮
选择题有 3 个关系 R、 S、 T 如下:
则由关系 R 和 S 得到关系 T 的操作是( )。
填空题表达式Fix(-48.65)+Int(-52.15)的值是{{U}} 【6】 {{/U}}。
填空题软件工程研究的内容主要包括:软件开发技术和 【4】 。
填空题下面一段程序的功能是,单击命令按钮后将D盘temp 目录下的staff.txt 文件内容读出,并在文本框Text1中显示出来。请填空。
Private Sub Command1_ Click()
Dim Line As String, FileNo As Integer
Dim People As String
FileNo = FreeFile
Open "D:/temp/staff.txt" For Input As ______
DO While Not ______
Line Input #FileNo, Line
People = People + Line + Chr(13) + Chr(10)
Loop
Text1.Text = People
End Sub
填空题图片按钮的{{U}} 【6】 {{/U}}属性用来设置命令按钮无效时显示的图形。
填空题已知B的ASCII码为66,以下程序统计由键盘输入的字符串中各英文字母的使用次数 Dim 【8】 For i=65 To 90 pp(i) =0 Next x$=InputBox("Enter a string",x$) x$=UCase$(x$) For i=1 To 【9】 n=Asc(Mid$(x$,i,1)) If n >=65 And n <=90 Then 【10】 End If Next i For i=65 To 90 If pp(i) >0 Then Print Chr$(i);pp(i) End If Next
填空题在窗体上画一个命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() Dim a 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 运行一面的程序,单击命令按钮,其输出结果是 【15】 。
填空题一个程序最多可以有 【7】 窗体。
填空题下面程序运行后,窗体中显示______。 Private Sub Command1_Click) () a$="*":b$="$" For k=1 To 3 x$=String$(Len(a$) +k,b$) Print x$; Next Print End Sub
填空题单击窗体上的命令按钮Command1,程序的输出为{{U}} 【6】 {{/U}}。
Private Sub Command1_Click()
a="AbC"
b="dEF"
c=UCase(a) +LCase(b)
Print Asc(c)
End Sub
填空题下面程序的作用是用InputBox函数输入一个整数,然后判断能否同时被2,5和7整除,果能则输出该数及平方值。请填空。 Private Sub Command1_Click() Dim numX As Integer numX = Val (InputBox("请输入一个整数")) If 【9】 Then Form1.Print 【10】 End If End Sub
填空题以下程序用来建立一个5×5矩阵,该矩阵两条对角线上的元素为1,其余元素为0,请补充完该程序。该程序运行结果如下图所示。PrivateSubformClick()Dims(5,5)AsIntegerforN=1To5forM=1To5if{{U}}【13】{{/U}}Or{{U}}【14】{{/U}}thenS(N,M)=1ElseS(N.M)=0EndifNextMNextNforN=1To5for{{U}}【15】{{/U}}Picture1.PrintTab(M*3);s(N,M);NextMPrintNextNEndSub
填空题窗体设计器窗口简称______,是应用程序最终面向用户的窗口,它对应于应用程序的运行结果。各种图形、图像、数据等都是通过窗体或窗体中的控件显示出来的。
