填空题

在E-R图中，图形包括矩形框、菱形框、椭圆框。其中表示实际联系的是（）框。

【参考答案】

菱形
<上一题 目录 下一题>
热门 试题

填空题
窗体如图所示，其中汽车是名称为Imagel的图像框，命令按钮的名称为Command1，计时器的名称为Timer1，直线的名称为Linel。程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。 1)Timer1的Interval属性的值应事先设置为（） 2)Private Sub Command1_ Click() Timer1. Enabled=True End Sub Private Sub Tuner1_Timer() If Imagel. Left＞（） Then Image1.Left=（）-100 End If End Sub
填空题
本程序实现文本加密。先给定序列：a1，a2，…，an，它们的取值范围是1～n，且互不相同。加密算法是：把原文本中第k个字符放到加密后文本的第ak个位置处。若原文本长度大于n，则只对前n个字符加密，后面的字符不变；若原文本长度小于n，则在后面补字符“*”使文本长度为n 后再加密。 例如：若给定序列a1，a2，…a7却分别为2，5，3，7，6，1，4 当文本为“PROGRAM”时，加密后的文本为“APOMRRG” 当文本为“PROGKAMMING”时，加密后的文本为“APOMRRGMING” 当文本为“THANK”时，加密后的文本为“*TA*HKN” 下面的过程code实现这一算法。其中参数数组a()中存放给定序列(个数与数组a的元素个数相等)a(1，a2，a3，…的值，要加密的文本放在参数变量mystr中。过程执行完毕，加密后的文本仍放在变量mysar中。请填空。 Option Basel Private Sub code (a () As Integer, mystr As String) Dim ch AS String, cl As String n=UBound(a)- Len(mystr) If n＞0 Then mystr=mystr & String＄(n, * ) End If ch= mystr For k=（）To UBound(a) c1=Mid(mystr,k,1) n= （） Mid＄(ch, n)=c1 Next k mystr=ch End Sub
相关试题